{VERSION 5 0 "IBM INTEL NT" "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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 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 }{EXCHG {PARA 0 "" 0 "" {TEXT -1 23 "Error function erf
(x)= " }{XPPEDIT 18 0 "2/Pi*int(exp(-t^2),t = 0 .. x);" "6#,$-%$intG6$
-%$expG6#,$*$)%\"tG\"\"#\"\"\"!\"\"/F-;\"\"!%\"xG*&F.F/%#PiGF0" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "plot(erf(x),x=0..10);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 37 "Complementary error function erf(x)= " }
{XPPEDIT 18 0 "1-2/Pi*int(exp(-t^2),t = 0 .. x);" "6#,&\"\"\"F$,$-%$in
tG6$-%$expG6#,$*$)%\"tG\"\"#F$!\"\"/F/;\"\"!%\"xG*&F0F$%#PiGF1F1" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "plot(erfc(x),x=0..10);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 113 "Complementary error function is the solu
tion of diffusion equation with continuous source at x=0, u(t,0)=const
ant" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "animate(erfc(x^2/t),x=0..5,t
=0.1..5,frames=100);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
}}{MARK "5" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }