{VERSION 2 3 "SUN SPARC SOLARIS" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "z:=0.1;h:=0.5;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zG$\"\"\"!\"\"" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"hG$\"\"&!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 7 "m:=h/z;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG$\"++
+++]!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "chi:=(a,b,x)->H
eaviside(x-a)*Heaviside(b-x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 69 "f:=x->chi(0.5-z,0.5,x)*(m*(x-0.5+z))+chi(0.5,0.5+z,x)*(-m*(x-0.5
-z));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG:6#%\"xG6\"6$%)operator
G%&arrowGF(,&*(-%$chiG6%,&$\"\"&!\"\"\"\"\"%\"zGF4F29$F5%\"mGF5,(F7F5$
!\"&F4F5F6F5F5F5*(-F/6%F2,&F2F5F6F5F7F5F8F5,(F7F5F:F5F6F4F5F4F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "L:=1;xrange:=0..1;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"LG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%'xrangeG;\"\"!\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 40 "plot(f(x),x=xrange,scaling=constrained);" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 6 "n:=15;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"n
G\"#:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "for k from 1 to n \+
by 1 do b[k]:=(2/L)*int(f(x)*sin(k*Pi*x/L),x=xrange);od;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"\"\"$\"+gM-=**!#6" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>&%\"bG6#\"\"#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>&%\"bG6#\"\"$$!+%[_8G*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"b
G6#\"\"%\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"\"&$\"+)o%
p0\")!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"\"'\"\"!" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"\"($!+=)yjc'!#6" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"\")\"\"!" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"bG6#\"\"*$\"+102\")[!#6" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"bG6#\"#5\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
&%\"bG6#\"#6$!+yM\\nK!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"bG6#
\"#7\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"#8$\"+98'Q!>!#
6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"#9\"\"!" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"#:$!+IuK1!*!#7" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 37 "h:=x->sum(b[j]*sin(j*Pi*x/L),j=1..n);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG:6#%\"xG6\"6$%)operatorG%&arrowG
F(-%$sumG6$*&&%\"bG6#%\"jG\"\"\"-%$sinG6#**F3F4%#PiGF49$F4%\"LG!\"\"F4
/F3;F4%\"nGF(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "plot(\{f
(x),h(x)\},x=xrange,scaling=constrained);" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 7 "c:=0.1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG$\"
\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "u:=(x,t)->sum(
b[j]*sin(j*Pi*x/L)*cos(c*j*Pi*t/L),j=1..n);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"uG:6$%\"xG%\"tG6\"6$%)operatorG%&arrowGF)-%$sumG6$*
(&%\"bG6#%\"jG\"\"\"-%$sinG6#**F4F5%#PiGF59$F5%\"LG!\"\"F5-%$cosG6#*,%
\"cGF5F4F5F:F59%F5F<F=F5/F4;F5%\"nGF)F)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 78 "animate(u(x,t),x=xrange,t=0..40,scaling=constrained,n
umpoints=200,frames=100);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 
"" }}}}{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }