# $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