1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyExpl/par/ew1d.gnu,v 1.1 2003/06/18 18:24:30 schnetter Exp $
set grid
dt=0.05
f(x)=cos(2*pi*(x+0.5*t*dt))
t=400
p [0:1] "ew1d_1l_0020/phi.xl" i t u 10:13 w l, "ew1d_1l_0040/phi.xl" i t u 10:13 w l, "ew1d_1l_0080/phi.xl" i t u 10:13 w l, f(x)
p [0:1] "ew1d_1l_0020/phi.xl" i t u 10:($13-f($10)) w l, "ew1d_1l_0040/phi.xl" i t u 10:(4*($13-f($10))) w l, "ew1d_1l_0080/phi.xl" i t u 10:(16*($13-f($10))) w l
p [0:1] "ew1d_2l_0020/phi.xl" i 2*t u 10:13 w l, "ew1d_2l_0040/phi.xl" i 2*t u 10:13 w l, "ew1d_2l_0080/phi.xl" i 2*t u 10:13 w l, "ew1d_2l_0160/phi.xl" i 2*t u 10:13 w l, "ew1d_2l_0320/phi.xl" i 2*t u 10:13 w l, f(x)
p [0:1] "ew1d_2l_0020/phi.xl" i 2*t u 10:($13-f($10)) w l, "ew1d_2l_0040/phi.xl" i 2*t u 10:(4*($13-f($10))) w l, "ew1d_2l_0080/phi.xl" i 2*t u 10:(16*($13-f($10))) w l, "ew1d_2l_0160/phi.xl" i 2*t u 10:(64*($13-f($10))) w l, "ew1d_2l_0320/phi.xl" i 2*t u 10:(256*($13-f($10))) w l
|
