{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 "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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "01." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 15 "f[0]:=exp(x^2);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "02." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "f[1]:=d iff(f[0],x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "03." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "normal(f[1]/f[0]);" }}}{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;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "05." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "f[0] :=arcsin(x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "06." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "f[1]:=diff(f[0],x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "07." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "f[2]:=diff(f[1],x);" }}}{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));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "09." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "normal(op(3,ansatz) /op(2,ansatz));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "10." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "sol:=solve(\{op(3,ansatz)+op (2,ansatz)=0,op(1,ansatz)=0\},\{A[0],A[1]\});" }}}{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)));" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "12." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "collect(numer(normal(DE)),\{F(x),seq(diff(F(x),[x$j]) ,j=1..2)\})=0;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "13." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "read \"FPS.mpl\";" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "14." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "HolonomicDE(exp(x),F(x));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 " 15." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "HolonomicDE(arcsin(x ),F(x));" }}}{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)\};" }}}{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)); " }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "18." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "DE:=HolonomicDE(arcsin(x)^2+sin(x)^2,F(x));" }}} {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));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "20." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }