{VERSION 5 0 "IBM INTEL LINUX" "5.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 14 0 
0 0 0 2 2 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R
3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 0 0 2 1 2 0 
0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 
257 1 {CSTYLE "" -1 -1 "Courier" 1 14 0 0 0 0 2 2 2 0 0 0 0 0 0 0 }0 
0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "phi:=x->x*(Pi-x);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "MAX:=20;" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 17 "b:=array(1..MAX);" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 24 "for n from 1 by 1 to MAX" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 5 "   do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "       b[n
]:=(2/Pi)*int(phi(x)*sin(n*x),x=0..Pi);" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 6 "   od;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "unassign('
n');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "psi:=x->3;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "B:=array(1..MAX);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "for n from 1 by 1 to MAX" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "   do" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 52 "          B[n]:=(2/Pi)*int(psi(x)*sin(n*x),x=0..Pi);" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 5 "  od;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "unassign('n');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 88 "u:=(t,x)->sum(b[k]*sin(k*x)*cos(k*t),k=1..MAX)+sum((B[k]/k)*si
n(k*x)*sin(k*t),k=1..MAX);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
31 "plot3d(u(t,x),x=0..Pi,t=0..10);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 43 "animate(u(t,x),x=0..Pi,t=0..10,frames=400);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "phi:=x->(x-1.5)^2*(2-x)^2;" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "for n from 1 by 1 to MAX
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "   do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 50 "       b[n]:=(2/Pi)*int(phi(x)*sin(n*x),x=1.5..2);" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "   od;" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 14 "unassign('n');" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "psi:=x->0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
24 "for n from 1 by 1 to MAX" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "   d
o" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "        B[n]:=(2/Pi)*int(psi(x
)*sin(n*x),x=0..Pi);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "  od;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "unassign('n');" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "u:=(t,x)->sum(b[k]*sin(k*x)*cos(k*t
),k=1..MAX)+sum((B[k]/k)*sin(k*x)*sin(k*t),k=1..MAX);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "plot3d(u(t,x),x=0..Pi,t=0..10);" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "animate(u(t,x),x=0..Pi,t=0.
.10,frames=400);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "phi:=x-
>0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "for n from 1 by 1 to
 MAX" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "   do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 49 "       b[n]:=(2/Pi)*int(phi(x)*sin(n*x),x=0..Pi);" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "   od;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "unassign('n');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 26 "psi:=x->(x-1.5)^2*(2-x)^2;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "for n from 1 by 1 to MAX" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 5 "   do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "       B[n
]:=(2/Pi)*int(psi(x)*sin(n*x),x=1.5..2);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 5 "  od;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "un
assign('n');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "u:=(t,x)->s
um(b[k]*sin(k*x)*cos(k*t),k=1..MAX)+sum((B[k]/k)*sin(k*x)*sin(k*t),k=1
..MAX);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "animate(u(t,x),x
=0..Pi,t=0..10,frames=400);" }}}}{MARK "30" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }