{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "fs:=x->(2*L/Pi)*(sin
(Pi*x/L)-1/2*sin(2*Pi*x/L)+(1/3)*sin(3*Pi*x/L));" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 6 "L:=Pi;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 27 "plot(fs(x), x=-3*Pi..3*Pi);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 86 "fs:=x->(2*L/Pi)*(sin(Pi*x/L)-1/2*sin(2*Pi*x/L)+(1/3)*
sin(3*Pi*x/L)-1/4*sin(4*Pi*x/L));" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "plot(fs(x), x=-3*Pi..3*Pi);" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 104 "fs:=x->(2*L/Pi)*(sin(Pi*x/L)-1/2*sin(2*Pi*x/L)+
(1/3)*sin(3*Pi*x/L)-1/4*sin(4*Pi*x/L+1/5*sin(5*Pi*x/L)));" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "plot(fs(x), x=-3*Pi..3*Pi);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "fs:=x->(2*L/Pi)*(sin(Pi*x/L
)-1/2*sin(2*Pi*x/L)+(1/3)*sin(3*Pi*x/L)-1/4*sin(4*Pi*x/L)+1/5*sin(5*Pi
*x/L)-1/6*sin(6*Pi*x/L));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
27 "plot(fs(x), x=-3*Pi..3*Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 158 "fs:=x->(2*L/Pi)*(sin(Pi*x/L)-1/2*sin(2*Pi*x/L)+(1/3)*sin(3*Pi
*x/L)-1/4*sin(4*Pi*x/L)+1/5*sin(5*Pi*x/L)-1/6*sin(6*Pi*x/L)+1/7*sin(7*
Pi*x/L)-1/8*sin(8*Pi*x/L));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
27 "plot(fs(x), x=-3*Pi..3*Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "L=Pi;" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "tot := 0:\nfor i from 1 to \+
100 do\n   tot :=tot + (-1)^(i+1)* (2*L/Pi)*((1/i)*sin(i*Pi*x/L));end \+
do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "fs:=unapply(tot,x,L)
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plot(fs(x,Pi), x=-3*Pi
..3*Pi);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 15 "Another example" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 93 "tot := 0:\nfor i from 1  by 2 to 100 do\n   \+
tot :=tot +  (400/Pi)*((1/i)*sin(i*Pi*x/L));end do:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 21 "fs:=unapply(tot,x,L):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 23 "plot(fs(x,1), x=-1..1);" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}}{MARK "23" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 
0 1 2 33 1 1 }