{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 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 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 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 2 0 2 0 2 2 0 1 }{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 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "01." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 11 "with(gfun):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "02." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "DE1:=algeqtod iffeq(x^2+y^2-r^2,y(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$DE1G<$, &*&%\"xG\"\"\"-%\"yG6#F(F)!\"\"*&,&*$)F(\"\"#F)F)*$)%\"rGF2F)F-F)-%%di ffG6$F*F(F)F)/-F+6#\"\"!-%'RootOfG6#,&*$)%#_ZGF2F)F)F3F-" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "03." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "DE2:=algeqtodiffeq((y-r)^2+x^2-r^2,y(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$DE2G<%,(*&%\"xG\"\"\"%\"rGF)F)*&F(F)-%\"y G6#F(F)!\"\"*&,&*$)F(\"\"#F)F)*$)F*F4F)F/F)-%%diffG6$F,F(F)F)/--%\"DG6 #F-6#\"\"!F@/-F-F?-%'RootOfG6#*&%#_ZGF),&FGF)*&F4F)F*F)F/F)" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "diffeqtohomdiffeq(DE2,y(x)); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<%/--%\"DG6#%\"yG6#\"\"!F+/-F)F*-% 'RootOfG6#*&%#_ZG\"\"\",&F2F3*&\"\"#F3%\"rGF3!\"\"F3,&*&)F7\"\"$F3-%%d iffG6$-F)6#%\"xGFBF3F3*&,&*&F7F3)FBF6$F@-%\"$G6$ FBF6F3F3" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "04." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "DE3:=algeqtodiffeq((y^2-x^2)^4-x^2*y^2,y( x));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$DE3G<&/-%\"yG6#\"\"!F*,**& \"#X\"\"\"-F(6#%\"xGF.!\"\"*(\"#pF.F1F.-%%diffG6$F/F1F.F.*&,&*&\"%C5F. )F1\"\"'F.F.*&\"#aF.)F1\"\"#F.F2F.-F66$F/-%\"$G6$F1FAF.F.*&,&*&\"$c#F. )F1\"\"(F.F.*&\"#FF.)F1\"\"$F.F.F.-F66$F/-FE6$F1FPF.F./---%#@@G6$%\"DG FA6#F(F)F*/--FenFfnF)F*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "05." } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "diffeqtorec(op(1,DE1),y(x) ,a(k));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/-%\"aG6#\"\"\"\"\"!,&*&, &%\"kGF(F(!\"\"F(-F&6#F-F(F(*&,&*&)%\"rG\"\"#F(F-F(F.*&F6F(F4F(F.F(-F& 6#,&F-F(F6F(F(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "06." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "diffeqtorec(op(1,DE2),y(x),a (k));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<&/-%\"aG6#\"\"\"\"\"!/-F&6#F ),&*(\"\"#F()%\"rGF/F(&%#_CGF,F(!\"\"F1F(/-F&6#F/F2,&*&,&%\"kGF(F(F4F( -F&6#F;F(F(*&,&*&F0F(F;F(F4*&F/F(F0F(F4F(-F&6#,&F;F(F/F(F(F(" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "07." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "diffeqtorec(op(2,DE3),y(x),a(k));" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#<&/-%\"aG6#\"\"!F(/-F&6#\"\"\"F(,&*&,(*&\"$c#F,)%\"kG \"\"#F,F,*&\"$7&F,F3F,!\"\"*&F1F,)F3\"\"$F,F,F,-F&6#F3F,F,*&,*\"$J#F,* &\"$$RF,F3F,F,*&\"$*=F,F2F,F,*&\"#FF,F9F,F,F,-F&6#,&F3F,\"\"%F,F,F,/-F &6#F4F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 \+ 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }