{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 2 
1 2 0 0 0 1 }{CSTYLE "_cstyle1" -1 204 "Courier" 1 12 255 0 0 1 2 1 2 
2 1 2 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 2 0 2 0 2 2 0 1 }{PSTYLE "Map
le 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 2 0 2 0 2 2 0 1 }{PSTYLE "_pstyle1" -1 200 1 
{CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 
0 0 0 2 0 2 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 11 "Digits:=20;" }}}
{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 7 "f:=x^2;" }}}{EXCHG {PARA 
200 "> " 0 "" {MPLTEXT 1 204 5 "L:=3;" }}}{EXCHG {PARA 200 "> " 0 "" 
{MPLTEXT 1 204 9 "terms:=5;" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 
204 10 "sinser:=0;" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 30 "f
or n from 1 by 1 to terms do " }}{PARA 200 "> " 0 "" {MPLTEXT 1 204 
45 "b[n]:=evalf(2/L*int(f*sin(n*Pi*x/L),x=0..L));" }}{PARA 200 "> " 0 
"" {MPLTEXT 1 204 41 "sinser:=sinser+b[n]*sin(n*evalf(Pi)*x/L);" }}
{PARA 200 "> " 0 "" {MPLTEXT 1 204 3 "od:" }}}{EXCHG {PARA 200 "> " 0 
"" {MPLTEXT 1 204 24 "plot(\{sinser,f\},x=0..L);" }}}{EXCHG {PARA 200 
"> " 0 "" {MPLTEXT 1 204 26 "cosser:=1/L*int(f,x=0..L):" }}}{EXCHG 
{PARA 200 "> " 0 "" {MPLTEXT 1 204 30 "for n from 1 by 1 to terms do \+
" }}{PARA 200 "> " 0 "" {MPLTEXT 1 204 45 "a[n]:=evalf(2/L*int(f*cos(n
*Pi*x/L),x=0..L));" }}{PARA 200 "> " 0 "" {MPLTEXT 1 204 41 "cosser:=c
osser+a[n]*cos(n*evalf(Pi)*x/L);" }}{PARA 200 "> " 0 "" {MPLTEXT 1 
204 3 "od:" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 24 "plot(\{co
sser,f\},x=0..L);" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 32 "fu
llser:=1/(2*L)*int(f,x=-L..L):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 30 "for n from 1 by 1 to terms do " }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 47 "fa[n]:=evalf(1/L*int(f*cos(n*Pi*x/L),x=-L..L)):" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 47 "fb[n]:=evalf(1/L*int(f*sin(n*Pi*x/L),x=-L..L))
:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "fullser:=fullser+fa[n]*cos(n*e
valf(Pi)*x/L)+fb[n]*sin(n*evalf(Pi)*x/L):" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "plot
(\{fullser,f\},x=-L..L);" }}}{PARA 13 "" 1 "" {TEXT -1 0 "" }}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 117 "Now repeat for other #s of terms and oth
er functions and point out various ideas:  x^3, exp(x), sqrt(x), x, 2,
 etc..." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 \+
0" 11 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }