{VERSION 3 0 "DEC ALPHA UNIX" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {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 -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 }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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "?optimize" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "?optimize/makeproc" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "f:=2*x^2*sin(x*ln(1+x))+sin(x^3+x*s in(x*ln(1+x)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG,&*&)%\"xG\" \"#\"\"\"-%$sinG6#*&F(\"\"\"-%#lnG6#,&F/F/F(F/F/F/F)-F,6#,&*$)F(\"\"$F *F/*&F(F/F+F/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "oldopt imf:=readlib(optimize)(f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*oldop timfG6'/%#t1G*$)%\"xG\"\"#\"\"\"/%#t3G-%#lnG6#,&\"\"\"F3F*F3/%#t5G-%$s inG6#*&F*F3F.F3/%$t11G-F76#,&*&F'F3F*F3F3*&F*F3F5F3F3/%$t12G,&*&F'F3F5 F3F+F;F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "newoptimf:=code gen[optimize](f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*newoptimfG6'/% #t1G*$)%\"xG\"\"#\"\"\"/%#t3G-%#lnG6#,&\"\"\"F3F*F3/%#t5G-%$sinG6#*&F* F3F.F3/%$t11G-F76#,&*&F'F3F*F3F3*&F*F3F5F3F3/%$t12G,&*&F'F3F5F3F+F;F3 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Optimf:=[oldoptimf]:" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "F:=codegen[makeproc](Optim f,[x]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"FGR6#%\"xG6'%#t1G%$t12G %$t11G%#t5G%#t3G6\"F.C'>8$*$)9$\"\"#\"\"\">8(-%#lnG6#,&\"\"\"F=F4F=>8' -%$sinG6#*&F4F=F8F=>8&-FA6#,&*&F1F=F4F=F=*&F4F=F?F=F=>8%,&*&F1F=F?F=F5 FEF=F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "F(t);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&)%\"tG\"\"#\"\"\"-%$sinG6#*&F&\"\" \"-%#lnG6#,&F-F-F&F-F-F-F'-F*6#,&*$)F&\"\"$F(F-*&F&F-F)F-F-F-" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 194 "for i to nops(Optimf) do\n \+ tosubs[op(1,Optimf[i])]:=\n series(subs([seq(j=tosubs[j],\n \+ j=seq(op(1,Optimf[k]),k=1..i-1))],\n op(2 ,Optimf[i])),\n x)\nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> &%'tosubsG6#%#t1G+%%\"xG\"\"\"\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>&%'tosubsG6#%#t3G+/%\"xG\"\"\"\"\"\"#!\"\"\"\"#\"\"##F*\"\"$\"\"$#F- \"\"%\"\"%#F*\"\"&\"\"&-%\"OG6#F*\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'tosubsG6#%#t5G+-%\"xG\"\"\"\"\"##!\"\"\"\"#\"\"$#F*\"\"$\"\" %#F-\"\"%\"\"&-%\"OG6#F*\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'t osubsG6#%$t11G++%\"xG\"\"#\"\"$#!\"\"F*\"\"%#\"\"\"\"\"$\"\"&-%\"OG6#F 0\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'tosubsG6#%$t12G++%\"xG\" \"#\"\"$#\"\"$F*\"\"%#!\"#F-\"\"&-%\"OG6#\"\"\"\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "series(F(x),x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#++%\"xG\"\"#\"\"$#\"\"$F%\"\"%#!\"#F(\"\"&-%\"OG6#\"\" \"\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "f:=2*x^2*sin(x*ln(1+x))+sin( x^3+x*sin(x*ln(1+x))):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "O ptimf:=[readlib(optimize)(f)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'O ptimfG7'/%#t1G*$)%\"xG\"\"#\"\"\"/%#t3G-%#lnG6#,&\"\"\"F3F*F3/%#t5G-%$ sinG6#*&F*F3F.F3/%$t11G-F76#,&*&F'F3F*F3F3*&F*F3F5F3F3/%$t12G,&*&F'F3F 5F3F+F;F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "printlevel:=2: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 555 "for i to nops(Optimf) \+ do\n expr:=op(2,Optimf[i]);\n if type(expr,function) then\n tosubs[ op(1,Optimf[i])]:=\n readlib(`series/`.(op(0,expr)))(op(subs([seq(j =tosubs[j],\n j=seq(op(1,Optimf[k]),k=1..i-1))],\n expr)),\n x)\n elif nops(expr)>1 then\n \+ tosubs[op(1,Optimf[i])]:=\n\nseries(subs([seq(j=tosubs[j],\n \+ j=seq(op(1,Optimf[k]),k=1..i-1))],\n expr),x )\n else \n subs([seq(j=tosubs[j],\n j=seq(o p(1,Optimf[k]),k=1..i-1))],\n expr)\n fi\nod;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%exprG*$)%\"xG\"\"#\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'tosubsG6#%#t1G+%%\"xG\"\"\"\"\"#" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%exprG-%#lnG6#,&\"\"\"F)%\"xGF)" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'tosubsG6#%#t3G+/%\"xG\"\"\"\"\"\"# !\"\"\"\"#\"\"##F*\"\"$\"\"$#F-\"\"%\"\"%#F*\"\"&\"\"&-%\"OG6#F*\"\"' " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%exprG-%$sinG6#*&%\"xG\"\"\"%#t3 GF*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'tosubsG6#%#t5G+-%\"xG\"\"\" \"\"##!\"\"\"\"#\"\"$#F*\"\"$\"\"%#F-\"\"%\"\"&-%\"OG6#F*\"\"'" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%exprG-%$sinG6#,&*&%#t1G\"\"\"%\"xGF +F+*&F,F+%#t5GF+F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'tosubsG6#%$t 11G++%\"xG\"\"#\"\"$#!\"\"F*\"\"%#\"\"\"\"\"$\"\"&-%\"OG6#F0\"\"'" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%exprG,&*&%#t1G\"\"\"%#t5GF(\"\"#%$t 11GF(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'tosubsG6#%$t12G++%\"xG\" \"#\"\"$#\"\"$F*\"\"%#!\"#F-\"\"&-%\"OG6#\"\"\"\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "subsop(4=NULL,eval(series)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 187 "dagsubs:=proc(u,expr)\n local doi t;\n doit:=proc(expr)\n option remember;\n if nops(expr)>1 then map(doit,expr)\n else expr\n fi\n end;\n doit(op(1,u)):=op(2, u);\n doit(expr)\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 306 "dagseries:=proc(f,x)\n local doit;\n if nargs>2 then Order:=args[3] fi;\n doit:=proc(f,x) \n option remember;\n if type(f,function) then\n readlib(`s eries/`.(op(0,f)))\n (op(map(doit,[op(f)],x)),x)\n elif nops (f)>1 then\n series(map(doit,f,x),x)\n else f\n fi\n end; \n doit(f,x)\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "dags eries(diff(exp(sin(x)),x$3),x,10);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# +7%\"xG!\"$\"\"\"!\"%\"\"##!\"\"\"\"#\"\"$#\"\"(\"\"$\"\"%#\"$<#\"$?\" \"\"&#\"\"%\"#X\"\"'#!%^H\"%S]\"\"(#!#6\"#N\"\")#\"%\"*>\"'g47\"\"*-% \"OG6#\"\"\"\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "20 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }