#This shell script will piece together string data to animate the puppy
#Plot 15 frames for use with whirlgif
clear
#Change defaults
echo ‘Changing background color’
gmtset PAGE_COLOR 225/225/225 COLOR_BACKGROUND 225/225/225 COLOR_FOREGROUND 225/225/225 BASEMAP_FRAME_RGB 50/50/50
#Plot 75 frames for use with whirlgif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame1.ps
echo ‘Plotting string for frame1’
psxy fort.10 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame1.ps
psxy fort.110 -JX -R -O -K -W12/0/200/0 -H1 >> frame1.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame1.ps
10 -1.0
10 1.0
END
echo ‘Plotting source’
psxy -JX -R -O -K -Sv0.03/0.07/0.08 -G255/255/0 -L -W1/0/0/0 <<END>> frame1.ps
7.0 0.4 -90. 0.6
END
pstext -JX -R -N -O <<END>> frame1.ps
-0.3 -1.35 15 0 1 1 Time Step = 1
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
7.0 0.50 12 0 1 1 Source
END
ps2gif -flip cw -crop frame1.ps -out frame1.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame2.ps
echo ‘Plotting string for frame2’
psxy fort.11 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame2.ps
psxy fort.111 -JX -R -O -K -W12/0/200/0 -H1 >> frame2.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame2.ps
10 -1.0
10 1.0
END
echo ‘Plotting source’
psxy -JX -R -O -K -Sv0.03/0.07/0.08 -G255/255/0 -L -W1/0/0/0 <<END>> frame2.ps
7.0 0.4 -90. 0.6
END
pstext -JX -R -N -O <<END>> frame2.ps
-0.3 -1.35 15 0 1 1 Time Step = 2
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
7.0 0.50 12 0 1 1 Source
END
ps2gif -flip cw -crop frame2.ps -out frame2.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame3.ps
echo ‘Plotting string for frame3’
psxy fort.12 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame3.ps
psxy fort.112 -JX -R -O -K -W12/0/200/0 -H1 >> frame3.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame3.ps
10 -1.0
10 1.0
END
echo ‘Plotting source’
psxy -JX -R -O -K -Sv0.03/0.07/0.08 -G255/255/0 -L -W1/0/0/0 <<END>> frame3.ps
7.0 0.4 -90. 0.6
END
pstext -JX -R -N -O <<END>> frame3.ps
-0.3 -1.35 15 0 1 1 Time Step = 3
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
7.0 0.50 12 0 1 1 Source
END
ps2gif -flip cw -crop frame3.ps -out frame3.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame4.ps
echo ‘Plotting string for frame4’
psxy fort.13 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame4.ps
psxy fort.113 -JX -R -O -K -W12/0/200/0 -H1 >> frame4.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame4.ps
10 -1.0
10 1.0
END
echo ‘Plotting source’
psxy -JX -R -O -K -Sv0.03/0.07/0.08 -G255/255/0 -L -W1/0/0/0 <<END>> frame4.ps
7.0 0.4 -90. 0.6
END
pstext -JX -R -N -O <<END>> frame4.ps
-0.3 -1.35 15 0 1 1 Time Step = 4
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
7.0 0.50 12 0 1 1 Source
END
ps2gif -flip cw -crop frame4.ps -out frame4.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame5.ps
echo ‘Plotting string for frame5’
psxy fort.14 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame5.ps
psxy fort.114 -JX -R -O -K -W12/0/200/0 -H1 >> frame5.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame5.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame5.ps
-0.3 -1.35 15 0 1 1 Time Step = 5
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
5.0 0.60 12 0 1 1 At a free boundary
5.0 0.50 12 0 1 1 part of the wave is transmitted
5.0 0.40 12 0 1 1 and part is reflected
END
ps2gif -flip cw -crop frame5.ps -out frame5.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame6.ps
echo ‘Plotting string for frame6’
psxy fort.15 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame6.ps
psxy fort.115 -JX -R -O -K -W12/0/200/0 -H1 >> frame6.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame6.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame6.ps
-0.3 -1.35 15 0 1 1 Time Step = 6
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
5.0 0.60 12 0 1 1 At a free boundary
5.0 0.50 12 0 1 1 part of the wave is transmitted
5.0 0.40 12 0 1 1 and part is reflected
END
ps2gif -flip cw -crop frame6.ps -out frame6.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame7.ps
echo ‘Plotting string for frame7’
psxy fort.16 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame7.ps
psxy fort.116 -JX -R -O -K -W12/0/200/0 -H1 >> frame7.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame7.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame7.ps
-0.3 -1.35 15 0 1 1 Time Step = 7
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
5.0 0.60 12 0 1 1 At a free boundary
5.0 0.50 12 0 1 1 part of the wave is transmitted
5.0 0.40 12 0 1 1 and part is reflected
END
ps2gif -flip cw -crop frame7.ps -out frame7.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame8.ps
echo ‘Plotting string for frame8’
psxy fort.17 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame8.ps
psxy fort.117 -JX -R -O -K -W12/0/200/0 -H1 >> frame8.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame8.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame8.ps
-0.3 -1.35 15 0 1 1 Time Step = 8
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
5.0 0.60 12 0 1 1 At a free boundary
5.0 0.50 12 0 1 1 part of the wave is transmitted
5.0 0.40 12 0 1 1 and part is reflected
END
ps2gif -flip cw -crop frame8.ps -out frame8.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame9.ps
echo ‘Plotting string for frame9’
psxy fort.18 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame9.ps
psxy fort.118 -JX -R -O -K -W12/0/200/0 -H1 >> frame9.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame9.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame9.ps
-0.3 -1.35 15 0 1 1 Time Step = 9
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame9.ps -out frame9.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame10.ps
echo ‘Plotting string for frame10’
psxy fort.19 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame10.ps
psxy fort.119 -JX -R -O -K -W12/0/200/0 -H1 >> frame10.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame10.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame10.ps
-0.3 -1.35 15 0 1 1 Time Step = 10
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
2.0 -0.40 12 0 1 1 At a fixed boundary
2.0 -0.50 12 0 1 1 the entire wave is reflected
2.0 -0.60 12 0 1 1 with an opposite amplitude
END
ps2gif -flip cw -crop frame10.ps -out frame10.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame11.ps
echo ‘Plotting string for frame11’
psxy fort.20 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame11.ps
psxy fort.120 -JX -R -O -K -W12/0/200/0 -H1 >> frame11.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame11.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame11.ps
-0.3 -1.35 15 0 1 1 Time Step = 11
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
2.0 -0.40 12 0 1 1 At a fixed boundary
2.0 -0.50 12 0 1 1 the entire wave is reflected
2.0 -0.60 12 0 1 1 with an opposite amplitude
END
ps2gif -flip cw -crop frame11.ps -out frame11.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame12.ps
echo ‘Plotting string for frame12’
psxy fort.21 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame12.ps
psxy fort.121 -JX -R -O -K -W12/0/200/0 -H1 >> frame12.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame12.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame12.ps
-0.3 -1.35 15 0 1 1 Time Step = 12
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
2.0 -0.40 12 0 1 1 At a fixed boundary
2.0 -0.50 12 0 1 1 the entire wave is reflected
2.0 -0.60 12 0 1 1 with an opposite amplitude
END
ps2gif -flip cw -crop frame12.ps -out frame12.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame13.ps
echo ‘Plotting string for frame13’
psxy fort.22 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame13.ps
psxy fort.122 -JX -R -O -K -W12/0/200/0 -H1 >> frame13.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame13.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame13.ps
-0.3 -1.35 15 0 1 1 Time Step = 13
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
2.0 -0.40 12 0 1 1 At a fixed boundary
2.0 -0.50 12 0 1 1 the entire wave is reflected
2.0 -0.60 12 0 1 1 with an opposite amplitude
END
ps2gif -flip cw -crop frame13.ps -out frame13.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame14.ps
echo ‘Plotting string for frame14’
psxy fort.23 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame14.ps
psxy fort.123 -JX -R -O -K -W12/0/200/0 -H1 >> frame14.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame14.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame14.ps
-0.3 -1.35 15 0 1 1 Time Step = 14
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
2.0 -0.40 12 0 1 1 At a fixed boundary
2.0 -0.50 12 0 1 1 the entire wave is reflected
2.0 -0.60 12 0 1 1 with an opposite amplitude
END
ps2gif -flip cw -crop frame14.ps -out frame14.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame15.ps
echo ‘Plotting string for frame15’
psxy fort.24 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame15.ps
psxy fort.124 -JX -R -O -K -W12/0/200/0 -H1 >> frame15.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame15.ps
10 -1.0
10 1.0
END
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame15.ps
echo ‘Plotting string for frame15’
psxy fort.24 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame15.ps
psxy fort.124 -JX -R -O -K -W12/0/200/0 -H1 >> frame15.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame15.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame15.ps
-0.3 -1.35 15 0 1 1 Time Step = 15
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
2.0 0.80 12 0 1 1 Some waves interfere constructively
END
ps2gif -flip cw -crop frame15.ps -out frame15.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame16.ps
echo ‘Plotting string for frame16’
psxy fort.25 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame16.ps
psxy fort.125 -JX -R -O -K -W12/0/200/0 -H1 >> frame16.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame16.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame16.ps
-0.3 -1.35 15 0 1 1 Time Step = 16
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
2.0 0.80 12 0 1 1 Some waves interfere constructively
END
ps2gif -flip cw -crop frame16.ps -out frame16.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame17.ps
echo ‘Plotting string for frame17’
psxy fort.26 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame17.ps
psxy fort.126 -JX -R -O -K -W12/0/200/0 -H1 >> frame17.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame17.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame17.ps
-0.3 -1.35 15 0 1 1 Time Step = 17
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
2.0 0.80 12 0 1 1 Some waves interfere constructively
END
ps2gif -flip cw -crop frame17.ps -out frame17.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame18.ps
echo ‘Plotting string for frame18’
psxy fort.27 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame18.ps
psxy fort.127 -JX -R -O -K -W12/0/200/0 -H1 >> frame18.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame18.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame18.ps
-0.3 -1.35 15 0 1 1 Time Step = 18
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
2.0 0.80 12 0 1 1 Some waves interfere constructively
END
ps2gif -flip cw -crop frame18.ps -out frame18.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame19.ps
echo ‘Plotting string for frame19’
psxy fort.28 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame19.ps
psxy fort.128 -JX -R -O -K -W12/0/200/0 -H1 >> frame19.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame19.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame19.ps
-0.3 -1.35 15 0 1 1 Time Step = 19
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame19.ps -out frame19.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame20.ps
echo ‘Plotting string for frame20’
psxy fort.29 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame20.ps
psxy fort.129 -JX -R -O -K -W12/0/200/0 -H1 >> frame20.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame20.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame20.ps
-0.3 -1.35 15 0 1 1 Time Step = 20
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame20.ps -out frame20.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame21.ps
echo ‘Plotting string for frame21’
psxy fort.30 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame21.ps
psxy fort.130 -JX -R -O -K -W12/0/200/0 -H1 >> frame21.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame21.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame21.ps
-0.3 -1.35 15 0 1 1 Time Step = 21
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame21.ps -out frame21.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame22.ps
echo ‘Plotting string for frame22’
psxy fort.31 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame22.ps
psxy fort.131 -JX -R -O -K -W12/0/200/0 -H1 >> frame22.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame22.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame22.ps
-0.3 -1.35 15 0 1 1 Time Step = 22
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame22.ps -out frame22.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame23.ps
echo ‘Plotting string for frame23’
psxy fort.32 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame23.ps
psxy fort.132 -JX -R -O -K -W12/0/200/0 -H1 >> frame23.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame23.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame23.ps
-0.3 -1.35 15 0 1 1 Time Step = 23
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame23.ps -out frame23.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame24.ps
echo ‘Plotting string for frame24’
psxy fort.33 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame24.ps
psxy fort.133 -JX -R -O -K -W12/0/200/0 -H1 >> frame24.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame24.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame24.ps
-0.3 -1.35 15 0 1 1 Time Step = 24
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame24.ps -out frame24.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame25.ps
echo ‘Plotting string for frame25’
psxy fort.34 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame25.ps
psxy fort.134 -JX -R -O -K -W12/0/200/0 -H1 >> frame25.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame25.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame25.ps
-0.3 -1.35 15 0 1 1 Time Step = 25
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame25.ps -out frame25.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame26.ps
echo ‘Plotting string for frame26’
psxy fort.35 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame26.ps
psxy fort.135 -JX -R -O -K -W12/0/200/0 -H1 >> frame26.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame26.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame26.ps
-0.3 -1.35 15 0 1 1 Time Step = 26
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame26.ps -out frame26.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame27.ps
echo ‘Plotting string for frame27’
psxy fort.36 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame27.ps
psxy fort.136 -JX -R -O -K -W12/0/200/0 -H1 >> frame27.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame27.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame27.ps
-0.3 -1.35 15 0 1 1 Time Step = 27
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame27.ps -out frame27.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame28.ps
echo ‘Plotting string for frame28’
psxy fort.37 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame28.ps
psxy fort.137 -JX -R -O -K -W12/0/200/0 -H1 >> frame28.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame28.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame28.ps
-0.3 -1.35 15 0 1 1 Time Step = 28
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame28.ps -out frame28.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame29.ps
echo ‘Plotting string for frame29’
psxy fort.38 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame29.ps
psxy fort.138 -JX -R -O -K -W12/0/200/0 -H1 >> frame29.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame29.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame29.ps
-0.3 -1.35 15 0 1 1 Time Step = 29
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame29.ps -out frame29.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame30.ps
echo ‘Plotting string for frame30’
psxy fort.39 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame30.ps
psxy fort.139 -JX -R -O -K -W12/0/200/0 -H1 >> frame30.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame30.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame30.ps
-0.3 -1.35 15 0 1 1 Time Step = 30
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame30.ps -out frame30.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame31.ps
echo ‘Plotting string for frame31’
psxy fort.40 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame31.ps
psxy fort.140 -JX -R -O -K -W12/0/200/0 -H1 >> frame31.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame31.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame31.ps
-0.3 -1.35 15 0 1 1 Time Step = 31
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame31.ps -out frame31.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame32.ps
echo ‘Plotting string for frame32’
psxy fort.41 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame32.ps
psxy fort.141 -JX -R -O -K -W12/0/200/0 -H1 >> frame32.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame32.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame32.ps
-0.3 -1.35 15 0 1 1 Time Step = 32
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame32.ps -out frame32.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame33.ps
echo ‘Plotting string for frame33’
psxy fort.42 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame33.ps
psxy fort.142 -JX -R -O -K -W12/0/200/0 -H1 >> frame33.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame33.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame33.ps
-0.3 -1.35 15 0 1 1 Time Step = 33
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame33.ps -out frame33.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame34.ps
echo ‘Plotting string for frame34’
psxy fort.43 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame34.ps
psxy fort.143 -JX -R -O -K -W12/0/200/0 -H1 >> frame34.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame34.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame34.ps
-0.3 -1.35 15 0 1 1 Time Step = 34
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame34.ps -out frame34.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame35.ps
echo ‘Plotting string for frame35’
psxy fort.44 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame35.ps
psxy fort.144 -JX -R -O -K -W12/0/200/0 -H1 >> frame35.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame35.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame35.ps
-0.3 -1.35 15 0 1 1 Time Step = 35
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame35.ps -out frame35.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame36.ps
echo ‘Plotting string for frame36’
psxy fort.45 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame36.ps
psxy fort.145 -JX -R -O -K -W12/0/200/0 -H1 >> frame36.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame36.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame36.ps
-0.3 -1.35 15 0 1 1 Time Step = 36
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame36.ps -out frame36.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame37.ps
echo ‘Plotting string for frame37’
psxy fort.46 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame37.ps
psxy fort.146 -JX -R -O -K -W12/0/200/0 -H1 >> frame37.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame37.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame37.ps
-0.3 -1.35 15 0 1 1 Time Step = 37
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame37.ps -out frame37.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame38.ps
echo ‘Plotting string for frame38’
psxy fort.47 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame38.ps
psxy fort.147 -JX -R -O -K -W12/0/200/0 -H1 >> frame38.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame38.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame38.ps
-0.3 -1.35 15 0 1 1 Time Step = 38
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame38.ps -out frame38.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame39.ps
echo ‘Plotting string for frame39’
psxy fort.48 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame39.ps
psxy fort.148 -JX -R -O -K -W12/0/200/0 -H1 >> frame39.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame39.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame39.ps
-0.3 -1.35 15 0 1 1 Time Step = 39
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame39.ps -out frame39.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame40.ps
echo ‘Plotting string for frame40’
psxy fort.49 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame40.ps
psxy fort.149 -JX -R -O -K -W12/0/200/0 -H1 >> frame40.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame40.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame40.ps
-0.3 -1.35 15 0 1 1 Time Step = 40
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame40.ps -out frame40.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame41.ps
echo ‘Plotting string for frame41’
psxy fort.50 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame41.ps
psxy fort.150 -JX -R -O -K -W12/0/200/0 -H1 >> frame41.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame41.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame41.ps
-0.3 -1.35 15 0 1 1 Time Step = 41
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame41.ps -out frame41.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame42.ps
echo ‘Plotting string for frame42’
psxy fort.51 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame42.ps
psxy fort.151 -JX -R -O -K -W12/0/200/0 -H1 >> frame42.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame42.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame42.ps
-0.3 -1.35 15 0 1 1 Time Step = 42
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame42.ps -out frame42.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame43.ps
echo ‘Plotting string for frame43’
psxy fort.52 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame43.ps
psxy fort.152 -JX -R -O -K -W12/0/200/0 -H1 >> frame43.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame43.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame43.ps
-0.3 -1.35 15 0 1 1 Time Step = 43
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame43.ps -out frame43.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame44.ps
echo ‘Plotting string for frame44’
psxy fort.53 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame44.ps
psxy fort.153 -JX -R -O -K -W12/0/200/0 -H1 >> frame44.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame44.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame44.ps
-0.3 -1.35 15 0 1 1 Time Step = 44
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame44.ps -out frame44.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame45.ps
echo ‘Plotting string for frame45’
psxy fort.54 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame45.ps
psxy fort.154 -JX -R -O -K -W12/0/200/0 -H1 >> frame45.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame45.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame45.ps
-0.3 -1.35 15 0 1 1 Time Step = 45
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame45.ps -out frame45.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame46.ps
echo ‘Plotting string for frame46’
psxy fort.55 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame46.ps
psxy fort.155 -JX -R -O -K -W12/0/200/0 -H1 >> frame46.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame46.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame46.ps
-0.3 -1.35 15 0 1 1 Time Step = 46
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame46.ps -out frame46.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame47.ps
echo ‘Plotting string for frame47’
psxy fort.56 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame47.ps
psxy fort.156 -JX -R -O -K -W12/0/200/0 -H1 >> frame47.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame47.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame47.ps
-0.3 -1.35 15 0 1 1 Time Step = 47
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame47.ps -out frame47.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame48.ps
echo ‘Plotting string for frame48’
psxy fort.57 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame48.ps
psxy fort.157 -JX -R -O -K -W12/0/200/0 -H1 >> frame48.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame48.ps
10 -1.0
10 1.0
END
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame48.ps
echo ‘Plotting string for frame48’
psxy fort.57 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame48.ps
psxy fort.157 -JX -R -O -K -W12/0/200/0 -H1 >> frame48.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame48.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame48.ps
-0.3 -1.35 15 0 1 1 Time Step = 48
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
14.0 0.80 12 0 1 1 Another example of
14.0 0.70 12 0 1 1 constructive
14.0 0.60 12 0 1 1 intereference
END
ps2gif -flip cw -crop frame48.ps -out frame48.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame49.ps
echo ‘Plotting string for frame49’
psxy fort.58 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame49.ps
psxy fort.158 -JX -R -O -K -W12/0/200/0 -H1 >> frame49.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame49.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame49.ps
-0.3 -1.35 15 0 1 1 Time Step = 49
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
14.0 0.80 12 0 1 1 Another example of
14.0 0.70 12 0 1 1 constructive
14.0 0.60 12 0 1 1 intereference
END
ps2gif -flip cw -crop frame49.ps -out frame49.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame50.ps
echo ‘Plotting string for frame50’
psxy fort.59 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame50.ps
psxy fort.159 -JX -R -O -K -W12/0/200/0 -H1 >> frame50.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame50.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame50.ps
-0.3 -1.35 15 0 1 1 Time Step = 50
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
14.0 0.80 12 0 1 1 Another example of
14.0 0.70 12 0 1 1 constructive
14.0 0.60 12 0 1 1 intereference
END
ps2gif -flip cw -crop frame50.ps -out frame50.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame51.ps
echo ‘Plotting string for frame51’
psxy fort.60 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame51.ps
psxy fort.160 -JX -R -O -K -W12/0/200/0 -H1 >> frame51.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame51.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame51.ps
-0.3 -1.35 15 0 1 1 Time Step = 51
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
14.0 0.80 12 0 1 1 Another example of
14.0 0.70 12 0 1 1 constructive
14.0 0.60 12 0 1 1 intereference
END
ps2gif -flip cw -crop frame51.ps -out frame51.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame52.ps
echo ‘Plotting string for frame52’
psxy fort.61 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame52.ps
psxy fort.161 -JX -R -O -K -W12/0/200/0 -H1 >> frame52.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame52.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame52.ps
-0.3 -1.35 15 0 1 1 Time Step = 52
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
14.0 0.80 12 0 1 1 Another example of
14.0 0.70 12 0 1 1 constructive
14.0 0.60 12 0 1 1 intereference
END
ps2gif -flip cw -crop frame52.ps -out frame52.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame53.ps
echo ‘Plotting string for frame53’
psxy fort.62 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame53.ps
psxy fort.162 -JX -R -O -K -W12/0/200/0 -H1 >> frame53.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame53.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame53.ps
-0.3 -1.35 15 0 1 1 Time Step = 53
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame53.ps -out frame53.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame54.ps
echo ‘Plotting string for frame54’
psxy fort.63 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame54.ps
psxy fort.163 -JX -R -O -K -W12/0/200/0 -H1 >> frame54.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame54.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame54.ps
-0.3 -1.35 15 0 1 1 Time Step = 54
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
14.0 0.80 12 0 1 1 An example of
14.0 0.70 12 0 1 1 destructive
14.0 0.60 12 0 1 1 intereference
END
ps2gif -flip cw -crop frame54.ps -out frame54.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame55.ps
echo ‘Plotting string for frame55’
psxy fort.64 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame55.ps
psxy fort.164 -JX -R -O -K -W12/0/200/0 -H1 >> frame55.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame55.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame55.ps
-0.3 -1.35 15 0 1 1 Time Step = 55
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
14.0 0.80 12 0 1 1 An example of
14.0 0.70 12 0 1 1 destructive
14.0 0.60 12 0 1 1 intereference
END
ps2gif -flip cw -crop frame55.ps -out frame55.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame56.ps
echo ‘Plotting string for frame56’
psxy fort.65 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame56.ps
psxy fort.165 -JX -R -O -K -W12/0/200/0 -H1 >> frame56.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame56.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame56.ps
-0.3 -1.35 15 0 1 1 Time Step = 56
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
14.0 0.80 12 0 1 1 An example of
14.0 0.70 12 0 1 1 destructive
14.0 0.60 12 0 1 1 intereference
END
ps2gif -flip cw -crop frame56.ps -out frame56.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame57.ps
echo ‘Plotting string for frame57’
psxy fort.66 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame57.ps
psxy fort.166 -JX -R -O -K -W12/0/200/0 -H1 >> frame57.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame57.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame57.ps
-0.3 -1.35 15 0 1 1 Time Step = 57
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
14.0 0.80 12 0 1 1 An example of
14.0 0.70 12 0 1 1 destructive
14.0 0.60 12 0 1 1 intereference
END
ps2gif -flip cw -crop frame57.ps -out frame57.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame58.ps
echo ‘Plotting string for frame58’
psxy fort.67 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame58.ps
psxy fort.167 -JX -R -O -K -W12/0/200/0 -H1 >> frame58.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame58.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame58.ps
-0.3 -1.35 15 0 1 1 Time Step = 58
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame58.ps -out frame58.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame59.ps
echo ‘Plotting string for frame59’
psxy fort.68 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame59.ps
psxy fort.168 -JX -R -O -K -W12/0/200/0 -H1 >> frame59.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame59.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame59.ps
-0.3 -1.35 15 0 1 1 Time Step = 59
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame59.ps -out frame59.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame60.ps
echo ‘Plotting string for frame60’
psxy fort.69 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame60.ps
psxy fort.169 -JX -R -O -K -W12/0/200/0 -H1 >> frame60.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame60.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame60.ps
-0.3 -1.35 15 0 1 1 Time Step = 60
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame60.ps -out frame60.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame61.ps
echo ‘Plotting string for frame61’
psxy fort.70 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame61.ps
psxy fort.170 -JX -R -O -K -W12/0/200/0 -H1 >> frame61.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame61.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame61.ps
-0.3 -1.35 15 0 1 1 Time Step = 61
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame61.ps -out frame61.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame62.ps
echo ‘Plotting string for frame62’
psxy fort.71 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame62.ps
psxy fort.171 -JX -R -O -K -W12/0/200/0 -H1 >> frame62.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame62.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame62.ps
-0.3 -1.35 15 0 1 1 Time Step = 62
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame62.ps -out frame62.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame63.ps
echo ‘Plotting string for frame63’
psxy fort.72 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame63.ps
psxy fort.172 -JX -R -O -K -W12/0/200/0 -H1 >> frame63.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame63.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame63.ps
-0.3 -1.35 15 0 1 1 Time Step = 63
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame63.ps -out frame63.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame64.ps
echo ‘Plotting string for frame64’
psxy fort.73 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame64.ps
psxy fort.173 -JX -R -O -K -W12/0/200/0 -H1 >> frame64.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame64.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame64.ps
-0.3 -1.35 15 0 1 1 Time Step = 64
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame64.ps -out frame64.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame65.ps
echo ‘Plotting string for frame65’
psxy fort.74 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame65.ps
psxy fort.174 -JX -R -O -K -W12/0/200/0 -H1 >> frame65.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame65.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame65.ps
-0.3 -1.35 15 0 1 1 Time Step = 65
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame65.ps -out frame65.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame66.ps
echo ‘Plotting string for frame66’
psxy fort.75 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame66.ps
psxy fort.175 -JX -R -O -K -W12/0/200/0 -H1 >> frame66.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame66.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame66.ps
-0.3 -1.35 15 0 1 1 Time Step = 66
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame66.ps -out frame66.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame67.ps
echo ‘Plotting string for frame67’
psxy fort.76 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame67.ps
psxy fort.176 -JX -R -O -K -W12/0/200/0 -H1 >> frame67.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame67.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame67.ps
-0.3 -1.35 15 0 1 1 Time Step = 67
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame67.ps -out frame67.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame68.ps
echo ‘Plotting string for frame68’
psxy fort.77 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame68.ps
psxy fort.177 -JX -R -O -K -W12/0/200/0 -H1 >> frame68.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame68.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame68.ps
-0.3 -1.35 15 0 1 1 Time Step = 68
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame68.ps -out frame68.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame69.ps
echo ‘Plotting string for frame69’
psxy fort.78 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame69.ps
psxy fort.178 -JX -R -O -K -W12/0/200/0 -H1 >> frame69.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame69.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame69.ps
-0.3 -1.35 15 0 1 1 Time Step = 69
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame69.ps -out frame69.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame70.ps
echo ‘Plotting string for frame70’
psxy fort.79 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame70.ps
psxy fort.179 -JX -R -O -K -W12/0/200/0 -H1 >> frame70.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame70.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame70.ps
-0.3 -1.35 15 0 1 1 Time Step = 70
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame70.ps -out frame70.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame71.ps
echo ‘Plotting string for frame71’
psxy fort.80 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame71.ps
psxy fort.180 -JX -R -O -K -W12/0/200/0 -H1 >> frame71.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame71.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame71.ps
-0.3 -1.35 15 0 1 1 Time Step = 71
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame71.ps -out frame71.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame72.ps
echo ‘Plotting string for frame72’
psxy fort.81 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame72.ps
psxy fort.181 -JX -R -O -K -W12/0/200/0 -H1 >> frame72.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame72.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame72.ps
-0.3 -1.35 15 0 1 1 Time Step = 72
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame72.ps -out frame72.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame73.ps
echo ‘Plotting string for frame73’
psxy fort.82 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame73.ps
psxy fort.182 -JX -R -O -K -W12/0/200/0 -H1 >> frame73.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame73.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame73.ps
-0.3 -1.35 15 0 1 1 Time Step = 73
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame73.ps -out frame73.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame74.ps
echo ‘Plotting string for frame74’
psxy fort.83 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame74.ps
psxy fort.183 -JX -R -O -K -W12/0/200/0 -H1 >> frame74.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame74.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame74.ps
-0.3 -1.35 15 0 1 1 Time Step = 74
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame74.ps -out frame74.gif
echo ‘Making frame for cropping’
psbasemap -JX7/4 -R0/7/0/4 -X2.0 -Y2.0 -Bswne -K > frame75.ps
echo ‘Plotting string for frame75’
psxy fort.84 -JX6/3 -R0/20/-1.0/1.0 -Bf2/f.2swne -O -K -W4/255/0/0 -H1 -X0.6 -Y0.6 >> frame75.ps
psxy fort.184 -JX -R -O -K -W12/0/200/0 -H1 >> frame75.ps
psxy -JX -R -O -K -W3/125/125/125ta <<END>> frame75.ps
10 -1.0
10 1.0
END
pstext -JX -R -N -O <<END>> frame75.ps
-0.3 -1.35 15 0 1 1 Time Step = 75
0.0 1.08 12 0 0 1 @~r@~ = 1.0, c = 3.0
20.0 1.08 12 0 0 3 @~r@~ = 4.0, c = 1.5
0.2 -0.80 12 0 0 1 L-R Reflection Coefficient = -1/3
0.2 -0.90 12 0 0 1 L-R Transmission Coefficient = 2/3
10.5 -0.80 12 0 0 1 R-L Reflection Coefficient = 1/3
10.5 -0.90 12 0 0 1 R-L Transmission Coefficient = 4/3
END
ps2gif -flip cw -crop frame75.ps -out frame75.gif
whirlgif -v -time 20 frame1.gif frame2.gif frame3.gif frame4.gif frame5.gif frame6.gif frame7.gif frame8.gif frame9.gif frame10.gif frame11.gif frame12.gif frame13.gif frame14.gif frame15.gif frame16.gif frame17.gif frame18.gif frame19.gif frame20.gif frame21.gif frame22.gif frame23.gif frame24.gif frame25.gif frame26.gif frame27.gif frame28.gif frame29.gif frame30.gif frame31.gif frame32.gif frame33.gif frame34.gif frame35.gif frame36.gif frame37.gif frame38.gif frame39.gif frame40.gif frame41.gif frame42.gif frame43.gif frame44.gif frame45.gif frame46.gif frame47.gif frame48.gif frame49.gif frame50.gif frame51.gif frame52.gif frame53.gif frame54.gif frame55.gif frame56.gif frame57.gif frame58.gif frame59.gif frame60.gif frame61.gif frame62.gif frame63.gif frame64.gif frame65.gif frame66.gif frame67.gif frame68.gif frame69.gif frame70.gif frame71.gif frame72.gif frame73.gif frame74.gif frame75.gif > string.gif
echo ‘Restoring background color’
gmtset PAGE_COLOR 255/255/255 COLOR_BACKGROUND 0/0/0 COLOR_FOREGROUND 0/0/0 BASEMAP_FRAME_RGB 0/0/0