{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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 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 }{PSTYLE "Warning" -1 7 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 
0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 
0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(plots);\n" }}
{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been r
edefined\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7fn%(animateG%*animate3d
G%-animatecurveG%&arrowG%-changecoordsG%,complexplotG%.complexplot3dG%
*conformalG%,conformal3dG%,contourplotG%.contourplot3dG%*coordplotG%,c
oordplot3dG%-cylinderplotG%,densityplotG%(displayG%*display3dG%*fieldp
lotG%,fieldplot3dG%)gradplotG%+gradplot3dG%,graphplot3dG%-implicitplot
G%/implicitplot3dG%(inequalG%,interactiveG%2interactiveparamsG%-listco
ntplotG%/listcontplot3dG%0listdensityplotG%)listplotG%+listplot3dG%+lo
glogplotG%(logplotG%+matrixplotG%)multipleG%(odeplotG%'paretoG%,plotco
mpareG%*pointplotG%,pointplot3dG%*polarplotG%,polygonplotG%.polygonplo
t3dG%4polyhedra_supportedG%.polyhedraplotG%'replotG%*rootlocusG%,semil
ogplotG%+setoptionsG%-setoptions3dG%+spacecurveG%1sparsematrixplotG%+s
phereplotG%)surfdataG%)textplotG%+textplot3dG%)tubeplotG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "conformal(z+0.3*sin(z)/(z+2*I), z=
0..(1+I),-2-2*I..2+2*I,grid=[10,10],numxy=[100,100],scaling=constraine
d);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 148 "animate(conformal,[
z+0.01*t*sin(z)/(z+2*exp(I*t)), z=0..(1+I),-2-2*I..2+2*I,grid=[10,10],
numxy=[100,100]],t=0..6*Pi,scaling=constrained,frames=100);" }}{PARA 
7 "" 1 "" {TEXT -1 33 "Warning, computation interrupted\n" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "#plotsetup(x11);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 251 "for i from 1 to 100 do\nplotsetup(jpeg, \+
plotoptions=\"height=600,width=800\",plotoutput=cat(`movie/movie4/fram
e`,1000+i,`.jpg`));conformal(sin(z-(i/300.0+0.5)*exp(I*Pi*i/100))/z, z
=0..(1+I)/sqrt(2),-3-3*I..3+3*I,grid=[10,10],numxy=[50,50]);\nprint(i)
;\nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"'" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\")" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#\"#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#6" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"#7" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#8" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#\"#9" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#:
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#\"#<" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#=" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"#>" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#?" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#@" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#\"#A" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#B" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"#C" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#D" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#\"#E" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#F
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#G" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#\"#H" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#I" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"#J" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#K" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#L" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#\"#M" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#N" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"#O" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#P" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#\"#Q" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#R
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#S" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#\"#T" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#U" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"#V" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#W" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#X" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#\"#Y" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#Z" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"#[" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#\\" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#\"#]" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning
, computation interrupted\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
6 "?plots" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "fieldplot3d([x
^2/(x^2+y^2),-y^2/(x^2+y^2), 1],x=1..11,y=1..11,z=1..11,grid=[5,5,5]);
\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "implicitdiff((x^2+y^2
+z^2)=1,z,y$6);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&,**(\"$v'\"\"\"
)%\"yG\"\"#F()%\"zG\"\"%F(F(*(\"%v:F()F*F.F()F-F+F(F(*&\"$X*F()F*\"\"'
F(F(*&\"#XF()F-F6F(F(F(F-!#6!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 75 "simplify(normal(subs(1-x^2-y^2=z^2,diff(sqrt(1-x^2-y^
2),x$6))),symbolic)-%;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*(\"#X\"\"
\",**&\"#@F&)%\"xG\"\"'F&F&*(\"#NF&)F+\"\"%F&)%\"zG\"\"#F&F&*(\"#:F&)F
+F3F&)F2F0F&F&*$)F2F,F&F&F&F2!#6!\"\"*&,**(\"$v'F&)%\"yGF3F&F7F&F&*(\"
%v:F&)FAF0F&F1F&F&*&\"$X*F&)FAF,F&F&*&F%F&F9F&F&F&F2F:F&" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "plotcompare( sin(x), x-x^3/6, x=-3.
.3, shift_range=10);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "plo
tsetup(x11);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK 
"3 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 
1 }