{VERSION 4 0 "APPLE_PPC_MAC" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "Normal" -1 256 "Times" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 1" -1 3 1 
{CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 6 
6 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier
" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }
{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 
2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot
" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }
3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Fixed Width" -1 17 1 {CSTYLE "" 
-1 -1 "Courier" 1 10 0 0 0 1 2 2 2 2 2 2 3 1 1 1 }3 1 0 0 0 0 1 0 1 0 
2 2 17 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 
1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Headin
g 1" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 
1 }1 1 0 0 6 6 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 257 1 {CSTYLE "" 
-1 -1 "Times" 1 14 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 
2 0 1 }{PSTYLE "Normal" -1 258 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 
1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {PARA 17 "" 0 "" {TEXT -1 39 "     Paradigms in Physics: Oscil
lations" }}{PARA 17 "" 0 "" {TEXT -1 0 "" }}{PARA 17 "" 0 "" {TEXT -1 
77 "© 2001 Oregon State University                       version Nov 1
6, 2001 DMc" }}{PARA 17 "" 0 "" {TEXT -1 0 "" }}{PARA 17 "" 0 "" 
{TEXT -1 6 "      " }}{PARA 18 "" 0 "" {TEXT -1 39 "Fourier Coefficien
ts for Triangle Waves" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 
257 "> " 0 "" {MPLTEXT 1 0 20 "restart:with(plots):" }}{PARA 7 "" 1 "
" {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}
}{EXCHG {PARA 257 "> " 0 "" {MPLTEXT 1 0 69 "f(t):=piecewise(t<=-1/2,-
4*t-3,t<0,4*t+1,t<=1/2,-4*t+1, t>1/2,4*t-3);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%\"fG6#%\"tG-%*PIECEWISEG6&7$,&F'!\"%\"\"$!\"\"1F'#F/
\"\"#7$,&F'\"\"%\"\"\"F62F'\"\"!7$,&F'F-F6F61F'#F6F27$,&F'F5F.F/2F<F'
" }}}{EXCHG {PARA 257 "> " 0 "" {MPLTEXT 1 0 52 "plot(f(t),t=-1..1,-1.
2..1.2,color=blue,thickness=3);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 
300 {PLOTDATA 2 "6'-%'CURVESG6#7Y7$$!\"\"\"\"!$\"\"\"F*7$$!3ommm;p0k&*
!#=$\"3ummmmwAc#)F07$$!3vKL$3<XZ=*F0$\"3+JLL$o!)*QnF07$$!3mmmmT%p\"e()
F0$\"3mmmmmxnK]F07$$!3:mmm\"4m(G$)F0$\"3gkmmmV1:LF07$$!3\"QLL3i.9!zF0$
\"3BNLL$[9cg\"F07$$!3\"ommT!R=0vF0$\"3PBnmm;ct?!#?7$$!3u****\\P8#\\4(F
0$!3(4+++l9.i\"F07$$!3*pmmT?F1n'F0$!3/KLL$=\"\\<LF07$$!3[++](y$pZiF0$!
31)*****\\[A4]F07$$!33LLL$yaE\"eF0$!3qnmmm3Q\\nF07$$!3hmmm\">s%HaF0$!3
aLLLL76#G)F07$$!3]LL$3x&y8_F0$!3+mmm;p&[9*F07$$!3Q+++]$*4)*\\F0$!3a,++
+uR#***F07$$!3E++++t_\"y%F0$!3.,+++#4h7*F07$$!38+++]_&\\c%F0$!3_++++5#
)f#)F07$$!30+++]1aZTF0$!3?++++E;!f'F07$$!3umm;/#)[oPF0$!3(pmmm\"G&R2&F
07$$!3hLLL$=exJ$F0$!3WMLLLF.rKF07$$!3)RLLLtIf$HF0$!3%fLLL$HsV<F07$$!3]
++]PYx\"\\#F0$\"3/+)*****\\9!H$FL7$$!3EMLLL7i)4#F0$\"3)Gmmm1:bg\"F07$$
!3c****\\P'psm\"F0$\"3s,++]9#4L$F07$$!3')****\\74_c7F0$\"3a+++]j\"R(\\
F07$$!3)3LLL3x%z#)!#>$\"3knmmm\"4#)o'F07$$!3KMLL3s$QM%F_s$\"3Fmmm;^Yi#
)F07$$!3T,+]ivF@AF_s$\"3V*****\\(*)[6\"*F07$$!3\\^omm;zr)*!#@$\"3fKLLL
G^g**F07$$\"3@CL$3-Dg5#F_s$\"3Jqmm\"***ed\"*F07$$\"3%pJL$ezw5VF_s$\"3A
tmm;Gpv#)F07$$\"3s*)***\\PQ#\\\")F_s$\"37/++]YISnF07$$\"3GKLLe\"*[H7F0
$\"3*3nmmOV?3&F07$$\"3H*******pvxl\"F0$\"3\"G+++?(*)oLF07$$\"3#z****\\
_qn2#F0$\"3I3+++z\"Hp\"F07$$\"3U)***\\i&p@[#F0$\"3)*G1++]<KrFL7$$\"3A)
****\\2'HKHF0$!3!H******H%=H<F07$$\"3ElmmmZvOLF0$!3/hmmm!>qM$F07$$\"3h
******\\2goPF0$!3W)*******HSu]F07$$\"3UKL$eR<*fTF0$!3oHLL$ep'RmF07$$\"
3l******\\)Hxe%F0$!3m)******R>4N)F07$$\"36KLeR*)**)y%F0$!3YGLLed*f:*F0
7$$\"3ckm;H!o-*\\F0$!3Eemm;@2h**F07$$\"3nJL$3A_1?&F0$!3Itmm;6R(>*F07$$
\"3y)***\\7k.6aF0$!3([+++NaeN)F07$$\"3#emmmT9C#eF0$!3uOLLLBM5nF07$$\"3
2****\\i!*3`iF0$!3q.++]Pk()\\F07$$\"3%QLLL$*zym'F0$!3jkmmm-[GLF07$$\"3
wKLL3N1#4(F0$!3%*ommmfuJ;F07$$\"3Mmm;HYt7vF0$\"3!z`mmm^Q4&FL7$$\"3Y***
****p(G**yF0$\"3'y******z]rf\"F07$$\"3]mmmT6KU$)F0$\"3)fmmmc%GpLF07$$
\"3fKLLLbdQ()F0$\"3OILLL@Ia\\F07$$\"3Z++]i`1h\"*F0$\"3!>+++XhUk'F07$$
\"3W++]P?Wl&*F0$\"3v,++]\"o<E)F07$F+F+-%'COLOURG6&%$RGBG$F*F*Fi\\l$\"*
++++\"!\")-%+AXESLABELSG6$Q\"t6\"Q!6\"-%*THICKNESSG6#\"\"$-%%VIEWG6$;F
(F+;$!#7F)$\"#7F)" 1 2 0 1 10 3 2 6 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 257 "> " 0 "" {MPLTEXT 1 0 
55 "g(t) := sum ('a[2*k-1]*cos((2*k-1)*omega*t)','k'=1..3);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>-%\"gG6#%\"tG,(*&&%\"aG6#\"\"\"F--%$cosG6#*
&%&omegaGF-F'F-F-F-*&&F+6#\"\"$F--F/6#,$F1F6F-F-*&&F+6#\"\"&F--F/6#,$F
1F=F-F-" }}}{EXCHG {PARA 257 "> " 0 "" {MPLTEXT 1 0 13 "Period := 1 ;
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'PeriodG\"\"\"" }}}{EXCHG {PARA 
257 "> " 0 "" {MPLTEXT 1 0 21 "omega := 2*Pi/Period;" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%&omegaG,$%#PiG\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 60 "for i from 1 to 5 by 2 do\n   a[i] := 8/(Pi^2*i^2)  ;
\nend do;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"aG6#\"\"\",$*&F'F'*$
)%#PiG\"\"#F'!\"\"\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"aG6#\"
\"$,$*&\"\"\"F**$)%#PiG\"\"#F*!\"\"#\"\")\"\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"aG6#\"\"&,$*&\"\"\"F**$)%#PiG\"\"#F*!\"\"#\"\")\"#
D" }}}{EXCHG {PARA 257 "> " 0 "" {MPLTEXT 1 0 73 "plot([f(t),g(t)], t=
-1..1, -1.2..1.2,color=[blue,black],thickness=[1,1]);" }}{PARA 13 "" 
1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6%7Y7$$!\"\"\"\"!$
\"\"\"F*7$$!3ommm;p0k&*!#=$\"3ummmmwAc#)F07$$!3vKL$3<XZ=*F0$\"3+JLL$o!
)*QnF07$$!3mmmmT%p\"e()F0$\"3mmmmmxnK]F07$$!3:mmm\"4m(G$)F0$\"3gkmmmV1
:LF07$$!3\"QLL3i.9!zF0$\"3BNLL$[9cg\"F07$$!3\"ommT!R=0vF0$\"3PBnmm;ct?
!#?7$$!3u****\\P8#\\4(F0$!3(4+++l9.i\"F07$$!3*pmmT?F1n'F0$!3/KLL$=\"\\
<LF07$$!3[++](y$pZiF0$!31)*****\\[A4]F07$$!33LLL$yaE\"eF0$!3qnmmm3Q\\n
F07$$!3hmmm\">s%HaF0$!3aLLLL76#G)F07$$!3]LL$3x&y8_F0$!3+mmm;p&[9*F07$$
!3Q+++]$*4)*\\F0$!3a,+++uR#***F07$$!3E++++t_\"y%F0$!3.,+++#4h7*F07$$!3
8+++]_&\\c%F0$!3_++++5#)f#)F07$$!30+++]1aZTF0$!3?++++E;!f'F07$$!3umm;/
#)[oPF0$!3(pmmm\"G&R2&F07$$!3hLLL$=exJ$F0$!3WMLLLF.rKF07$$!3)RLLLtIf$H
F0$!3%fLLL$HsV<F07$$!3]++]PYx\"\\#F0$\"3/+)*****\\9!H$FL7$$!3EMLLL7i)4
#F0$\"3)Gmmm1:bg\"F07$$!3c****\\P'psm\"F0$\"3s,++]9#4L$F07$$!3')****\\
74_c7F0$\"3a+++]j\"R(\\F07$$!3)3LLL3x%z#)!#>$\"3knmmm\"4#)o'F07$$!3KML
L3s$QM%F_s$\"3Fmmm;^Yi#)F07$$!3T,+]ivF@AF_s$\"3V*****\\(*)[6\"*F07$$!3
\\^omm;zr)*!#@$\"3fKLLLG^g**F07$$\"3@CL$3-Dg5#F_s$\"3Jqmm\"***ed\"*F07
$$\"3%pJL$ezw5VF_s$\"3Atmm;Gpv#)F07$$\"3s*)***\\PQ#\\\")F_s$\"37/++]YI
SnF07$$\"3GKLLe\"*[H7F0$\"3*3nmmOV?3&F07$$\"3H*******pvxl\"F0$\"3\"G++
+?(*)oLF07$$\"3#z****\\_qn2#F0$\"3I3+++z\"Hp\"F07$$\"3U)***\\i&p@[#F0$
\"3)*G1++]<KrFL7$$\"3A)****\\2'HKHF0$!3!H******H%=H<F07$$\"3ElmmmZvOLF
0$!3/hmmm!>qM$F07$$\"3h******\\2goPF0$!3W)*******HSu]F07$$\"3UKL$eR<*f
TF0$!3oHLL$ep'RmF07$$\"3l******\\)Hxe%F0$!3m)******R>4N)F07$$\"36KLeR*
)**)y%F0$!3YGLLed*f:*F07$$\"3ckm;H!o-*\\F0$!3Eemm;@2h**F07$$\"3nJL$3A_
1?&F0$!3Itmm;6R(>*F07$$\"3y)***\\7k.6aF0$!3([+++NaeN)F07$$\"3#emmmT9C#
eF0$!3uOLLLBM5nF07$$\"32****\\i!*3`iF0$!3q.++]Pk()\\F07$$\"3%QLLL$*zym
'F0$!3jkmmm-[GLF07$$\"3wKLL3N1#4(F0$!3%*ommmfuJ;F07$$\"3Mmm;HYt7vF0$\"
3!z`mmm^Q4&FL7$$\"3Y*******p(G**yF0$\"3'y******z]rf\"F07$$\"3]mmmT6KU$
)F0$\"3)fmmmc%GpLF07$$\"3fKLLLbdQ()F0$\"3OILLL@Ia\\F07$$\"3Z++]i`1h\"*
F0$\"3!>+++XhUk'F07$$\"3W++]P?Wl&*F0$\"3v,++]\"o<E)F07$F+F+-%'COLOURG6
&%$RGBG$F*F*Fi\\l$\"*++++\"!\")-%*THICKNESSG6#F,-F$6%7gq7$F($\"+>_bI$*
!#57$$!+<p0k&*Ff]l$\"+kOh\"[)Ff]l7$$!+W5Su$*Ff]l$\"+-^f1xFf]l7$$!+r^u%
=*Ff]l$\"+y3([#oFf]l7$$!+2tXr*)Ff]l$\"+L`DCeFf]l7$$!+U%p\"e()Ff]l$\"+h
J!*)*[Ff]l7$$!+nxYV&)Ff]l$\"+7)om1%Ff]l7$$!+#4m(G$)Ff]l$\"+XG@)H$Ff]l7
$$!+@OS,zFf]l$\"+i[E8<Ff]l7$$!+/R=0vFf]l$\"+L$4\")G#!#77$$!+P8#\\4(Ff]
l$!+&z#)zs\"Ff]l7$$!+/siqmFf]l$!+QON+LFf]l7$$!+'\\g\"fkFf]l$!+'=%*p0%F
f]l7$$!+(y$pZiFf]l$!+tJ!\\([Ff]l7$$!+'Gu,.'Ff]l$!+?!=o\"eFf]l7$$!+$yaE
\"eFf]l$!+?SAPoFf]l7$$!+)[j5i&Ff]l$!++QzExFf]l7$$!+\">s%HaFf]l$!+xq!\\
])Ff]l7$$!+#)*G;K&Ff]l$!+`(*>`))Ff]l7$$!+rdy8_Ff]l$!+=j(\\6*Ff]l7$$!+m
T')f^Ff]l$!+D*y!4#*Ff]l7$$!+hD%f5&Ff]l$!+VA\"pF*Ff]l7$$!+b4-_]Ff]l$!+O
!zvJ*Ff]l7$$!+]$*4)*\\Ff]l$!+wy`I$*Ff]l7$$!+Pj&R%\\Ff]l$!+$4(\\:$*Ff]l
7$$!+DL\")*)[Ff]l$!+='[DF*Ff]l7$$!+7.nN[Ff]l$!+7(oA?*Ff]l7$$!++t_\"y%F
f]l$!+&*Rf0\"*Ff]l7$$!+v7CtYFf]l$!+@+ZQ))Ff]l7$$!+]_&\\c%Ff]l$!+vA'[[)
Ff]l7$$!+]zCcVFf]l$!+#)y:DwFf]l7$$!+]1aZTFf]l$!+-y/[mFf]l7$$!+FW,eRFf]
l$!+LB7jdFf]l7$$!+/#)[oPFf]l$!+]4LT\\Ff]l7$$!+$=exJ$Ff]l$!+ErOfKFf]l7$
$!+eW%o7$Ff]l$!+'pXhd#Ff]l7$$!+L2$f$HFf]l$!+3(e1&=Ff]l7$$!+%o_Qr#Ff]l$
!+([4QM*!#67$$!+PYx\"\\#Ff]l$\"+/W`IOFd`l7$$!+Mz>&H#Ff]l$\"+xosb*)Fail
7$$!+L7i)4#Ff]l$\"+X_;8<Ff]l7$$!+P'psm\"Ff]l$\"+24?7LFf]l7$$!+u_*=Y\"F
f]l$\"+*)y$p/%Ff]l7$$!+74_c7Ff]l$\"+hy\"*Q[Ff]l7$$!+5VBU5Ff]l$\"+&H%*>
w&Ff]l7$$!*3x%z#)Ff]l$\"+!)yaknFf]l7$$!+Srl6jFail$\"+*y?<o(Ff]l7$$!*?P
QM%Ff]l$\"+!o\\s[)Ff]l7$$!+ytb#G$Fail$\"+bY8M))Ff]l7$$!+bvF@AFail$\"+r
k9)4*Ff]l7$$!+Wwj!p\"Fail$\"+wE&[>*Ff]l7$$!+Lx**f6Fail$\"+g!*Hm#*Ff]l7
$$!+:#yNH'Fd`l$\"+9<d6$*Ff]l7$$!(\"zr)*Ff]l$\"+ou3I$*Ff]l7$$\"+&GyY_%F
d`l$\"+Jgt?$*Ff]l7$$\"+nNl.5Fail$\"+y-R#G*Ff]l7$$\"+1$R[b\"Fail$\"+]Qe
:#*Ff]l7$$\"+X]-1@Fail$\"+t1C@\"*Ff]l7$$\"+AlR3KFail$\"+j)[a&))Ff]l7$$
\")!o2J%!\"*$\"+\"=a\"*\\)Ff]l7$$\"++K+IiFail$\"+Mc<=xFf]l7$$\")%Q#\\
\")F^`m$\"+RNWEoFf]l7$$\"++l?A5Ff]l$\"++D=`eFf]l7$$\"*;*[H7F^`m$\"+>fn
\\\\Ff]l7$$\"+ICjV9Ff]l$\"+U*)H9TFf]l7$$\"*qvxl\"F^`m$\"+K6qXLFf]l7$$
\"*`qn2#F^`m$\"+ihM+=Ff]l7$$\"+X+ZzAFf]l$\"+c\\^H'*Fail7$$\"*cp@[#F^`m
$\"+sGgpyFd`l7$$\"+?GB2FFf]l$!+Uu/g!*Fail7$$\"*3'HKHF^`m$!+_$)GO=Ff]l7
$$\"+Da_MJFf]l$!+u)\\Ug#Ff]l7$$\"*xanL$F^`m$!+-6SELFf]l7$$\"*v+'oPF^`m
$!+W]zT\\Ff]l7$$\"+v!fU'RFf]l$!+!fz9z&Ff]l7$$\"*S<*fTF^`m$!+$[moq'Ff]l
7$$\"+DO#QP%Ff]l$!+q\">Sq(Ff]l7$$\"*&)Hxe%F^`m$!+j$)fl&)Ff]l7$$\"+&Rk$
)o%Ff]l$!+s%H8)))Ff]l7$$\"+S*)**)y%Ff]l$!+]6Y?\"*Ff]l7$$\"+7iJR[Ff]l$!
+VC%y?*Ff]l7$$\"+&[L'*)[Ff]l$!+.+Os#*Ff]l7$$\"+d2&*R\\Ff]l$!+u2F8$*Ff]
l7$$\"*.o-*\\F^`m$!+B15I$*Ff]l7$$\"+xS'G/&Ff]l$!+`Au@$*Ff]l7$$\"+D,Y&4
&Ff]l$!+$=npG*Ff]l7$$\"+sh0[^Ff]l$!+@j@E#*Ff]l7$$\"+?Al+_Ff]l$!+@bDS\"
*Ff]l7$$\"+:V%eI&Ff]l$!+%)\\G(*))Ff]l7$$\"*TO5T&F^`m$!+?5))p&)Ff]l7$$
\"+:as;cFf]l$!+s`0YxFf]l7$$\"*U9C#eF^`m$!+Xw%3z'Ff]l7$$\"+S<vPgFf]l$!+
K0M#y&Ff]l7$$\"*1*3`iF^`m$!+)[()G&[Ff]l7$$\"+&\\%[gkFf]l$!+pU7_SFf]l7$
$\"*$*zym'F^`m$!+'[Z+J$Ff]l7$$\"*^j?4(F^`m$!+&[7%R<Ff]l7$$\"*jMF^(F^`m
$\"+ors?cFd`l7$$\"*q(G**yF^`m$\"+T3y/<Ff]l7$$\"*9@BM)F^`m$\"+iG/YLFf]l
7$$\"+N$[/a)Ff]l$\"+O^bbSFf]l7$$\"*`v&Q()F^`m$\"+kN+>[Ff]l7$$\"+X/#)\\
*)Ff]l$\"++L-EdFf]l7$$\"*Ol5;*F^`m$\"+mHK7nFf]l7$$\"++PDj$*Ff]l$\"+Tdp
cwFf]l7$$\"*/Uac*F^`m$\"+Y1i'[)Ff]l7$F+Fd]l-Ff\\l6&Fh\\lF*F*F*F]]l-%+A
XESLABELSG6$Q\"t6\"Q!6\"-%%VIEWG6$;F(F+;$Fd`lF)$\"#7F)" 1 2 0 1 10 0 
2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}
{PARA 3 "" 0 "" {TEXT -1 0 "" }}}{MARK "5 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }