{VERSION 4 0 "SUN SPARC SOLARIS" "4.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 "" 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 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 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 26 "with(plots):with(DEt
ools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "I1:=1;\nI2:=2;\nI
3:=3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#I1G\"\"\"" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%#I2G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#
I3G\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "FPLOT:=fieldpl
ot3d([(I2-I3)/I1*O2*O3,(I3-I1)/I2*O3*O1,(I1-I2)/I3*O1*O2],O1=-1..1,O2=
-1..1,O3=-1..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 333 "SOLS:=
DEplot3d(\{diff(O1(t),t)=(I2-I3)/I1*O2*O3,diff(O2(t),t)=(I3-I1)/I2*O3*
O1,diff(O3(t),t)=(I1-I2)/I3*O1*O2\},[O1(t),O2(t),O3(t)],t=0..50,\{[O1(
0)=1,O2(0)=.1,O3(0)=.1],[O1(0)=.1,O2(0)=1,O3(0)=.1],[O1(0)=.1,O2(0)=1,
O3(0)=0],[O1(0)=-.1,O2(0)=1,O3(0)=-.1],[O1(0)=.1,O2(0)=.1,O3(0)=1]\},s
tepsize=.1,linecolor=[red,blue,gold,maroon,green]):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 79 "display(\{FPLOT,SOLS\},view=[-1.2..1.2,-1
.2..1.2,-1.2..1.2],scaling=constrained);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "?DEplot3d" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 
"?plot" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 0 0
" 0 }{VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }