{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 "" 0 1 0 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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "pulse:=(x,a,b)->piec
ewise(x<a,0,x<b,1,0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "f:
=x->4*x*pulse(x,0,1/4)+(2-4*x)*pulse(x,1/4,1/2);" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 19 "#plot(f(x),x=0..1);" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 33 "F:=x->piecewise(x<0,-f(-x),f(x));" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(F(x),x=-1..1);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "u:=(x,t)->(1/2)*(F(x+t)+F(x-t));" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "#plot(u(x,0.7),x=-2..2);" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "with(plots):\nanimate( pl
ot, [u(x,t),x=-3..3], t=0..1.5, trace=0, frames=50 );" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9" 0 }{VIEWOPTS 1 1 0 
1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }