{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 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 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 15 "f[0]:=exp(x^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"fG6#\"\"!-%$expG6#*$)%\"xG\"\"#\"\"\"" }}}{EXCHG {PARA 0 " " 0 "" {TEXT 200 3 "02." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " f[1]:=diff(f[0],x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"fG6#\"\"\" ,$*(\"\"#F'%\"xGF'-%$expG6#*$)F+F*F'F'F'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "03." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "normal( f[1]/f[0]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&\"\"#\"\"\"%\"xGF&F &" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "04." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "DE:=diff(F(x),x)-2*x*F(x)=0;" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#DEG/,&-%%diffG6$-%\"FG6#%\"xGF-\"\"\"*(\"\"#F.F-F. F*F.!\"\"\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "05." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "f[0]:=arcsin(x);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>&%\"fG6#\"\"!-%'arcsinG6#%\"xG" }}}{EXCHG {PARA 0 " " 0 "" {TEXT 200 3 "06." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " f[1]:=diff(f[0],x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"fG6#\"\"\" *&F'F'*$,&F'F'*$)%\"xG\"\"#F'!\"\"#F'F.F/" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "07." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "f[2]:=d iff(f[1],x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"fG6#\"\"#*&,&\"\" \"F**$)%\"xGF'F*!\"\"#!\"$F'F-F*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "08." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "ansatz:=subs(A[2] =1,sum(A[k]*f[k],k=0..2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'ansat zG,(*&&%\"AG6#\"\"!\"\"\"-%'arcsinG6#%\"xGF+F+*&&F(6#F+F+,&F+F+*$)F/\" \"#F+!\"\"#F7F6F+*&F3#!\"$F6F/F+F+" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "09." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "normal(op(3,a nsatz)/op(2,ansatz));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(%\"xG\"\" \",&F&!\"\"*$)F%\"\"#F&F&F(&%\"AG6#F&F(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "10." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "sol:=so lve(\{op(3,ansatz)+op(2,ansatz)=0,op(1,ansatz)=0\},\{A[0],A[1]\});" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$solG<$/&%\"AG6#\"\"!F*/&F(6#\"\"\"* &%\"xGF.,&F.!\"\"*$)F0\"\"#F.F.F2" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "11." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "DE:=subs(A[2] =1,subs(sol,A[0]*F(x)+sum(A[k]*diff(F(x),x$k),k=1..2)));" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#DEG,&*(%\"xG\"\"\",&F(!\"\"*$)F'\"\"#F(F(F*-% %diffG6$-%\"FG6#F'F'F(F(-F/6$F1-%\"$G6$F'F-F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "12." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "coll ect(numer(normal(DE)),\{F(x),seq(diff(F(x),[x$j]),j=1..2)\})=0;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#/,&*&%\"xG\"\"\"-%%diffG6$-%\"FG6#F&F& F'F'*&,&F'!\"\"*$)F&\"\"#F'F'F'-F)6$F+-%\"$G6$F&F3F'F'\"\"!" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "13." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "read \"FPS.mpl\";" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# %GPackage~Formal~Power~Series,~Maple~V-8G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%TCopyright~1995,~Dominik~Gruntz,~University~of~BaselG " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%^oCopyright~2002,~Detlef~M|gzller ~&~Wolfram~Koepf,~University~of~KasselG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "14." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "Holonom icDE(exp(x),F(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,&-%%diffG6$-% \"FG6#%\"xGF+\"\"\"F(!\"\"\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "15." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "HolonomicDE(arcsi n(x),F(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,&*&%\"xG\"\"\"-%%diff G6$-%\"FG6#F&F&F'F'*(,&F&F'F'!\"\"F',&F&F'F'F'F'-F)6$F+-%\"$G6$F&\"\"# F'F'\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "16." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "\{seq(HolonomicDE(arcsin(x)^k,F(x)) ,k=1..4)\};" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#<&/,&*&%\"xG\"\"\"-%%di ffG6$-%\"FG6#F'F'F(F(*(,&F'F(F(!\"\"F(,&F'F(F(F(F(-F*6$F,-%\"$G6$F'\" \"#F(F(\"\"!/,**()F0F8F()F2F8F(-F*6$F,-F66$F'\"\"%F(F(F&F(*&,&*&\"\"(F ()F'F8F(F(FCF1F(F3F(F(*,\"\"'F(F'F(F0F(F2F(-F*6$F,-F66$F'\"\"$F(F(F9/, (*(F0F(F2F(FKF(F(F)F(*(FOF(F'F(F3F(F(F9/,,*(F=F(F>F(-F*6$F,-F66$F'\"\" &F(F(F)F(*(\"#:F(F'F(F3F(F(*&,&*&\"#DF(FHF(F(\"#5F1F(FKF(F(*,F\\oF(F'F (F0F(F2F(F?F(F(F9" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "17." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "HolonomicDE(exp(alpha*x)+sin (beta*x),F(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,*-%%diffG6$-%\"FG 6#%\"xG-%\"$G6$F+\"\"$\"\"\"*()%%betaG\"\"#F0%&alphaGF0F(F0!\"\"*&F2F0 -F&6$F(F+F0F0*&F5F0-F&6$F(-F-6$F+F4F0F6\"\"!" }}}{EXCHG {PARA 0 "" 0 " " {TEXT 200 3 "18." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "DE:=H olonomicDE(arcsin(x)^2+sin(x)^2,F(x));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#DEG/,,*&,(*&\"\")\"\"\")%\"xG\"\"%F+F+*&\"#GF+)F-\"\"#F+F+\"# _F+F+-%%diffG6$-%\"FG6#F-F-F+F+**F.F+F-F+,(*&\"\"'F+F,F+F+*&\"#8F+F1F+ F+\"#PF+F+-F56$F7-%\"$G6$F-F2F+F+*&,**&F*F+)F-F=F+F+*&F2F+F,F+!\"\"*& \"#BF+F1F+F+\"\"(FKF+-F56$F7-FD6$F-\"\"$F+F+*(F-F+F;F+-F56$F7-FD6$F-F. F+F+**,&F-F+F+FKF+,&F-F+F+F+F+,(*&F2F+F,F+F+*$F1F+F+\"\"&F+F+-F56$F7-F D6$F-FinF+F+\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "19." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "applyrule([F(x)=arcsin(x)^2 +sin(x)^2,seq(diff(F(x),[x$k])=diff(arcsin(x)^2+sin(x)^2,[x$k]),k=1..5 )],lhs(DE));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,,*&,(*&\"\")\"\"\")% \"xG\"\"%F(F(*&\"#GF()F*\"\"#F(F(\"#_F(F(,&*(F/F(-%'arcsinG6#F*F(,&F(F (*$F.F(!\"\"#F8F/F(*(F/F(-%$cosGF5F(-%$sinGF5F(F(F(F(**F+F(F*F(,(*&\" \"'F(F)F(F(*&\"#8F(F.F(F(\"#PF(F(,**&F/F(F6F8F(**F/F(F3F(F6#!\"$F/F*F( F(*&F/F()F=F/F(F8*&F/F()F;F/F(F(F(F(*&,**&F'F()F*FBF(F(*&F/F(F)F(F8*& \"#BF(F.F(F(\"\"(F8F(,**(FBF(F6!\"#F*F(F(**FBF(F3F(F6#!\"&F/F*F/F(*(F/ F(F3F(F6FIF(*(F'F(F;F(F=F(F8F(F(*(F*F(F@F(,.*(\"#IF(F6FJF*F/F(*&F'F(F6 FYF(**F\\oF(F3F(F6#!\"(F/F*\"\"$F(**\"#=F(F3F(F6FenF*F(F(*&F'F(FLF(F(* &F'F(FNF(F8F(F(**,&F*F(F(F8F(,&F*F(F(F(F(,(*&F/F(F)F(F(F7F(\"\"&F(F(,. *(\"$5#F(F6!\"%F*FaoF(*(\"$5\"F(F6FJF*F(F(**F^pF(F6#!\"*F/F3F(F*F+F(** \"$!=F(F3F(F6F_oF*F/F(*(FcoF(F3F(F6FenF(*(\"#KF(F;F(F=F(F(F(F(" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "20." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"! " }}}{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 }