{VERSION 2 3 "DEC ALPHA UNIX" "2.3" } {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 "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 68 "toto:=proc() `a nice procedure` end: \ntoto(0):=`a remembered value`:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 16 "addressof(toto);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"+'4o$p`" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "`address of proc`:=addressof(eval(toto));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%0address~of~procG\"+g:Tp`" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 27 "pointto(`address of proc`);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#:6\"F$F$E\\s\"\"\"!%3a~remembered~valueG%1a~nice~proced ureGF$F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "`address of rem ember table`:=addressof(op(4,eval(toto)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%:address~of~remember~tableG\"+G\"o$p`" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "pointto(`address of remember table` );" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-%&TABLEG6#7#/\"\"!%3a~remembere d~valueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "toto:='toto';" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%totoGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "eval(toto);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#% %totoG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "pointto(`address \+ of proc`);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#:6\"F$F$E\\s\"\"\"!%3a~r emembered~valueG%1a~nice~procedureGF$F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "op(4,eval(toto));" }}{PARA 8 "" 1 "" {TEXT -1 40 "Err or, improper op or subscript selector" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "pointto(`address of remember table`);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-%&TABLEG6#7#/\"\"!%3a~remembered~valueG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 308 "dagsubs:=proc(u,expr)\n lo cal doit;\n doit:=proc(expr)\n option remember;\n if nops(expr) >1 then map(procname,expr)\n elif type(expr,function) then op(0,exp r)(procname(op(expr)))\n else expr\n fi\n end;\n doit(op(1,u)) :=op(2,u);\n [doit(expr),addressof(eval(doit)),addressof(op(4,eval(do it)))]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "e:=diff(exp (sin(x)),x$3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"eG,(*&-%$cosG6#% \"xG\"\"\"-%$expG6#-%$sinGF)F+!\"\"*(F/F+F'F+F,F+!\"$*&F'\"\"$F,F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "`bloody hell`:=dagsubs(x= Pi,e);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,bloody~hellG7%\"\"!\"+C#4 %p`\"+)3p$p`" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "eval(doit); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%doitG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "op(4,eval(doit));" }}{PARA 8 "" 1 "" {TEXT -1 40 " Error, improper op or subscript selector" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "pointto(`bloody hell`[2]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#:6#%%exprG6\"6#%)rememberGE\\s-*$-%$cosG6#%\"xG\"\"$!\" \"F0F0,$*(-%$sinGF-\"\"\"F+F5-%$expG6#F3F5!\"$\"\"!F6F5F/F/,$*&F+F5F6F 5F0F5F3F:,(FF0@'2F5-%%nopsG6#9$- %$mapG6$9!FE-%%typeG6$FE%)functionG--%#opG6$F:FE6#-FI6#-FPFDFEF&F&" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "pointto(`bloody hell`[3]); " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-%&TABLEG6#7./*&-%$cosG6#%\"xG\"\" $-%$expG6#-%$sinGF+\"\"\"!\"\"/F4F4/,$*&F)F3F.F3F4F3/F.F3/*$F)F-F4/F)F 4/F1\"\"!/!\"$F@/F,%#PiG/,$*(F1F3F)F3F.F3F@F>/F-F-/,(F8F4FEF@F(F3F>" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 360 "dagsubs:=proc(u,expr)\n \+ local doit,result;\n doit:=proc(expr)\n option remember;\n if n ops(expr)>1 then map(procname,expr)\n elif type(expr,function) then op(0,expr)(procname(op(expr)))\n else expr\n fi\n end;\n doit (op(1,u)):=op(2,u);\n result:=doit(expr);\n subsop(4=NULL,eval(doit) );\n[result,addressof(eval(doit)),addressof(op(4,eval(doit)))]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "`bloody hell`:=dagsubs(x= Pi,e);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,bloody~hellG7%\"\"!\"+_FZ p`\"+S1Ap`" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "pointto(`bloo dy hell`[2]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#:6#%%exprG6\"6#%)reme mberGF&@'2\"\"\"-%%nopsG6#9$-%$mapG6$9!F/-%%typeG6$F/%)functionG--%#op G6$\"\"!F/6#-F36#-F:F.F/F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "pointto(`bloody hell`[3]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 368 "dagseries:=proc(f,x)\n local doit,result;\n if nar gs>2 then Order:=args[3] fi;\n doit:=proc(f,x)\n option remember; \n if type(f,function) then\n readlib(`series/`.(op(0,f)))\n \+ (op(map(procname,[op(f)],x)),x)\n elif nops(f)>1 then\n \+ series(map(procname,f,x),x)\n else f\n fi\n end;\n result:=doi t(f,x);\n subsop(4=NULL,eval(doit));\n result\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "dagseries(diff(exp(sin(x)),x$3),x,1 0);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#+7%\"xG!\"$\"\"\"!\"%\"\"##!\" \"\"\"#\"\"$#\"\"(\"\"$\"\"%#\"$<#\"$?\"\"\"&#\"\"%\"#X\"\"'#!%^H\"%S] \"\"(#!#6\"#N\"\")#\"%\"*>\"'g47\"\"*-%\"OG6#\"\"\"\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "24 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }