{VERSION 4 0 "IBM INTEL NT" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 0 0 255 1 0 2 0 0 1 0 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 "" 1 14 0 0 128 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 1 }{CSTYLE "" -1 256 "" 1 36 0 0 0 0 0 0 2 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 16 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times " 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 } {PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 2 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 1 3 1 } 1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE " " -1 -1 "Times" 1 16 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 16 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Tit le" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 12 128 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Normal" -1 258 1 {CSTYLE "" -1 -1 "Times" 1 16 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Title" -1 259 1 {CSTYLE "" -1 -1 "Times" 1 36 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }3 1 0 0 12 12 3 0 3 0 2 2 19 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 18 "" 0 "" {TEXT 256 17 "Inside Maple 6-13" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "restart; liste0:= sort([anames(procedure)]): with(li nalg): with(pldx): xlyse(); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%fopld x~~;~~author~:~~~;~~last~modif~(V6)~:~Jeu~09/08/20 01G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%N~les~routines~de~disassemblag e~sont~charg|dyes~G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 132 "dsk := proc(m) local j,k: print(dims= rowdim(m) ,coldim(m) ); \nfor j to r owdim(m) do for k to coldim(m) do \nprint(m[j,k]); od;od;end:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 145 "dskk:= proc (m) local j, k; print(dims = rowdim(m),coldim(m)); for j to rowdim(m) do for k to col dim(m) do lprint(m[j,k]) end do end do end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 407 "xvalue:= proc(qui_::uneval) global local_pro c, qui, funs_li, subs_li, bool; \nlocal_proc:= proc(z) local zz; zz:= \+ `value/define`(z): if zz=z then NULL else z=zz fi end;\nqui:= yjoli(ev al(qui_));\nfuns_li:= convert(map2(op, 0, indets(qui, 'function')), li st);\nsubs_li:= map(local_proc, funs_li); \ntry bool:= evalb(qui): if \+ type(bool, boolean) then return qui_, bool ; fi;\ncatch : end try;\nfu ns_li, subs_li; end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 838 "`pointtoo/orig`:= proc(z) \+ description \" z est l'addresse d'un objet \";\nlocal qui, qui2, disa, cut; global ANA;\nif nargs=2 then cut:= args[2] else cut:=25 fi; \n t ry writeto (\"c:/maplev6/temp/temp.txt\"); \n qui:= pointto(z);\n cat ch : return convert(\"* \"||(z)||\" *\", symbol);\n finally writeto(' terminal'); \n end try;\ndisa:= [disassemble(z)]; \n\nif disa=[27] the n return '` NULL`'\nelif member(disa[1], \{t2n(ITEM),t2n(HACH)\}) then return `*`||(ANA[disa[1]])||`*` \nelif disa[1]=t2n(TABL) then qui2:= \+ convert('Tab'(op(qui)), string) \nelif disa[1]=t2n(SEQU) then qui2:= c onvert('Seq'(qui), string);\nelse qui2:= convert(pointto(z),string); # qui ne serait pas r\351\351valu\351 \nfi;\ntry \nqui:= subs('loc'='L oc', 'lex'='Lex', parse(qui2));\ncatch: qui:= qui2;\nend try;\nconvert (eval(qui), symbol): if length(%) " 0 "" {MPLTEXT 1 0 873 "`pointtoo/ spec`:= proc(z) description \" z est l'addresse d'un objet \";\nlocal \+ qui, qui2, disa, cut; global ANA, global_cut;\nif not assigned(global_ cut) then global_cut:=50 fi;\nif nargs=2 then cut:= args[2] else cut:= global_cut fi; \n try writeto (\"c:/maplev6/temp/temp.txt\"); \n qui: = pointto(z);\n catch : return convert(\"* \"||(z)||\" *\", symbol); \n finally writeto('terminal'); \n end try;\ndisa:= [disassemble(z)]; \n\nif disa=[27] then return '` NULL`'\nelif member(disa[1], \{t2n(IT EM),t2n(HACH)\}) then return `*`||(ANA[disa[1]])||`*` \nelif disa[1]=t 2n(TABL) then return ('Tab'(op(pointto(z)))) \nelif disa[1]=t2n(SEQU) \+ then \n convert('Seq'(pointto(z)), string); if length(%)> cut \n the n return substring(%,1..cut) else return ('Seq'(pointto(z))); fi\nelse convert( pointto(z), string); if length(%)> cut \n then return subs tring(%,1..cut) else return pointto(z); fi\nfi;\nend :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "pointtoo:= eval(`pointtoo/spec`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "ana_x:= proc() ana_m(args ); (matrix@op)(%); end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&ana_xGR6 \"F&F&F&C$-%&ana_mG6#9\"--%\"@G6$%'matrixG%#opG6#%\"%GF&F&F&" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 51 "Stockage des nombres 01, 02, 03, 04, 06. 05=HWFL" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "maxint:= kernelopts(maximmed iate): xvalue(maxint=``(2)^30-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$/ %'maxintG,&*$)-%!G6#\"\"#\"#I\"\"\"F-F-!\"\"%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "ana_v(-45,1); ana_v(-maxint,1); ana_v(-ma xint-1,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$!#X-%'MATRIXG6#7$7$\"\" \"F#7$%%NINTG%(<~-45~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$!+B=ut5-%'M ATRIXG6#7$7$\"\"\"F#7$%%NINTG%0<~-1073741823~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$!+C=ut5-%'MATRIXG6#7$7&\"\"\"\"%C=\"%ut\"#57&%%NINTG%)< ~1824~>G%)<~7374~>G%'<~10~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "ana_v(45,1); ana_v(maxint,1);\nana_v(maxint+1,1); ana_v(10002000 3000,1);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#X-%'MATRIXG6#7$7$\"\" #F#7$%%PINTG%'<~45~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"+B=ut5-%'MA TRIXG6#7$7$\"\"#F#7$%%PINTG%/<~1073741823~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"+C=ut5-%'MATRIXG6#7$7&\"\"#\"%C=\"%ut\"#57&%%PINTG%)< ~1824~>G%)<~7374~>G%'<~10~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"-+I+ ?+5-%'MATRIXG6#7$7&\"\"#\"%+I\"%+?\"%+57&%%PINTG%)<~3000~>G%)<~2000~>G %)<~1000~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "ana_v(7/3, 1 ); ana_v((2^30-1)/(2^30),1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$#\"\"( \"\"$-%'MATRIXG6#7$7%F%\"#:F$7%%%FRACG7#F$7#F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$#\"+B=ut5\"+C=ut5-%'MATRIXG6#7$7%\"\"$\"+ZO[Z@\"(_da(7% %%FRACG7#F$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "ana_v(1234 .59689, 1); ana_v(1234.5968901, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 $$\"**ofM7!\"&-%'MATRIXG6#7$7%\"\"%\"*z$>pC!\"*7%%%REALG7#F$7#F%" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$$\",,*ofM7!\"(-%'MATRIXG6#7$7%\"\"%\"( #fzv!#87%%%REALGF$7#F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 " t2n(HWFL), addressof(1.2345678): qui:= assemble( %): ana_m(pointto(qui ), 1); ana_v(eval(pointto(qui)), 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#-%'MATRIXG6#7$7$\"\"&\"(;&*f(7$%%HWFLG$\")ycM7!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$$\"3]xGo;$*[;Y!$X\"-%'MATRIXG6#7$7%\"\"%\"(c3S(!$*G7 %%%REALGF$7#F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "ana_v(2-3 *I, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$^$\"\"#!\"$-%'MATRIXG6#7$7% \"\"'\"\"&!\"&7%%%CPLXG7#F$7#F%" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 47 "Noms et text es 07, 08, 10, 12, 11. 09=REFM" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "ana_v(\"ceci est...\",1);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$Q,ceci~est...6\"-%'MATRIXG6#7$7(\"\"(\"\"!\"(/(*G(\"+*p @\"o<\"+%e>P&>\"(yk-$7(%%TEXTG%#OOG%&~NULLG%0<~ceci~est...~>G%!GF5" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "ana_v(abcde,1);\n zz:=45: a na_v('zz', 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&abcdeG-%'MATRIXG6# 7$7'\"\")\"\"!\"(/(*G(\"+\\[B%o\"\"$,\"7'%%SYMBG%#OOG%&~NULLG%*<~abcde ~>G%!G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#X-%'MATRIXG6#7$7&\"\")\"# \"*\"(/(*G(\"&a8$7&%%SYMBG7#F#%&~NULLG%'<~zz~>G" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 "ana_v(ttt[1],1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%$tttG6#\"\"\"-%'MATRIXG6#7$7%\"#5\"(7*zv\")7f:87%%%INDXGF$-%$S eqGF%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "cat(a, b..c): ana_ v(%,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$(%\"aG;%\"bG%\"cG-%'MATRIXG 6#7$7%\"#7\")O(\\J\"\"(ofn(7%%%JOINGF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "ana_v(x::array,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 $'%\"xG%&arrayG-%'MATRIXG6#7$7%\"#6\")'p\\J\"\")#f?J\"7%%%TYPEGF$F%" } }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 52 "Op\351rations \351l\351mentaires 13, 14, 15=DEVL, 16, \+ 17=GALF" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "ana_v(x^y,1); x^ (2+t): ana_v(%,1); ana_v(expand(%),1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$)%\"xG%\"yG-%'MATRIXG6#7$7%\"#8\")'p\\J\"\")SoB87%%%POWRGF$F%" } }{PARA 11 "" 1 "" {XPPMATH 20 "6$)%\"xG,&\"\"#\"\"\"%\"tGF'-%'MATRIXG6 #7$7%\"#8\")'p\\J\"\"(!=:w7%%%POWRGF$F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$*&)%\"xG\"\"#\"\"\")F%%\"tGF'-%'MATRIXG6#7$7'\"#9\")'p\\J\"\"\"& \"(/Wz(\"\"$7'%%MULTGF%7#F&F(7#F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "for k in [3, -3, 3/2, 3.5] do ana_v(x^k, 'anap'): pri nt(%,` `, ana0(anap[3])): od:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6& *$)%\"xG\"\"$\"\"\"-%'MATRIXG6#7$7%\"#9\")'p\\J\"\"\"(7%%%MULTGF%7#F&% '~~~~~~G7$%%PINTG%&<~3~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&*&\"\"\"F $*$)%\"xG\"\"$F$!\"\"-%'MATRIXG6#7$7%\"#9\")'p\\J\"!\"&7%%%MULTGF'7#! \"$%'~~~~~~G7$%%NINTG%'<~-3~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&*$)% \"xG#\"\"$\"\"#\"\"\"-%'MATRIXG6#7$7%\"#9\")'p\\J\"\")3hf87%%%MULTGF%F &%'~~~~~~G7%%%FRACG7#F'7#F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&*$)%\"x G$\"#N!\"\"\"\"\"-%'MATRIXG6#7$7%\"#9\")'p\\J\"\"(/K!y7%%%MULTGF%F&%'~ ~~~~~G7%%%REALG7#F'7#F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " ana_v(x^(2^30-1)*y^(2^30),1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$*&)% \"xG\"+B=ut5\"\"\")%\"yG\"+C=ut5F'-%'MATRIXG6#7$7'\"#9\")'p\\J\"\"+ZO[ Z@\")SoB8\"(_da(7'%%MULTGF%7#F&F)F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "ana_v(3*x+(2^30)*y^2+3+3*I, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,(%\"xG\"\"$*&\"+C=ut5\"\"\")%\"yG\"\"#F(F(^$F%F%F(-%'M ATRIXG6#7$7)\"#;\")'p\\J\"\"\"(\"(?(Gy\"(_da(\"(_(GyF%7)%%CLINGF$7#F%* $F)F(F'F,7#F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "1/(1-2*x*z+z^2): expand(seri es(%,z,4)); ana_m(%, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#+-%\"zG\" \"\"\"\"!,$%\"xG\"\"#F%,&!\"\"F%*&\"\"%F%)F(F)F%F%F),&F(!\"%*&\"\")F%) F(\"\"$F%F%F4-%\"OG6#F%F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIX G6#7$7.\"#:\")g>_8\"\"$\"\"!\"(%eRy\"\"\"\"(%G\"z(\"\"#\")'pkO\"F*\")# R`J\"\"\"%7.%%DEVLG%\"zG7#F-%&<~0~>G,$%\"xGF/%&<~1~>G,&!\"\"F-*&F2F-)F 9F/F-F-%&<~2~>G,&F9!\"%*&\"\")F-)F9F*F-F-%&<~3~>G-%\"OG6#F-%&<~4~>G" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "series(sin(x)/x^3,x); ana_ m(%,'anap9'); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#++%\"xG\"\"\"!\"##! \"\"\"\"'\"\"!#F%\"$?\"\"\"#-%\"OG6#F%\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7,\"#:\")'p\\J\"\"\"$!\"#\"([_s(\"\"!\"(3 as(\"\"#\")#R`J\"F*7,%%DEVLG%\"xG7#\"\"\"%'<~-2~>G#!\"\"\"\"'%&<~0~>G# F5\"$?\"%&<~2~>G-%\"OG6#F5%&<~3~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "ana0_m(anap9[9],1);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#-%'MATRIXG6#7$7%\"#=\")O'[J\"\")7f:87%%%FUNCG%\"OG-%$SeqG6#\"\"\"" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "series(sin(sqrt(x)),x,3); \+ ana_m(%, 'anap'); " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "ana0_m(anap[- 2], 'anap1'), ana0_m(anap1[2],1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#, **$-%%sqrtG6#%\"xG\"\"\"F)*&#F)\"\"'F)*$)F(#\"\"$\"\"#F)F)!\"\"*&#F)\" $?\"F))F(#\"\"&F1F)F)-%\"OG6#*$)F(F0F)F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7+\"#;\"(_+0)\"\"$\"(!=]s\"([_s(\"(c@N(\"(3as(\"(+ gM(F*7+%%CLING*$-%%sqrtG6#%\"xG\"\"\"7#F7*$)F6#F*\"\"#F7#!\"\"\"\"'*$) F6#\"\"&FU87%%%FUNCG%\"OG-%$SeqG6#*$)% \"xG\"\"$\"\"\"-F$6#7$7&\"\")\"\"!\")Sx48\"#z7&%%SYMBG%#OOG%*protected G%&<~O~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 140 "maxp := 46327 ;\na1 := modp1(ConvertIn(5*x^7+3*x^3-2,x), maxp): ana_v(a1, 1);\na2 : = modp1(ConvertIn(5*x^7+3*x^3-2,x), maxp+1): ana_v(a2, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%maxpG\"&Fj%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$d,%\"xG\"&Fj%`j_v!!$!!!&-%'MATRIXG6#7$7-\"#<\")'p\\J\"\"&bE*\"&D j%\"\"!F/\"\"$F/F/F/\"\"&7-%%GALFGF$7#F%F.F/F/F0F/F/F/F1" }}{PARA 11 " " 1 "" {XPPMATH 20 "6$d,%\"xG\"&Gj%\"&Ej%\"\"!F'\"\"$F'F'F'\"\"&-%'MAT RIXG6#7$7-\"#<\")'p\\J\"\"&dE*\"&`E*\"\"\"F3\"\"(F3F3F3\"#67-%%GALFGF$ 7#F%7#F&7#F'F:7#F(F:F:F:7#F)" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 36 "Relations 18,19,20,21,2 2,23,24,25,26" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ana_v(f(x), 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$-%\"fG6#%\"xG-%'MATRIXG6#7$7% \"#=\");0:8\")Gu;87%%%FUNCGF$-%$SeqGF%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ana_v(''x'',1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$% \"xG-%'MATRIXG6#7$7$\"#>\")'p\\J\"7$%%UNEVGF#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "ana(x=y,1);ana(x<>y,1); ana(x<=y,1); ana(x " 0 "" {MPLTEXT 1 0 45 "ana(x and y,1); ana(not x,1); ana(x or y,1); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6%3%\"xG%\"yG7%\"#C\")'p\\ J\"\")SoB87%%%AND_GF$F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%4%\"xG7$\"# D\")'p\\J\"7$%%NOT_GF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%5%\"xG%\"yG7 %\"#E\")'p\\J\"\")SoB87%%%ORELGF$F%" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 36 "Structures d e donn\351es 27, 28, 33, 34" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "ana(''a,b,1'', 'tmp'): ana0_m(tmp[2], 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7&\"#F\")O(\\J\"\")O,:8\"\"$7&%%SEQUG%\"a G%\"bG7#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "ana_v([1, b,c],1); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7%\"\"\"%\"bG%\"cG-%'MATR IXG6#7$7$\"#G\"(+-`(7$%%LISTG-%$SeqG6%F$F%F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "ana_v(a..b,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6$;%\"aG%\"bG-%'MATRIXG6#7$7%\"#L\")O(\\J\"\")O,:87%%%RANGGF$F%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "ana_v(\{a, b\},1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$<$%\"aG%\"bG-%'MATRIXG6#7$7$\"#M\"()odu7$%%S ET_G-%$SeqG6$F$F%" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {SECT 1 {PARA 3 "" 0 "" {TEXT -1 21 "Tables et hftb 35, 36" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "global_cut:=1000:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "ta:='ta': ta[1]:=123: ana_v( eval(ta), 1) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$-%&TableG6#7#/\"\"\"\"$B\"-%'MATR IXG6#7$7&\"#N\"(/(*G(\")g,78\"(/Ad(7&%%TABLG%&~NULLG%&falseG%'*HACH*G " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "mc:= array(1..2,4..5,7. .9, sparse, symmetric, [[[100,111]]]): ana_m( eval(mc), 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7&\"#N\"(;.c(\"(Sdh(\"(Wdb(7&% %TABLG-%$SeqG6$%'sparseG%*symmetricG-F/6%;\"\"\"\"\"#;\"\"%\"\"&;\"\"( \"\"*%'*HACH*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "ma:= arra y(1..2,4..5,7..9, [[[100,111]]]): ana_m( eval(ma), 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7&\"#N\"(/(*G(\"(Sdh(\"(GBl(7&%%TABL G%&~NULLG-%$SeqG6%;\"\"\"\"\"#;\"\"%\"\"&;\"\"(\"\"*%'*HACH*G" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "mb:= evalhf(ma): tmp0:= ana_ x(mb, 'anap');\n(transpose)(tmp0); " }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%%tmp0G-%'matrixG6#7$7/\"#O\"(#RMw\"(/(*G(\"(G*[wF,\"+2r[H;\"#7\"\" \"\"\"#\"\"%\"\"&\"\"(\"\"*7/%%HFTBG%($747DD8G%&~NULLG-%$SeqG6#-%'RTAB LEG6,\")7v58&%&floatG6#\"\")%&ArrayG%,rectangularG%(C_orderG7\"\"\"$;F 0F1;F2F3;F4F5F9F.F/F0F1F2F3F4F5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%' matrixG6#7/7$\"#O%%HFTBG7$\"(#RMw%($747DD8G7$\"(/(*G(%&~NULLG7$\"(G*[w -%$SeqG6#-%'RTABLEG6,\")7v58&%&floatG6#\"\")%&ArrayG%,rectangularG%(C_ orderG7\"\"\"$;\"\"\"\"\"#;\"\"%\"\"&;\"\"(\"\"*F-7$\"+2r[H;FL7$\"#7FN 7$FCFC7$FDFD7$FFFF7$FGFG7$FIFI7$FJFJ" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "ma:= matrix(2,3,[1,2,3,4,5]); ana_m(ma, 'anap'); ana0 _m(anap[2], 'anap1'); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#maG-%'mat rixG6#7$7%\"\"\"\"\"#\"\"$7%\"\"%\"\"&&F$6$F+F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7&\"\")\"(/Qq(\"(/(*G(\"&T\\#7&%%SYMBG-%$ TabG6%;\"\"\"\"\"#;F2\"\"$7'/6$F2F5F5/6$F2F3F3/6$F3F2\"\"%/6$F2F2F2/6$ F3F3\"\"&%&~NULLG%'<~ma~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRI XG6#7$7&\"#N\"(/(*G(\"(WRp(\"(O7!y7&%%TABLG%&~NULLG-%$SeqG6$;\"\"\"\" \"#;F3\"\"$%'*HACH*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "mb: = evalhf(ma); ana_x(mb, 'anap'):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% #mbG-%'RTABLEG6$\")'p5J\"-%'MATRIXG6#7$7%$\"\"\"\"\"!$\"\"#F0$\"\"$F07 %$\"\"%F0$\"\"&F0$F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "m a:= rtable(1..3, 1..2, frandom(-10..10)); tmp:= ana_x(%, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#maG-%'RTABLEG6$\"))3;J\"-%'MATRIXG6#7%7$$ \"3%[h4dEW6\"[!#<$\"3g8_V,I8`NF07$$!31?r)R]WTh)F0$\"3g,#Q2tBNo%F07$$!3 !f6I^'fE*[%F0$\"3+V>T6\"e(pSF0" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$t mpG-%'matrixG6#7$7-\"#O\")!GLM\"\")#H(48\"(o9&y\"(/(*G(\")=sx;\"\"'\" \"\"\"\"$F1\"\"#7-%%HFTBG%($CCF9C0G%)anythingG-%$SeqG6#-%'RTABLEG6$\") )3;J\"-%'MATRIXG6#7%7$$\"3%[h4dEW6\"[!#<$\"3g8_V,I8`NFF7$$!31?r)R]WTh) FF$\"3g,#Q2tBNo%FF7$$!3!f6I^'fE*[%FF$\"3+V>T6\"e(pSFF%&~NULLGF/F0F1F2F 1F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "maa:= ma[1]; ana_x(% , 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$maaG-%'RTABLEG6$\")7)zI\"- %'VECTORG6#7$$\"3%[h4dEW6\"[!#<$\"3g8_V,I8`NF/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7$7+\"#O\"(#*)Qz\")#H(48\"(KN\"y\"(/(*G(\") " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 " " 0 "" {TEXT -1 33 "Modules 09=REFM, 38=MODU, 37=CODM" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "global_cut:=30;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+global_cutG\"#I" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 126 "z5 := module() export plus, times; option opt; local locs;\n plus := (a,b) -> a + b mod 5; times := (a,b) -> a * b mod 5; \nend;" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#z5G`6$%%pl usG%×Gb6#%+thismoduleG6#%%locsG6#%$optG6$F'F(6\"F1F1F1F16#F-" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "ana_m(eval(z5), 'anap');" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7&\"#Q\"(/G-)\")[`P8\"(% [`z7&%%MODUG-%$SeqG6$%%plusG%×GQ?module~()~local~locs;~export~p6 \"-F/6#%%locsG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "ana0_m(an ap[3], 'anap1');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7,\" #P\"(_L&z\"(!G`z\"(#H`z\"(%oS!)\"(/(*G(F-F-F-F-7,%%CODMG-%$SeqG6#%+thi smoduleG-F16#%%locsG-F16#%$optG-F16$%%plusG%×G%&~NULLGF>F>F>F>" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 202 "plus:= 'plus': plus:= pro c() local x; z; end: \nadrs:= assemble(t2n(REFM), addressof(z5),addre ssof(plus)): \npointtoo(%); %; ana0_m(adrs, 'anap'); \nanap[3], ana0_m (anap[3], 'anaq');\nana0_m(anaq[2], 1); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#_%#z5G%%plusG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%plus G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7%\"\"*\"(_:)y\"(+) ey7%%%REFMG%#z5G%%plusG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"(+)ey-%'M ATRIXG6#7$7'\"\")\"(S<-)\"(/(*G(\"+7`2P>\"\"!7'%%SYMBGR6\"6#%\"xGF1F1% \"zGF1F1F1%&~NULLG%)<~plus~>G%!G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-% 'MATRIXG6#7%7+\"#K\"(/(*G(\")Gu;8F)F)\")g>_8F)F)F)7+%%PROCG%&~NULLG-%$ SeqG6#%\"xGF.F.%)<~code~>GF.F.F.7+%!G%%ArgsG%%LocsG%%OptsG%%RTabG%%Cod eG%%DescG%%GlobG%%LexiG" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 73 "Proc\351dures 32=proc, 40=lo op, 41=cond, 44=code, 48=retp, 49=brk_, 50=next " }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 15 "global_cut:=30:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "pointto(assemble(t2n(LOOP), seq(addressof(x||k), k=1. .4)));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "pointto(assemble(t2n(LOOP ), seq(addressof(x||k), k=1..6)));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "pointto(assemble(t2n(COND), seq(addressof(x||k), k=1..7)));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#?&%#x1G%#x2G%#x3G%#x4G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#?(%#x1G%#x2G%#x3G%#x4G%#x5G%#x6G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#@)%#x1G%#x2G%#x3G%#x4G%#x5G%#x6G%#x7G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "seq(pointto(assemble(t2n(ARGS),k))= ARGS[k], k=-2..0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%/9!&%%ARGSG6#!\" #/9\"&F&6#!\"\"/9#&F&6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 11 "Un exemple " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 165 "mypr:= proc(arg1) local x, loc1; g lobal glo1; ; \nfor loc1 from 1 to 15 by 2 do\nif loc1=3 then next ; \+ \nelif loc1=13 then break \nelse x:= 1 fi; \nod; return 2; \nend: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ana_m(eval(mypr), 'anap1' );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7%7+\"#K\"(_(3\")\"( 7v5)\"(/(*G(F+\"(SW8)F+\"()y3\")F+7+%%PROCG-%$SeqG6#%%arg1G-F16$%\"xG% %loc1G%&~NULLGF8%)<~code~>GF8-F16#%%glo1GF87+%!G%%ArgsG%%LocsG%%OptsG% %RTabG%%CodeG%%DescG%%GlobG%%LexiG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "ana0_m(anap1[6], 'anap2'); ana0_m(anap2[2], 'anap3'); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7%\"#W\")we<8\"(w(3 \")7%%%CODEGQ3for~loc[2]~by~2~to6\"O\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7)\"#S\")GXA8\"\"$\"\"&\"#J\")c-78\"(g1w( 7)%%LOOPG8%7#\"\"\"7#\"\"#7#\"#:%%trueGQ?if~loc[2]~=~3~then~next~elif~ l6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ana0_m(anap3[7], 'a nap4'); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7(\"#T\")'>% \\8\")GrL8\"(Wv5)\")?6Q8\"(gv5)7(%%CONDG/8%\"\"$\\/F1\"#8[>8$\"\"\"" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "ana0_m(anap4[3],1), ana0_m (anap4[5],1), ana0_m(anap2[3],1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%- %'MATRIXG6#7$7#\"#]7#%%NEXTG-F$6#7$7#\"#\\7#%%BRK_G-F$6#7$7$\"#[\"\"&7 $%%RETPG7#\"\"#" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 8 "Un autre" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }{MPLTEXT 1 0 86 "toto:= proc () local k; for k to 2 do for k to 2 do print(k^2) e nd do end do end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a na_m(toto, 'anap1');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$ 7'\"\")\"(;L'z\"(;[H(\"+%o,*p=\"\"!7'%%SYMBGQ?proc~()~local~k;~for~k~t o~2~do6\"%&~NULLG%)<~toto~>G%!G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ana0_m(anap1[2], 'anap2');\n" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#-%'MATRIXG6#7%7+\"#K\"(/(*G(\"(kLX(F)F)\")g]a8F)F)F)7+%%PROCG%&~NULL G-%$SeqG6#%\"kGF.F.%)<~code~>GF.F.F.7+%!G%%ArgsG%%LocsG%%OptsG%%RTabG% %CodeG%%DescG%%GlobG%%LexiG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ana0_m(anap2[6], 'anap3');\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-% 'MATRIXG6#7$7)\"#S\")%GnJ\"\"\"$F*\"\"&\")c-78\")!QVN\"7)%%LOOPG8$7#\" \"\"F17#\"\"#%%trueGQ?for~loc[1]~to~2~do~print(loc[16\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "assemble(t2n(CODE), seq(anap3[k], k =[2,4,5])): pointto(%);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#C%8$\"\" \"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "seq(ana0_m(anap3 [k],'anap4'),k=[2,4,5]);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%'MATRIXG6#7$7$\"#H\"\"\"7$%%LOCSG%&<~1~>G-F$6#7$7$\"\"#F)7$%%P INTGF,-F$6#7$7$F1F17$F3%&<~2~>G" }}}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 66 "Proc\351dures imbriqu\351es, et lexicals 30 = ARGS, 31 = LEXI, \+ 29 = LOCS" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "with(linalg): p ointtoo:= eval(`pointtoo/orig`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 314 "praa:= proc (pa,paa) global ga,gaa; local la,laa, pr bb;\n prbb:= proc(pb,pbb) global gb,gbb; local lb,lbb, prcc; \n pr cc:= proc(pc,pcc) global gd,gdd; local lc,lcc; \n print(pa,paa,ga ,gaa,la,laa,pb,pbb,gb,gbb,lb,lbb,pc,pcc,gd,gdd,lc,lcc); \n end;\n \+ prcc(pa,ga,la,pb,gb,lb);\n end:\n prbb(pa,ga,la);\nend: " }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "xmint(praa);" }}{PARA 6 "" 1 "" {TEXT -1 4 "praa" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#QC----------- ---~prcc~--------------6\"" }}{PARA 6 "" 1 "" {TEXT -1 60 "Names used \+ as global names, but not declared: : gb, gbb" }}{PARA 6 "" 1 "" {TEXT -1 60 "Local variables used before assigned : : lcc, lc" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#QC--------------~prbb~--------- -----6\"" }}{PARA 6 "" 1 "" {TEXT -1 56 "Declared global variables, bu t never used: : gbb" }}{PARA 6 "" 1 "" {TEXT -1 60 "Local vari ables used before assigned : : lb, lbb" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#QC--------------~praa~--------------6\"" }}{PARA 6 " " 1 "" {TEXT -1 60 "Local variables used before assigned : \+ : la, laa" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "ana_m(praa, ' anap1'); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7'\"\")\"(; Z'z\"(/(*G(\"+SixL;\"\"!7'%%SYMBG%:proc~(pa,~paa)~local~la,~G%&~NULLG% )<~praa~>G%!G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "res1:= ana 0_m(anap1[2], 'anap2');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%res1G-%' MATRIXG6#7%7+\"#K\")#*)Q;\"\"(cC*z\"(/(*G(F-\")3*Q;\"F-\")+\"R;\"F-7+% %PROCG-%$SeqG6$%#paG%$paaG-F36%%#laG%$laaG%%prbbG%&~NULLGF<%)<~code~>G F<-F36$%#gaG%$gaaGF<7+%!G%%ArgsG%%LocsG%%OptsG%%RTabG%%CodeG%%DescG%%G lobG%%LexiG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ana0_m(anap2 [6], 'anap3'); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7%\"# W\")C*Q;\"\")%3R;\"7%%%CODEG%3loc[3]~:=~proc~(pbG%3Loc[3](args[1],ga,G " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ana0_m(anap3[2],'anap4' ); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7%\"#R\")?b;8\"(O ]'z7%%%LOADG&%$LocG6#\"\"$%:proc~(pb,~pbb)~local~lb,~G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "res2:= ana0_m(anap4[3],'anap5');" } }{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%res2G-%'MATRIXG6#7%7+\"#K\")S*Q;\" \")_Fi6\"(/(*G(F-\")c*Q;\"F-\")o!R;\"\"(;^'z7+%%PROCG-%$SeqG6$%#pbG%$p bbG-F46%%#lbG%$lbbG%%prccG%&~NULLGF=%)<~code~>GF=-F46$%#gbG%$gbbG%:Seq (pa,args[1],la,Loc[1],G7+%!G%%ArgsG%%LocsG%%OptsG%%RTabG%%CodeG%%DescG %%GlobG%%LexiG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ana0_m(an ap5[6], 'anap6'); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7% \"#W\")s*Q;\"\")_!R;\"7%%%CODEG%3loc[3]~:=~proc~(pcG%3Loc[3](Lex[-1],g a,G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "ana0_m(anap6[2],'ana p7');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7%\"#R\")?b;8\" (w]'z7%%%LOADG&%$LocG6#\"\"$%:proc~(pc,~pcc)~local~lc,~G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "res3:= ana0_m(anap7[3],'anap8');" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%res3G-%'MATRIXG6#7%7+\"#K\")))*Q; \"\")/!R;\"\"(/(*G(F-\")?!R;\"F-\")O!R;\"\")#RU;\"7+%%PROCG-%$SeqG6$%# pcG%$pccG-F46$%#lcG%$lccG%&~NULLGF<%)<~code~>GF<-F46$%#gdG%$gddG%:Seq( pa,Lex[-1],paa,Lex[-3G7+%!G%%ArgsG%%LocsG%%OptsG%%RTabG%%CodeG%%DescG% %GlobG%%LexiG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 175 "matrix([( op@map2)(op,[1,2],[res1,res2,res3]),op([1,3], res1)]):\ntmp:= subs(` N ULL`=``,%): linalg[submatrix](%, [4,1,2,3], [2,3,9,8]):\nlinalg[augmen t]([``, tata,toto,tutu],%);;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'mat rixG6#7&7'%!G%%ArgsG%%LocsG%%LexiG%%GlobG7'%%tataG-%$SeqG6$%#paG%$paaG -F06%%#laG%$laaG%%prbbGF(-F06$%#gaG%$gaaG7'%%totoG-F06$%#pbG%$pbbG-F06 %%#lbG%$lbbG%%prccG%:Seq(pa,args[1],la,Loc[1],G-F06$%#gbG%$gbbG7'%%tut uG-F06$%#pcG%$pccG-F06$%#lcG%$lccG%:Seq(pa,Lex[-1],paa,Lex[-3G-F06$%#g dG%$gddG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ana0_m(anap2[9] ,'anap11');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7#\"#F7#% %SEQUG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ana0_m(anap5[9],' anap12');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7+\"#F\"(s/ I(\")Cf:8\"(c%[t\")%GnJ\"\"(;>*z\")ot;8\")#pA;\"\")GXA87+%%SEQUG%#paG& %%argsG6#\"\"\"%#laG&%$LocGF6%$paaG&F56#\"\"#%$laaG&F:F=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 124 "ana0_m(anap8[9],'anap13'): transp ose(op(%)): subsop(1=NULL, convert(%,listlist)):\nslp:=matrix(rowdim(% )/2, 4, map(op,%)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "s eq_lexi:=[disassemble(anap8[9])]: seq_args:=[disassemble(anap8[2])]:\n seq_locs:=[disassemble(anap8[3])]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 408 "subs(\nseq(pointto(assemble(t2n(LOCS), k))= pointto( seq_locs[k+1]), k=1..nops(seq_locs)-1),\nseq(pointto(assemble(t2n(ARGS ), k))= pointto(seq_args[k+1]), k=1..nops(seq_args)-1),\nseq(pointto(a ssemble(t2n(LEXI), k))= pointto(seq_lexi[k*2]), k=1..(nops(seq_lexi)-1 )/2),\nseq(pointto(assemble(t2n(LEXI),-k))= pointto(seq_lexi[k*2]), k= 1..(nops(seq_lexi)-1)/2),\npointto(anap8[6])); str1:= convert(eval(%,1 ), string):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%&printG64%#paG%$paaG% #gaG%$gaaG%#laG%$laaG%#pbG%$pbbG%#gbG%$gbbG%#lbG%$lbbG%#pcG%$pccG%#gdG %$gddG%#lcG%$lccG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "str2:= convert(pointto(anap8[6]), string): \nmap([op]@parse, [str1, str2]): \+ sub:= zip(`=`, op(%)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 127 "concat(subs(sub, lex=Lex, col(slp,2)), slp): \nstackmatrix([` L3`,adr _nom,nom,adr_val, ` V2`],%): la_sequence_lexicale_de_pcc=%;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%*z%$paaG\")'pS;\"&F16#!\"$7'&F16#\"\"$\"(c%[t %#laG\");(QK\"&F16#\"\"#7'&F16#\"\"%\")#pA;\"%$laaG\")g4k6FL7'&F16#!\" &\")7Fi6%#pbG\")Cf:8&%%argsG6#\"\"\"7'&F16#!\"'\")KFi6%$pbbG\")ot;8&FZ FI7'&F16#\"\"(\"(w%[t%#lbG\")%GnJ\"&%$LocGFen7'&F16#\"\")\")sFi6%$lbbG \")GXA8&FgoFI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 60 "Autres structures de programmation 46=err_, 47=try_, 51=u se_" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "pointtoo:= eval(`poin ttoo/spec`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 141 "mypr:= pro c(arg1) local f, l1; \nf := 12:\ntry a1;a2;\n catch \"FA\" : 1; erro r \"msg\";\n catch \"FB\" : 2; error ;\n finally t1; t2\nend try; end \+ : " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "ana_m(eval(mypr), ' anap'); ana0_m(anap[6], 'anap1');\nana0_m(anap1[1+2], 'anap2'); ana0_m (anap2[1+3], 'anap3'); ana0_m(anap3[1+2], 'anap4');" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#-%'MATRIXG6#7%7+\"#K\"(_(3\")\"(cS4)\"(/(*G(F+\"(;,t( F+F+F+7+%%PROCG-%$SeqG6#%%arg1G-F06$%\"fG%#l1G%&~NULLGF7%)<~code~>GF7F 7F77+%!G%%ArgsG%%LocsG%%OptsG%%RTabG%%CodeG%%DescG%%GlobG%%LexiG" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7%\"#W\"(K,t(\"(%Gpx7%%% CODEG>8$\"#7Q3try~a1;~a2~catch~\"6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#-%'MATRIXG6#7$7)\"#Z\")w;f8\"()e&z(\")#p\"f8\"(cA#y\")3 " 0 "" {MPLTEXT 1 0 65 "ana_v(f(a=a+b, b=a-b), 1); 51, op([1,1,3], %[2]), add ressof(a*b);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "adrs:= assemble(%): pointto(adrs), ana0_m(adrs, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$-% \"fG6$/%\"aG,&F'\"\"\"%\"bGF)/F*,&F'F)F*!\"\"-%'MATRIXG6#7$7%\"#=\");0 :8\")/JC87%%%FUNCGF$-%$SeqGF%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"#^ \")/JC8\"(7CT(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$*&,&%\"aG\"\"\"%\"bG F&F&,&F%F&F'!\"\"F&-%'MATRIXG6#7$7%\"#^\")/JC8\"(7CT(7%%%USE_G-%$SeqG6 $/F%F$/F'F(*&F%F&F'F&" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 25 "Compar aison avec whattype" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 544 "cut: = proc(str); searchtext(`elif`, str); \n if %=0 then args else procnam e(substring(str, %+4..-1), substring(str, 1..%-1), args[2..-1]); fi; e nd: \nstr1:= [cut(convert(eval(whattype),string))]:\nstr2:= map( proc( str); searchtext(`then '`, str); substring(str, %+6..-1) end, str1):\n str3:= map( proc(str); searchtext(`'`, str); substring(str, 1..%-1); e nd, str2):\nstr4:= map( proc(str); if searchtext(\"`\", str)=1 then su bstring(str, 2..-2) else str fi; end, str3):\nconvert(convert(%,set),l ist): map(convert,%,symbol): \nana_wtt:= sort(%): nops(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#P" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 249 "models:= [1, -1, 3/4, 123.1234, 1-I, \"ab\", `ab`, v[x], cat( a, b..c), f(x), a..b, a::function, a+b, a^2*b^5, x^y, \{a,b\}, [a,b], \+ a=b, a<>b, a%'modelsG7@\"\"\"!\"\"#\"\"$\"\"%$\"(M7B\"!\"%^$F&F 'Q#ab6\"%#abG&%\"vG6#%\"xG(%\"aG;%\"bG%\"cG-%\"fGF4;F7F9'F7%)functionG ,&F7F&F9F&*&)F7\"\"#F&)F9\"\"&F&*$)F5$\"+/GnM6!\"(F&<$F7F97$F7F9/F7F90 F7F92F7F91F7F93F7F95F7F94F7+'F5F&F&-%\"OG6#F&F)..%\"zG-%&TABLEG6#7#/F& F&RF0F0F0F0F0F0F0F0-%'RTABLEG6$\")))G78-%'MATRIXG6#7$7$\"#6\"#77$\"#8 \"#9`6\"b6#%+thismoduleGF0F0F0F0F0F0F0F06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "map(proc(z) whattype(z)=ana(z)[2,1] end, models): \+ sort(subs(%, ana_wtt));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7G%%AND_G%& ArrayG%%CLING%%CPLXG%%DEVLG%%EQUAG%%FRACG%%FUNCG%%HFTBG%%INDXG%%JOING% %LEQUG%%LESSG%%LISTG%%MODUG%%MULTGF3%%NEQUG%%NOT_G%%ORELG%%PINTG%%PROC G%%RANGG%%REALG%%SET_G%%SYMBG%%TABLG%%TEXTG%%TYPEG%%UNEVG%/Vector[colu mn]G%,Vector[row]G%&arrayG%(exprseqG%1extended_numericG%(hfarrayG%1mod uledefinitionG" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {SECT 0 {PARA 3 "" 0 "" {TEXT -1 18 "Fonctions built-in" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "unassign('transpose2','multiply2',' rtable_scan2');" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 91 "transpose 2:= proc() option builtin ; 248 end; matrix(3,4,(j,k)->x||j||k): %, tr anspose2(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+transpose2GR6\"F&6# %(builtinGF&\"$[#F&F&F&%1kernel/transposeG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$-%'matrixG6#7%7&%$x11G%$x12G%$x13G%$x14G7&%$x21G%$x22G% $x23G%$x24G7&%$x31G%$x32G%$x33G%$x34G-F$6#7&7%F(F-F27%F)F.F37%F*F/F47% F+F0F5" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 153 "multiply2:= proc( ) option builtin; 201; end;\nma:= Matrix([[1,2],[3,4]]): mb:= Matrix([ [11,12],[13,14]]): mc:= copy(%); multiply2(ma, mb, mc): ma, mb, mc;" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*multiply2GR6\"F&6#%(builtinGF&\"$, #F&F&F&%+mvMultiplyG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mcG-%'RTABL EG6$\")'4DJ\"-%'MATRIXG6#7$7$\"#6\"#77$\"#8\"#9" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%'RTABLEG6$\")ke78-%'MATRIXG6#7$7$\"\"\"\"\"#7$\"\"$\" \"%-F$6$\")o*HJ\"-F(6#7$7$\"#6\"#77$\"#8\"#9-F$6$\")'4DJ\"-F(6#7$7$\"# P\"#S7$\"#&)\"##*" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 161 "rtable _scan2:= proc() option builtin ; 226 end; \nrt:= rtable(1..2, 1..2, fr andom(100..200, 1)); rtable_scan2(rt, [1..2,1..2], x->assign('y',x+10) , x->print(y) ):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-rtable_scan2GR6 \"F&6#%(builtinGF&\"$E#F&F&F&%1rtable_scanblockG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#rtG-%'RTABLEG6$\")S?88-%'MATRIXG6#7$7$$\"3UBv\"\\?\" **e;!#:$\"33Iwg&3yps\"F07$$\"3)QwQ'fl*4O\"F0$\"3ooMp%yLpq\"F0" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+07**e " 0 "" {MPLTEXT 1 0 235 "pro1:= proc(fun); convert(e val(fun),string); \n if length(%)>50 or length(%) <8 then NULL \n els e searchtext(`;`,%); if %=0 then NULL \n else substring(%%, %+1..-1 ): searchtext(`end`, %): parse(substring(%%,1..%-2)) = fun fi \nfi; en d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "select(type, [anames( procedure)], builtin): liste:= sort(%);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&listeG7bv%\"$G%\"*G%#**G%\"+G%\"G%\"=G%\">G%#>=G%' ASSERTG%&ArrayG%-ArrayOptionsG%)CopySignG%&DEBUGG%)Default0G%0DefaultO verflowG%1DefaultUnderflowG%&ERRORG%-EqualEntriesG%/EqualStructureG%*F romInertG%#ImG%(MPFloatG%-MorrBrilCullG%*NextAfterG%+NormalizerG%-Nume ricClassG%-NumericEventG%4NumericEventHandlerG%.NumericStatusG%*Ordere dNEG%'RETURNG%#ReG%/SFloatExponentG%/SFloatMantissaG%(Scale10G%'Scale2 G%+SearchTextG%&TRACEG%(ToInertG%*UnorderedG%\"^G%$absG%$addG%*address ofG%&aliasG%'anamesG%$andG%)appendtoG%&arrayG%)assembleG%)assignedG%+a ttributesG%%bindG%.call_externalG%)callbackG%$catG%&coeffG%'coeffsG%*c onjugateG%(convertG%)crinterpG%*debugoptsG%0define_externalG%'degreeG% &denomG%%diffG%,disassembleG%'divideG%%doneG%(entriesG%%evalG%&evalbG% &evalfG%7evalf/hypergeom/kernelG%(evalgf1G%'evalhfG%&evalnG%'expandG%( exportsG%%fremG%)frontendG%#gcG%(genpolyG%%gotoG%$hasG%(hastypeG%(hfar rayG%)icontentG%#ifG%%igcdG%'ilog10G%&ilog2G%'indetsG%(indicesG%&inner G%+int/seriesG%*intersectG%&iolibG%%iquoG%%iremG%&isqrtG%1kernel/trans poseG%+kerneloptsG%'lcoeffG%(ldegreeG%'lengthG%)lexorderG%$lhsG%'lprin tG%¯oG%$mapG%%map2G%$maxG%(maxnormG%'memberG%$minG%&minusG%%modpG% &modp1G%&modp2G%%modsG%$mulG%+mvMultiplyG%'negateG%%nopsG%'normalG%$no tG%*numboccurG%&numerG%#opG%#orG%&orderG%&parseG%(pointtoG%&printG%%qu itG%(readlibG%'removeG%$rhsG%'rtableG%+rtableInfoG%.rtable_indfnsG%/rt able_is_zeroG%7rtable_normalize_indexG%0rtable_num_dimsG%1rtable_num_e lemsG%/rtable_optionsG%1rtable_scanblockG%4rtable_sort_indicesG%+searc htextG%'selectG%-selectremoveG%$seqG%'seriesG%-setattributeG%%signG%%s ortG%(ssystemG%%stopG%+streamcallG%%subsG%'subsopG%*substringG%'system G%&tableG%'taylorG%'tcoeffG%%timeG%*timelimitG%%totoG%*traperrorG%&tru ncG%%typeG%*typematchG%'unamesG%'unbindG%&unionG%)userinfoG%(writetoG% #|gr|grG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "ta1:= 77: ta2:= 258: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "res:= map(pro1, l iste): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "ta:= table(res): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "pas_trouve:= [seq( (pro c(k) if not assigned(ta[k]) then k else NULL fi end)(k), k=ta1+1..ta2- 1)]; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+pas_trouveG7\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 340 "nbif:= NULL: for k from ta1 +1 to ta2-1 do \nif member(ta[k], \{DEBUG, print,lprint\}) then next f i;\nif member(ta[k], \{callback\}) then nbif:= nbif,k; next fi;\n toto := subs(kk=k, eval(proc() option builtin; kk; end) ); \n traperror(tot o( sin, series(sin(x),x), x=1 )); \n if %=\"not a built-in function \" then nbif:=nbif,k; fi; od: \nnbif:= [nbif];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%nbifG7&\"#&*\"$>\"\"$M\"\"$S\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 177 "matrix(37,5, [seq(``,k=75..ta1),seq(ta[k],k= ta1+1..ta2-1),seq(``,k=ta2..259)]):\ntmp:= concat([seq(k*5, k=iquo(ta1 ,5)..iquo(ta2,5))],%, [seq(k*5+4, k=iquo(ta1,5)..iquo(ta2,5))]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "for k in nbif do iquo(k,5)- iquo(ta1,5)+1, irem(k,5)+2; tmp[%]:= `** `||(tmp[%])||` **`; od: eval( tmp);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7G7)\"#v%!GF)F)%& innerG%'ASSERTG\"#z7)\"#!)%\"*G%#**G%&ArrayG%-ArrayOptionsG%#|gr|grG\" #%)7)\"#&)%\"^G%)CopySignG%&DEBUGG%)Default0G%0DefaultOverflowG\"#*)7) \"#!*%1DefaultUnderflowG%\"=G%&ERRORG%-EqualEntriesG%/EqualStructureG \"#%*7)\"#&*%0**~FromInert~**G%\">G%#>=G%#ImG%\"G%(MPFloatG%-MorrBrilCullG%*NextAfterG\"$/\"7)\"$0\"%-NumericClassG% -NumericEventG%4NumericEventHandlerG%.NumericStatusG%*OrderedNEG\"$4\" 7)\"$5\"%\"+G%'RETURNG%#ReG%/SFloatExponentG%/SFloatMantissaG\"$9\"7) \"$:\"%(Scale10G%'Scale2G%+SearchTextG%&TRACEG%.**~ToInert~**G\"$>\"7) \"$?\"%*UnorderedG%$absG%$addG%*addressofG%&aliasG\"$C\"7)\"$D\"%'anam esG%$andG%)appendtoG%&arrayG%)assembleG\"$H\"7)\"$I\"%)assignedG%+attr ibutesG%%bindG%.call_externalG%/**~callback~**G\"$M\"7)\"$N\"%$catG%&c oeffG%'coeffsG%*conjugateG%(convertG\"$R\"7)\"$S\"%/**~crinterp~**G%*d ebugoptsG%0define_externalG%'degreeG%&denomG\"$W\"7)\"$X\"%%diffG%,dis assembleG%'divideG%\"$G%%doneG\"$\\\"7)\"$]\"%(entriesG%%evalG%&evalbG %&evalfG%(evalgf1G\"$a\"7)\"$b\"%'evalhfG%&evalnG%'expandG%(exportsG%% fremG\"$f\"7)\"$g\"%)frontendG%#gcG%(genpolyG%%gotoG%$hasG\"$k\"7)\"$l \"%(hastypeG%(hfarrayG%7evalf/hypergeom/kernelG%)icontentG%#ifG\"$p\"7 )\"$q\"%%igcdG%'ilog10G%&ilog2G%'indetsG%(indicesG\"$u\"7)\"$v\"%*inte rsectG%+int/seriesG%&iolibG%%iquoG%%iremG\"$z\"7)\"$!=%&isqrtG%+kernel optsG%'lcoeffG%(ldegreeG%'lengthG\"$%=7)\"$&=%)lexorderG%$lhsG%'lprint G%¯oG%$mapG\"$*=7)\"$!>%%map2G%$maxG%(maxnormG%'memberG%$minG\"$%> 7)\"$&>%&minusG%%modpG%&modp1G%&modp2G%%modsG\"$*>7)\"$+#%$mulG%+mvMul tiplyG%'negateG%%nopsG%'normalG\"$/#7)\"$0#%$notG%*numboccurG%&numerG% #opG%#orG\"$4#7)\"$5#%&orderG%&parseG%(pointtoG%&printG%%quitG\"$9#7) \"$:#%(readlibG%'removeG%$rhsG%'rtableG%+rtableInfoG\"$>#7)\"$?#%.rtab le_indfnsG%/rtable_is_zeroG%7rtable_normalize_indexG%0rtable_num_dimsG %1rtable_num_elemsG\"$C#7)\"$D#%/rtable_optionsG%1rtable_scanblockG%4r table_sort_indicesG%+searchtextG%'selectG\"$H#7)\"$I#%-selectremoveG%$ seqG%'seriesG%-setattributeG%%signG\"$M#7)\"$N#%%sortG%(ssystemG%%stop G%+streamcallG%%subsG\"$R#7)\"$S#%'subsopG%*substringG%'systemG%&table G%'taylorG\"$W#7)\"$X#%'tcoeffG%%timeG%*timelimitG%1kernel/transposeG% *traperrorG\"$\\#7)\"$]#%&truncG%%typeG%*typematchG%'unamesG%'unbindG \"$a#7)\"$b#%&unionG%)userinfoG%(writetoGF)F)\"$f#" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 5 "i olib" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interface(verbosepro c=3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "convert(eval(open) , string);;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#Qguproc~()~option~`Copy right~(c)~1994-1998~by~Waterloo~Maple~Inc.~All~rights~reserved.`;~desc ription~`Opens~a~file~for~unbuffered~reading~or~writing.`;~iolib(20,ar gs)~end~proc6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 412 "pro1:= proc(fun) local li, deb, fin, txt; txt:= co nvert(eval(fun),string); li:= NULL; \n to 10 do deb:= searchtext(`ioli b`, txt); \n if deb=0 then break \n else fin:= searchtext(`)`, txt , deb..-1); # print(txt, deb, deb+fin); \n li:= li, ``(parse(substri ng(txt, deb+5..deb+fin-1))): txt:=substring(`txt`, deb+fin+1..-1):\n f i od: if li = NULL then li else [fun, \{li\}]= convert(op(5,eval(fun)) , string) fi; \nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "jol j:= proc(z) if nargs=1 then op(z) else ``(args) fi end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 225 "liste:= [op(with(process)),\ncurre ntdir, fclose, feof, fflush, filepos, fopen, fprintf, fremove, fscanf, getenv, iostatus, march, mkdir, open, readbytes, readline, rmdir, spr intf, sscanf, writebytes, writeline]; # close=fclose" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&listeG7?%&blockG%%execG%%forkG%%killG%'pcloseG%%p ipeG%&popenG%%waitG%+currentdirG%'fcloseG%%feofG%'fflushG%(fileposG%&f openG%(fprintfG%(fremoveG%'fscanfG%'getenvG%)iostatusG%&marchG%&mkdirG %%openG%*readbytesG%)readlineG%&rmdirG%(sprintfG%'sscanfG%+writebytesG %*writelineG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "res0:= map( pro1, liste): \nres1:=(eval@subs)(file=NULL, args[3]=NULL, args=NULL, \+ ``=jolj, res0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 156 "map(pro c(z) [op(1,lhs(z)),(op@map2)(op,1,op(2,lhs(z))), rhs(z)] end, res1):\n sort(%, (a,b)->evalb(convert(a[1], string)< convert(b[1], string))):\n matrix(%);;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7>7%%&block G\"#>QfnWaits~for~one~of~the~specified~descriptors~to~become~ready.6\" 7%%+currentdirG\"#FQNQueries~and/or~changes~the~current~directory.F+7% %%execG\"# " 0 "" {MPLTEXT 1 0 85 "convert(liste, set) minus convert(map2(op,[ 1,1], res1), set): sort(convert(%, list));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#%*writelineG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "res:= map(proc(z) op([1,2], z); map2(op,1,%); if nops(%)=1 then op(%) else % fi; %=op([1,1],z) end, res1):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "ress:= sort(res, (j,k)-> evalb(lhs(j)< lhs(k)) ): ta: = table(ress): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "lx:= 4: seq( (proc(k) if not assigned(ta[k]) then k else NULL fi end)(k), k=1 ..lx*10-1): pas_trouve:= [%];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+p as_trouveG7.\"\"$\"#C\"#D\"#E\"#K\"#L\"#M\"#N\"#O\"#P\"#Q\"#R" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 126 "m:= matrix(lx,10, proc(j,k) ; j*10+k-11: if %<=0 or %>=40 then `.` elif assigned(ta[%]) then ta[% ] else %; fi; end, 'array'); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"m G-%'matrixG6#7&7,%\".G%&fopenG%)readlineG\"\"$%*readbytesG%+writebytes G%(fileposG%'pcloseG%(fremoveG%(fprintfG7,%(sprintfG%'fscanfG%'sscanfG %)iostatusG%&popenG%%pipeG%%forkG%%execG%%waitG%&blockG7,%%openG%%feof G%%killG%'fflushG\"#C\"#D\"#E%+currentdirG%'getenvG%&mkdirG7,%&rmdirG% &marchG\"#K\"#L\"#M\"#N\"#O\"#P\"#Q\"#R" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 407 "interface_list:= [ansi, autoassign, echo, errorbreak, errorcursor, \nimaginaryunit, indentamount, label ling, labelwidth, latexwidth, \nlongdelim, patchlevel, plotd evice, plotoptions, plotoutput, \npostplot, preplot, prett yprint, prompt, quiet, \nrtablesize, screenheight, scree nwidth, showassumed, verboseproc, \nversion, warnlevel]; \+ " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%/interface_listG7=%%an siG%+autoassignG%%echoG%+errorbreakG%,errorcursorG%.imaginaryunitG%-in dentamountG%*labellingG%+labelwidthG%+latexwidthG%*longdelimG%+patchle velG%+plotdeviceG%,plotoptionsG%+plotoutputG%)postplotG%(preplotG%,pre ttyprintG%'promptG%&quietG%+rtablesizeG%-screenheightG%,screenwidthG%, showassumedG%,verboseprocG%(versionG%*warnlevelG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "# for k in interface_list do k=interface(k) e nd;" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "24" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 } {RTABLE_HANDLES 13107512 13110696 13116088 13079812 13122888 13125096 13125864 13129968 13132040 }{RTABLE M6R0 I5RTABLE_SAVE/13107512X.6"6"F$^[[[[]\q-"#%&(*4059000000000000405BC0000000000000 0000000000000000000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000000000000000000 6" } {RTABLE M6R0 I5RTABLE_SAVE/13110696X,6"6"F$][[[[]\q'"#"$3FF000000000000040000000000000004008 0000000000004010000000000000401400000000000000000000000000006" } {RTABLE M6R0 I5RTABLE_SAVE/13116088X,%)anythingG6"6"][[[[[l'"$"#$"3%[h4dEW6"[!#<$!31?r)R]WTh )F)$!3!f6I^'fE*[%F)$"3g8_V,I8`NF)$"3g,#Q2tBNo%F)$"3+V>T6"e(pSF)6" } {RTABLE M6R0 I5RTABLE_SAVE/13079812X*%)anythingG6"6"\[[[[[l#"#$"3%[h4dEW6"[!#<$"3g8_V,I8`NF) 6" } {RTABLE M6R0 I5RTABLE_SAVE/13122888X,%)anythingG6"6"][[[[[p%"#"#"#6"#8"#7"#96" } {RTABLE M6R0 I5RTABLE_SAVE/13125096X,%)anythingG6"6"][[[[[p%"#"#"#P"#&)"#S"##*6" } {RTABLE M6R0 I5RTABLE_SAVE/13125864X,%)anythingG6"6"][[[[[p%"#"#"""""$""#""%6" } {RTABLE M6R0 I5RTABLE_SAVE/13129968X,%)anythingG6"6"][[[[[p%"#"#"#6"#8"#7"#96" } {RTABLE M6R0 I5RTABLE_SAVE/13132040X,%)anythingG6"6"][[[[[l%"#"#$"3UBv"\?"**e;!#:$"3)QwQ'fl* 4O"F)$"33Iwg&3yps"F)$"3ooMp%yLpq"F)6" }