{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 }{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 "Hea ding 1" -1 3 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 6 6 1 0 1 0 2 2 0 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 "Ti mes" 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 }{PSTYLE "Normal" -1 260 1 {CSTYLE "" -1 -1 "Times " 1 18 255 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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "restart: " }}}{EXCHG {PARA 259 "" 0 "" {TEXT -1 20 "tests xmint (V68.18)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "with(pldx):" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 17 "Test de mmrecurse" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }{MPLTEXT 1 0 75 "infolevel[xmint]:=10: T:= tabl e(): `xmint/mmrecurse`(`xmint/mmrecurse`, T);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "tmp:= `xmint/table`(S2): tmp72:= tmp[7,2]; tmp[ 7,2]:=` tmp72`: \n`xmint/table`(S1), eval(tmp); infolevel[xmint]:=0:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 37 "Les me ssages utilis\351s par PrintReport" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 293 "tz:= NULL: \ntmp:= convert(eval(`xmint/PrintReport`) , string):\nto 30 do\ndeb:= searchtext(\"PrintSet`(\",tmp): if deb=0 t hen break fi; \nfin:= searchtext(\")\",tmp,deb..-1)+deb;\ntry\ntz:=tz, (substring(tmp,deb+9+2..fin-14));\ncatch :\nend try;\ntmp:=substring( tmp,fin..-1);\nod: sort([tz]): map(lprint,%):" }{TEXT -1 0 "" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 12 "C'est quoi ?" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 284 "stamp:=0: \npro:= proc(z) local k; k:=5; end:\ntryy:= proc(z) loc al a,b,c; global u; for a to 5 do\nif typematch(z, b::integer+c::anyth ing) then return b fi;\nseq(k^2,k=1..5);\n(1/4)(a); (x->x+(1/7)(5))(b) ;\nif a=4 then break fi;\nreturn b, c; od;\nsin(c),u;\nerror \"message \"\nend: xmint(tryy);" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 59 "Erreurs d\351tect\351es par xm int : variables locales et globales" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }{MPLTEXT 1 0 111 "toto:= proc(p1,p2) local l1, l2, pz; global g1, g2;\npz:= proc() end; \n l1:= p1; pz(); \+ seq(l2, l2=1..g1); \nend :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "xmint(toto);" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 61 "Erreurs d \351tect\351es par xmint : variables de boucles imbriqu\351es" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "toto:= proc() local k; for k to 2 do\nfor k to 2 do print(k^2);\nod;\nod; end: k:='k': \nxmint(tot o);" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 33 "Exemple d'analyse d'une proc\351dure" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "xlyse();" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 12 "La proc\351dure" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 130 "to to:= proc () local j, k; global bozo; for j from 11 by 22 to 33 \n do for k to 2 do bozo(k^2) end do end do end proc:\nlprint(%);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "j:='j': k:='k': xmint(toto); " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 22 "Le nom de la proc\351dure" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "ana_m(toto, 'anap1');" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 45 "La s\351quence des propri\351t\351s de ce tte proc\351dure" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "anap1[3] = addr essof(NULL);\nana0_m(anap1[3], 'anap2');" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 38 "Les \351l\351ments constituant une proc\351dure" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ana0_m(anap1[2], 'anap2');" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 23 "Le code de la proc\351dure" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 54 "lprint(eval(toto));\nMATRIX([ana0(anap2[6], 'a nap3')]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "Les \351l\351ments d 'une boucle" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "assemble(t2n(CODE), \+ seq(anap3[k], k=2..7)): pointto(%);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "for k in 2,6,7 do ana0_m(anap3[k],'anap4'); od;" }{TEXT -1 0 "" }} }}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 34 "Proc\351dures imbriqu\351es, et lexicals" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 12 "La proc\351dure" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 318 "praa:= proc (pa,paa) global ga,gaa; local la, laa, prbb;\n prbb:= proc(pb,pbb) global gb,gbb; local lb,lbb, prcc; \+ \n prcc:= proc(pc,pcc) global gd,gdd; local lc,lcc; \n print(p a,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 "" {TEXT -1 5 "xmint" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "xmint(praa);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "ana_m(praa, 'anap1'); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "res1:= ana0_m(anap1[2], 'anap2');" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 6 "6=code" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ana0_m(anap2[ 6], 'anap3'); " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 37 "la premi\350re \+ ligne est une affectation" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ana0_m (anap3[2],'anap4'); " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 31 "proc\351d ure imbriqu\351e de niveau 2" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "res 2:= ana0_m(anap4[3],'anap5');" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 56 " code de la proc\351dure imbriqu\351e**** (casse sous maple v8)" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ana0_m(anap5[6], 'anap6'); " }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 44 "la premi\350re ligne est encore un e affectation" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "ana0_m(anap6[2],'a nap7');" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 31 "proc\351dure imbriqu \351e de niveau 3" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "res3:= ana0_m( anap7[3],'anap8');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 175 "matr ix([(op@map2)(op,[1,2],[res1,res2,res3]),op([1,3], res1)]):\ntmp:= sub s(` NULL`=``,%): linalg[submatrix](%, [4,1,2,3], [2,3,9,8]):\nlinalg[a ugment]([``, tata,toto,tutu],%);;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ana0_m(anap2[9],'anap11');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ana0_m(anap5[9],'anap12');" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 45 "ana0_m(anap8[9],'anap13'): transpose(op(%)): " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "subsop(1=NULL, convert(%,listli st)):\nslp:=matrix(rowdim(%)/2, 4, map(op,%)); " }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 104 "seq_lexi:=[disassemble(anap8[9])]: seq_args:= [disassemble(anap8[2])]:\nseq_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(assemble(t2n(LEXI), k))= pointto(seq_lexi[k*2] ), k=1..(nops(seq_lexi)-1)/2),\nseq(pointto(assemble(t2n(LEXI),-k))= p ointto(seq_lexi[k*2]), k=1..(nops(seq_lexi)-1)/2),\npointto(anap8[6])) ; str1:= convert(eval(%,1), string):" }}}{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 146 "concat(subs(sub, lex=Lex, col(slp,2)), slp): \+ \nstackmatrix([` L3`,adr_nom,nom,adr_val, ` V2`],%): la_sequence_lexic ale_de_pcc=%;\nprint(eval(praa));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "15" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }