NewPath/O SaveGraphsDir "H:Andy:School:Waterloo:Phys 360B:Lab 5 - Coupled Oscillators:graphs:"

FFT/OUT=4/RP=[50,2051]/DEST=:Fourier:'beat1-s1l4-1_disp_FFT' 'beat1-s1l4-1_disp';DelayUpdate
Display :Fourier:'beat1-s1l4-1_disp_FFT';DelayUpdate
DoWindow/C/T beat1_s1l4_1_disp_FFT,"beat1-s1l4-1_disp_FFT"
Label left "Squared Amplitude \\U";DelayUpdate
Label bottom "Frequency (Hz)";DelayUpdate
SetAxis bottom 0.6,0.8;DelayUpdate
SetAxis left 0.0049179233,114184.45;DelayUpdate
ModifyGraph mode=3;DelayUpdate
CurveFit/M=2/W=0/TBOX=(0x300) gauss, :Fourier:'beat1-s1l4-1_disp_FFT'[43,57]/D;DelayUpdate
Duplicate/O/D 'fit_beat1-s1l4-1_disp_FFT','fit_beat1-s1l4-1_disp_FFT_Left'
AppendToGraph 'fit_beat1-s1l4-1_disp_FFT_Left'
TextBox/C/N=CF_beat1_s1l4_1_disp_FFT_1/A=LT/X=-0.94/Y=-3.38 "Coefficient values ± one standard deviation\r\ty0   \t=802.6 ± 241\r\tA    \t=82981 ± 1.05e+003\r\tx0   \t=0.66063 ± 0.000178";DelayUpdate
AppendText "\twidth\t=0.0082351 ± 0.000151"
CurveFit/M=2/W=0/TBOX=(0x300) gauss, :Fourier:'beat1-s1l4-1_disp_FFT'[57,81]/D;DelayUpdate
TextBox/C/N=CF_beat1_s1l4_1_disp_FFT/A=RT/X=-4.01/Y=-3.38;DelayUpdate
ModifyGraph width=500,height=300
SavePICT/O/P=SaveGraphsDir/E=-5/B=288 as "beat1-s1l4_1_disp_FFT.png";DelayUpdate
KillWindow beat1_s1l4_1_disp_FFT

FFT/OUT=4/RP=[50,2051]/DEST=:Fourier:'beat1-s1l4-2_disp_FFT' 'beat1-s1l4-2_disp';DelayUpdate
Display :Fourier:'beat1-s1l4-2_disp_FFT';DelayUpdate
DoWindow/C/T beat1_s1l4_2_disp_FFT,"beat1-s1l4-2_disp_FFT"
Label left "Squared Amplitude \\U";DelayUpdate
Label bottom "Frequency (Hz)";DelayUpdate
SetAxis bottom 0.6,0.8;DelayUpdate
ModifyGraph mode=3;DelayUpdate
CurveFit/M=2/W=0/TBOX=(0x300) gauss, :Fourier:'beat1-s1l4-2_disp_FFT'[43,57]/D;DelayUpdate
Duplicate/O/D 'fit_beat1-s1l4-2_disp_FFT','fit_beat1-s1l4-2_disp_FFT_Left'
AppendToGraph 'fit_beat1-s1l4-2_disp_FFT_Left'
TextBox/C/N=CF_beat1_s1l4_2_disp_FFT_1/A=RT/X=17.24/Y=0.25 "Coefficient values ± one standard deviation\r\ty0   \t=960.95 ± 757\r\tA    \t=80039 ± 6.24e+003\r\tx0   \t=0.66239 ± 0.000594";DelayUpdate
AppendText "\twidth\t=0.0085572 ± 0.000828"
CurveFit/M=2/W=0/TBOX=(0x300) gauss, :Fourier:'beat1-s1l4-2_disp_FFT'[57,81]/D;DelayUpdate
TextBox/C/N=CF_beat1_s1l4_2_disp_FFT/A=RT/X=-4.80/Y=48.75;DelayUpdate
ModifyGraph width=500,height=300
SavePICT/O/P=SaveGraphsDir/E=-5/B=288 as "beat1-s1l4_2_disp_FFT.png";DelayUpdate
KillWindow beat1_s1l4_2_disp_FFT

FFT/OUT=4/RP=[50,2051]/DEST=:Fourier:'beat2-s4l1-1_disp_FFT' 'beat2-s4l1-1_disp';DelayUpdate
Display :Fourier:'beat2-s4l1-1_disp_FFT';DelayUpdate
DoWindow/C/T beat2_s4l1_1_disp_FFT,"beat2-s4l1-1_disp_FFT"
Label left "Squared Amplitude \\U";DelayUpdate
Label bottom "Frequency (Hz)";DelayUpdate
SetAxis bottom 0.6,0.8;DelayUpdate
SetAxis left 0.00010257563,304831.31;DelayUpdate
ModifyGraph mode=3;DelayUpdate
CurveFit/M=2/W=0/TBOX=(0x300) gauss, :Fourier:'beat2-s4l1-1_disp_FFT'[43,57]/D;DelayUpdate
Duplicate/O/D 'fit_beat2-s4l1-1_disp_FFT','fit_beat2-s4l1-1_disp_FFT_Left'
AppendToGraph 'fit_beat2-s4l1-1_disp_FFT_Left'
TextBox/C/N=CF_beat2_s4l1_1_disp_FFT_1/A=RT/X=17.84/Y=-1.00 "Coefficient values ± one standard deviation\r\ty0   \t=1887.5 ± 591\r\tA    \t=2.7346e+005 ± 2.43e+003";DelayUpdate
AppendText "\tx0   \t=0.66021 ± 0.000148\r\twidth\t=0.0078046 ± 0.000112"
CurveFit/M=2/W=0/TBOX=(0x300) gauss, :Fourier:'beat2-s4l1-1_disp_FFT'[57,81]/D;DelayUpdate
TextBox/C/N=CF_beat2_s4l1_1_disp_FFT/A=RT/X=-4.65/Y=55.75;DelayUpdate
ModifyGraph width=500,height=300
SavePICT/O/P=SaveGraphsDir/E=-5/B=288 as "beat2-s4l1_1_disp_FFT.png";DelayUpdate
KillWindow beat2_s4l1_1_disp_FFT

FFT/OUT=4/RP=[50,2051]/DEST=:Fourier:'beat2-s4l1-2_disp_FFT' 'beat2-s4l1-2_disp';DelayUpdate
Display :Fourier:'beat2-s4l1-2_disp_FFT';DelayUpdate
DoWindow/C/T beat2_s4l1_2_disp_FFT,"beat2-s4l1-2_disp_FFT"
Label left "Squared Amplitude \\U";DelayUpdate
Label bottom "Frequency (Hz)";DelayUpdate
SetAxis bottom 0.6,0.8;DelayUpdate
SetAxis left 4.1112919e-05,304817.27
ModifyGraph mode=3;DelayUpdate
CurveFit/M=2/W=0/TBOX=(0x300) gauss, :Fourier:'beat2-s4l1-2_disp_FFT'[43,57]/D;DelayUpdate
Duplicate/O/D 'fit_beat2-s4l1-2_disp_FFT','fit_beat2-s4l1-2_disp_FFT_Left'
AppendToGraph 'fit_beat2-s4l1-2_disp_FFT_Left'
TextBox/C/N=CF_beat2_s4l1_2_disp_FFT_1/A=RT/X=54.72/Y=-2.00 "Coefficient values ± one standard deviation\r\ty0   \t=2515.3 ± 2.16e+003\r\tA    \t=2.3233e+005 ± 2.16e+004";DelayUpdate
AppendText "\tx0   \t=0.66224 ± 0.000708\r\twidth\t=0.0081243 ± 0.000906"
CurveFit/M=2/W=0/TBOX=(0x300) gauss, :Fourier:'beat2-s4l1-2_disp_FFT'[57,81]/D;DelayUpdate
TextBox/C/N=CF_beat2_s4l1_2_disp_FFT/A=RT/X=0.30/Y=41.00;DelayUpdate
ModifyGraph width=500,height=300
SavePICT/O/P=SaveGraphsDir/E=-5/B=288 as "beat2-s4l1_2_disp_FFT.png";DelayUpdate
KillWindow beat2_s4l1_2_disp_FFT