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/WaveToyFO/par/fo1d.gnu,v 1.1 2003/06/18 20:08:29 schnetter Exp $
set grid
dt=0.05
f(x)=cos(2*pi*(x+t*dt))
t=200
p [0:1] "fo1d_1l_0020/phi.xl" i t u 10:13 w l, "fo1d_1l_0040/phi.xl" i t u 10:13 w l, "fo1d_1l_0080/phi.xl" i t u 10:13 w l, f(x)
p [0:1] "fo1d_1l_0020/phi.xl" i t u 10:($13-f($10)) w l, "fo1d_1l_0040/phi.xl" i t u 10:(4*($13-f($10))) w l, "fo1d_1l_0080/phi.xl" i t u 10:(16*($13-f($10))) w l
p [0:1] "fo1d_2l_0020/phi.xl" i 2*t u 10:13 w l, "fo1d_2l_0040/phi.xl" i 2*t u 10:13 w l, "fo1d_2l_0080/phi.xl" i 2*t u 10:13 w l, "fo1d_2l_0160/phi.xl" i 2*t u 10:13 w l, "fo1d_2l_0320/phi.xl" i 2*t u 10:13 w l, f(x)
p [0:1] "fo1d_2l_0020/phi.xl" i 2*t u 10:($13-f($10)) w l, "fo1d_2l_0040/phi.xl" i 2*t u 10:(4*($13-f($10))) w l, "fo1d_2l_0080/phi.xl" i 2*t u 10:(16*($13-f($10))) w l, "fo1d_2l_0160/phi.xl" i 2*t u 10:(64*($13-f($10))) w l, "fo1d_2l_0320/phi.xl" i 2*t u 10:(256*($13-f($10))) w l
|
