{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 0 0 255 1 0 2 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 1 14 128 0 0 1 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 1 14 0 0 128 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 1 16 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 "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 6 6 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 2" 3 4 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 4 4 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 }0 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 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 0 9 0 0 0 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "" 0 10 128 0 0 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "restart; \n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "with(pldx): with(linalg,tran spose):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%dopldx~~;~~author~:~~~;~~last~modif~(V5)~:~Ven~23/06/2000G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 289 "[NINT, PINT, FRAC, REAL, NAME, INDX, TYPE, JOIN, POWR, MULT, DEVL, CLIN, FUNC, UNEV, EQUA, NEQU, LEQU, LESS, AND _, NOT_, _OR_, SEQU, LIST, LOC_, ARGS, PROC, RANG, SET_, TABL, LOAD, L OOP, COND, READ, SAVE, CODE, QUIT, ITEM, HACH]: \nold_ANAMAX:= nops(%) ; old_ANA:=table(%%): old_ANA[0]:=0 : " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+old_ANAMAXG\"#Q" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 301 "[NINT, PINT, FRAC, REAL, TEXT, NAME, INDX, TYPE, JOIN, POWR, MULT , DEVL, CLIN, FUNC, UNEV, EQUA, NEQU, LEQU, LESS, AND_, NOT_, OREL, SE QU, LIST, LOC_, ARGS, LEXI, PROC, RANG, SET_, TABL, HFTB, LOAD, LOOP, \+ COND, READ, SAVE, CODE, QUIT, ITEM, HACH, GARB]: \nANAMAX:= nops(%); A NA:=table(%%): ANA[0]:=0 : " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'ANAM AXG\"#U" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "naa:= table([seq (ANA[k]=k, k=1..42)]): naa[SET_];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# \"#I" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "old_ANA[38]; naa[%] ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%HACHG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#T" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 216 "poi nttoo:= proc(z); disassemble(z); if member(%[1], \{naa[ITEM],naa[HACH] \}) then `*`.(ANA[%[1]]).`*` \nelif %[1]=naa[TABL] then Tabl(op(pointt o(z))) \nelif %[1]=naa[SEQU] then Sequ(pointto(z)) \nelse pointto(z) f i; end :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 246 " faire:= proc(z) local u; \n if z \+ < 50000 then RETURN(cat(`* `, convert(z,string), ` *`)) fi;\n u := tra perror(pointto(z)); if u = lasterror then RETURN(cat(`* `, convert(z,s tring), ` *`)) \n elif u = NULL then RETURN(` NULL`) fi; pointtoo(z) \+ end :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 " faire2:= proc(z::nonnegint) local u; \n \+ if z <= ANAMAX then ANA[z] else pointtoo(z) fi end :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 575 "ana0:=proc(expr, disa) local k, verb, temp; \nif exp r < 25000 then RETURN( cat(`< `, expr, ` >`) ) fi; \ntemp:= [disassem ble(expr)]; \nif nargs=1 then verb:= NULL else verb:= temp; \n if no t type(disa, numeric) then assign(disa, temp) fi ; \nfi;\nif temp[1]=n aa[HACH] then map(faire2, temp)\nelif temp[1]=naa[HFTB] then verb, [HF TB, `$`.(convert(temp[2],hex)), (op)(temp[3..-1])] \nelif member(tem p[1], \{naa[NAME], naa[TEXT]\}) then verb, [ANA[temp[1]], (op@map)(fai re, temp[2..3]), texte(temp[4..-1])] \nelse verb, [ ANA[temp[1]], (op@ map)(faire, subsop(1=NULL, temp))] \nfi; end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 140 "ana:= proc(expr) if not type(expr,name) and typ e(expr,table) then Table(op(expr)) else expr fi;\n %, ana0(addressof(e xpr), args[2..-1]); end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "texte:= proc(li) local k, r ecurs; \nrecurs:= proc(z) local reste; if z= 0 then args else procname (iquo(z,256,'reste'),args[2..-1],reste) fi end: \nmap(recurs, li); ca t(`< `, (op@map)(z->char[z], %), ` >`); end :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "ana(xy,1); 120+256*121;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%#xyG7&\"\"'\"\"!\"()oa&)\"&'4J7&%%NAMEG%&*~0~*G%&~NULL G(((&%'<~charG6#F&&%%charG6#\"$?\"&F46#\"$@\"%#~>G" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#\"&'4J" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " null:= addressof(NULL):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "seq(pointto(assemble(naa[NAME],0,null,k)), k=1..255): char:= table([% ]): matrix(16,16,[0,%%]); char[0]:=NULL:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#L272\"\"!%\"|\"G%\"|#G%\"|$G%\"|%G%\"|&G%\"|'G%\"|(G%\"|)G%\"|*G %\"|+G%\"|,G%\"|-G%\"|.G%\"|/G%\"|0G72%\"|1G%\"|2G%\"|3G%\"|4G%\"|5G% \"|6G%\"|7G%\"|8G%\"|9G%\"|:G%\"|;G%\"|G%\"|?G%\"|@G72%\" ~G%\"!G%\"%G%\"#G%\"$GFI%\"&G%\"'G%\"(G%\")G%\"*G%\"+G%\",G%\"-G%\".G% \"/G72%\"0G%\"1G%\"2G%\"3G%\"4G%\"5G%\"6G%\"7G%\"8G%\"9G%\":G%\";G%\"< G%\"=G%\">G%\"?G72%\"@G%\"AG%\"BG%\"CG%\"DG%\"EG%\"FG%\"GG%\"HG%\"IG% \"JG%\"KG%\"LG%\"MG%\"NG%\"OG72%\"PG%\"QG%\"RG%\"SG%\"TG%\"UG%\"VG%\"W G%\"XG%\"YG%\"ZG%\"[G%\"\\G%\"]G%\"^G%\"_G72%\"`G%\"aG%\"bG%\"cG%\"dG% \"eG%\"fG%\"gG%\"hG%\"iG%\"jG%\"kG%\"lG%\"mG%\"nG%\"oG72%\"pG%\"qG%\"r G%\"sG%\"tG%\"uG%\"vG%\"wG%\"xG%\"yG%\"zG%\"|frG%\"|grG%\"|hrG%\"|irG% \"|jrG72%\"|[sG%\"|\\sG%\"|]sG%\"|^sG%\"|_sG%\"|`sG%\"|asG%\"|bsG%\"|c sG%\"|dsG%\"|esG%\"|fsG%\"|gsG%\"|hsG%\"|isG%\"|jsG72%\"|[tG%\"|\\tG% \"|]tG%\"|^tG%\"|_tG%\"|`tG%\"|atG%\"|btG%\"|ctG%\"|dtG%\"|etG%\"|ftG% \"|gtG%\"|htG%\"|itG%\"|jtG72%\"|[uG%\"|\\uG%\"|]uG%\"|^uG%\"|_uG%\"|` uG%\"|auG%\"|buG%\"|cuG%\"|duG%\"|euG%\"|fuG%\"|guG%\"|huG%\"|iuG%\"|j uG72%\"|[vG%\"|\\vG%\"|]vG%\"|^vG%\"|_vG%\"|`vG%\"|avG%\"|bvG%\"|cvG% \"|dvG%\"|evG%\"|fvG%\"|gvG%\"|hvG%\"|ivG%\"|jvG72%\"|[wG%\"|\\wG%\"|] wG%\"|^wG%\"|_wG%\"|`wG%\"|awG%\"|bwG%\"|cwG%\"|dwG%\"|ewG%\"|fwG%\"|g wG%\"|hwG%\"|iwG%\"|jwG72%\"|[xG%\"|\\xG%\"|]xG%\"|^xG%\"|_xG%\"|`xG% \"|axG%\"|bxG%\"|cxG%\"|dxG%\"|exG%\"|fxG%\"|gxG%\"|hxG%\"|ixG%\"|jxG7 2%\"|[yG%\"|\\yG%\"|]yG%\"|^yG%\"|_yG%\"|`yG%\"|ayG%\"|byG%\"|cyG%\"|d yG%\"|eyG%\"|fyG%\"|gyG%\"|hyG%\"|iyG%\"|jyG72%\"|[zG%\"|\\zG%\"|]zG% \"|^zG%\"|_zG%\"|`zG%\"|azG%\"|bzG%\"|czG%\"|dzG%\"|ezG%\"|fzG%\"|gzG% \"|hzG%\"|izG%\"|jzG%'matrixG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ana(sin,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$sinG7&\"\"'\"(! 30()\"(O(R&)\"(bfB(7&%%NAMEGR6#'%\"xG%*algebraicG6$%\"nG%\"tG6#%aoCopy right~(c)~1992~by~the~University~of~Waterloo.~All~rights~reserved.GE\\ s0\"\"!F6,$%#PiG#\"\"\"\"#7,$*&-%%sqrtG6#F%\"\"\",&F:F:*$-F?6#\"\"$FA# !\"\"FFF:#F:\"\"%,$F8FI,$*$-F?6#\"\"#FA#F:FP,$F8#F:\"\"),$*$-F?6#,&FPF :FMFHFAFQF8F6,$F8#FFFT,$*$-F?6#,&FPF:FMF:FAFQ*$-F?6#FHFA*&F\\oFA-%%sin hG6#F:F:,$F8#F:\"\"&,$*&FNFA-F?6#,&FdoF:*$-F?6#FdoFAFHFAFI,$F8#F:\"#5, &FjoFI#FHFJF:,$F8#FPFdo,$*&FNFA-F?6#,&FdoF:FjoF:FAFI,$F8#FFF_p,&FjoFIF IF:,$F8#FdoF;,$*&F>FA,&F:F:FC#F:FFF:FI,$F8FQF:,$F8Faq,$FCFQ,$F8#F:F%FQ @;09#F:-%&ERRORG6#(%;expecting~1~argument,~got~GFiq-%%typeG6$9$.-%(com plexG6#%&floatG-%&evalfG6#-.F#6#Fbr3-F`r6$Fbr%\"*G-%'memberG6$%\"IG<#- %#opGF]s*&FesFA-F`o6#,$*&FesF:FbrF:FHF:-F`r6$Fbr.-Fer6#%(numericG@%2-% %csgnGF]sF6,$-F#6#,$FbrFHFHF[s33F_s-F`r6$-Fhs6$F:FbrF`t2-Fgt6#F`uF6Fht 3F_s-F`r6$Fbr.-%#&*G6$%)rationalG-%*identicalG6#F8C$>8%F`u@)2FbvFQF[s2 FbvF:-F#6#*&,&F:F:FbvFHF:F8F:2FbvFP,$-F#6#*&,&FPF:FbvFHF:F8FAFH-F#6#*& ,&FbvF:-%%iquoG6$-%&truncG6#FbvFP!\"#F:F8FA3-F`r6$Fbr%\"+G/-%*traperro rG6#-%%signGF]sFHFht3F\\x-%$hasG6$FbrF8C$>Fbv-%$mapG6$R6#F.6\"F`yF`y@$ -F`r6$*&FbrFAF8!\"\".F\\vFdyF`yF`yF`yFfs@%/-%%nopsGFiwF:C$>Fbv-FhsFiw@ +2FbvF6-F#6#,(FbrF:*&F8FA-Fhw6#,$FbvFQF:FjwF8FPFdv>-F#F]sF[sFev-%$cosG 6#,&FbrF:F8#FHFPFjv,$-F#6#,&FbrF:F8FHFH-F#6#,&FbrF:FczFjw>FhzF[s33F_s- Fcs6%F87#Fgs.8$/-%#ImGF]sF6C$>Fbv-%'subsopG6$/F\\\\lF:Fbr@+/-%%fracGFi wF6F6/-Fi\\l6#,&FbvFQFapF:F6F:/-Fi\\l6#,&FbvFQFIF:F6FH/-Fi\\l6#,&FbvF: F][lF:F6)FHFe]l>FhzF[s3-F`r6$Fbr.%)functionG/-FjyF]sF:C%>F\\\\l-Fhs6$F 6Fbr>FbvF`u@//F\\\\l.%'arcsinGFbv/F\\\\l.%'arccosG-F?6#,&F:F:*$)FbvFPF AFH/F\\\\l.%'arctanG*&FbvFA-F?6#,&F:F:F^_lF:Fey/F\\\\l.%'arccscG*&FAFA FbvFey/F\\\\l.%'arcsecG-F?6#,&F:F:*&FAFA*$)Fbv\"\"#FAFeyFH/F\\\\l.%'ar ccotG*&FAFAFd_lFey>FhzF[s3Fi]l/Fa^l.%)JacobiAMG-%)JacobiSNG6#Fgs-F`r6$ Fbr.-Fb_l6$F/F/*&F`uFA-F?6#,&*$)F`uFPFAF:*$)-Fhs6$FPFbrFPFAF:Fey>FhzF[ sF`yF`yF`y%*protectedG%(<~sin~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 377 "cut:= proc(str); searchtext(`elif`, str); \n if %=0 \+ then args else procname(substring(str, %+4..-1), substring(str, 1..%-1 ), args[2..-1]); fi; end: \nstr1:= [cut(convert(eval(whattype),string) )]:\nstr2:= map( proc(str); searchtext(`then '`, str); substring(str, \+ %+6..-1) end, str1):\nstr3:= map( proc(str); searchtext(`'`, str); sub string(str, 1..%-1) end, str2): sort(%); nops(%);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7?Q$`*`6\"Q$`+`F%Q%`..`F%Q$`.`F%Q%`::`F%Q%`<=`F%Q%`<>`F %Q$`<`F%Q$`=`F%Q$`^`F%Q&`and`F%Q&`not`F%Q%`or`F%Q&arrayF%Q(exprseqF%Q& floatF%Q)fractionF%Q)functionF%Q(hfarrayF%Q(indexedF%Q(integerF%Q%list F%Q*procedureF%Q'seriesF%Q$setF%Q'stringF%Q'symbolF%Q&tableF%Q'unevalF %" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#H" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 26 "arg1:= proc() args[1] end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 314 "xres_ini(40, [`#`, `exemple`, `impl\351mentatio n`]):\nmap(xres_run@[arg1@disassemble@addressof,ana], [-12345, +123456 78, 7/3, 123.45, \"texte\", x, tb[1], a::b, x.(n+1), x^y, x^2*y, serie s(17/(1+x),x,1),2*x+3*y*z,\nf(t), ''x'', x=y, x <>y, x<=y, xG7%\"\"'% \"xG7&%%NAMEGFIFJ%&<~x~>G7%F9&%#tbG6#F)7%%%INDXGFT-%%SequGFU7%\"\")'% \"aG%\"bG7%%%TYPEGFgnFhn7%\"\"*(FN,&%\"nGF)F)F)7%%%JOINGFNF^o7%\"#5)FN %\"yG7%%%POWRGFNFeo7%\"#6*&)FNF0\"\"\"FeoF)7'%%MULTGFNF0FeoF)7%\"#7+'F N\"#<\"\"!-%\"OGFU\"\"\"7(%%DEVLGFNFbpFIFdpF.7%\"#8,&FNF0*&FeoF\\p%\"z GF)F77'%%CLINGFNF0F\\qF77%\"#9-%\"fG6#%\"tG7%%%FUNCGFcq-FYFdq7%\"#:FN7 $%%UNEVGFN7%\"#;/FNFeo7%%%EQUAGFNFeo7%Fbp0FNFeo7%%%NEQUGFNFeo7%\"#=1FN Feo7%%%LEQUGFNFeo7%\"#>2FNFeo7%%%LESSGFNFeo7%\"#?3FgnFhn7%%%AND_GFgnFh n7%\"#@4Fgn7$%%NOT_GFgn7%\"#A5FgnFhn7%%%ORELGFgnFhn7%\"#C7%FgnFhn%\"cG 7$%%LISTG-FY6%FgnFhnFbtF_t7%\"#H;F)F07%%%RANGGF)F07%\"#I<%FbtFgnFhn7$% %SET_G-FY6%FbtFgnFhn%'matrixG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 7 " 1 \340 13" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ana(-45,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%!#X7$\"\"\"\"#X7$%%NINTG%'*~45~*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "ana(1,1); ana(1234567890,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"\"7$\"\"#F#7$%%PINTG%&*~1~*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"+!*ycM77&\"\"#\"%!*y\"%cM\"#77&%%PINTG%)*~7890~*G% )*~3456~*G%'*~12~*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ana( 7/3,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%#\"\"(\"\"$7%F%\"(3;`)\"(W: `)7%%%FRACGF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ana(1.2, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%$\"#7!\"\"7%\"\"%\"()oJ&)\"(/:` )7%%%REALGF$F%" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 10 "code 05/06" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "ana(\"ceci est...\",1);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6%Q,ceci~est...6\"7(\"\"&\"\"!\"(!yU&)\" +*p@\"o<\"+%e>P&>\"(yk-$7&%%TEXTG%&*~0~*G%&~NULLG%0<~ceci~est...~>G" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "ana(uy,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%#uyG7&\"\"'\"\"!\"(!yU&)\"&$4J7&%%NAMEG%&*~0~*G%& ~NULLG%'<~uy~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ana(sin, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$sinG7&\"\"'\"(K!>()\"(GHa)\"( bfB(7&%%NAMEGR6#'%\"xG%*algebraicG6$%\"nG%\"tG6#%aoCopyright~(c)~1992~ by~the~University~of~Waterloo.~All~rights~reserved.GE\\s0,$%#PiG#\"\"$ \"#5,&*$-%%sqrtG6#\"\"&\"\"\"#\"\"\"\"\"%FBFC,$F7#FC\"\"),$*$-F>6#,&\" \"#FC*$-F>6#FMFA!\"\"FA#FCFMF7\"\"!,$F7FB,$FNFR,$F7#F@\"#7,$*&-F>6#F%F A,&FCFC*$-F>6#F9FA#FCF9FCFB,$F7#FCF:,&F6#FQFA*&FaoFA-%% sinhG6#FCFCFSFS,$F7F[o,$FhnFR,$F7#FMF@,$*&FOFA-F>6#,&F@FCF6#,&F@FCF6#,&FMFCFNFCFAF R,$F7#FCFX,$*&FenFA,&FCFCFhn#FQF9FCFB,$F7#FCF%FR@;09#FC-%&ERRORG6#(%;e xpecting~1~argument,~got~GFiq-%%typeG6$9$.-%(complexG6#%&floatG-%&eval fG6#-.F#6#Fbr3-F`r6$Fbr%\"*G-%'memberG6$%\"IG<#-%#opGF]s*&FesFA-Feo6#, $*&FesFCFbrFCFQFC-F`r6$Fbr.-Fer6#%(numericG@%2-%%csgnGF]sFS,$-F#6#,$Fb rFQFQF[s33F_s-F`r6$-Fhs6$FCFbrF`t2-Fgt6#F`uFSFht3F_s-F`r6$Fbr.-%#&*G6$ %)rationalG-%*identicalG6#F7C$>8%F`u@)2FbvFRF[s2FbvFC-F#6#*&,&FCFCFbvF QFCF7FC2FbvFM,$-F#6#*&,&FMFCFbvFQFCF7FAFQ-F#6#*&,&FbvFC-%%iquoG6$-%&tr uncG6#FbvFM!\"#FCF7FA3-F`r6$Fbr%\"+G/-%*traperrorG6#-%%signGF]sFQFht3F \\x-%$hasG6$FbrF7C$>Fbv-%$mapG6$R6#F.6\"F`yF`y@$-F`r6$*&FbrFAF7!\"\".F \\vFdyF`yF`yF`yFfs@%/-%%nopsGFiwFCC$>Fbv-FhsFiw@+2FbvFS-F#6#,(FbrFC*&F 7FA-Fhw6#,$FbvFRFCFjwF7FMFdv>-F#F]sF[sFev-%$cosG6#,&FbrFCF7#FQFMFjv,$- F#6#,&FbrFCF7FQFQ-F#6#,&FbrFCFczFjw>FhzF[s33F_s-Fcs6%F77#Fgs.8$/-%#ImG F]sFSC$>Fbv-%'subsopG6$/F\\\\lFCFbr@+/-%%fracGFiwFSFS/-Fi\\l6#,&FbvFRF _oFCFSFC/-Fi\\l6#,&FbvFRFBFCFSFQ/-Fi\\l6#,&FbvFCF][lFCFS)FQFe]l>FhzF[s 3-F`r6$Fbr.%)functionG/-FjyF]sFCC%>F\\\\l-Fhs6$FSFbr>FbvF`u@//F\\\\l.% 'arcsinGFbv/F\\\\l.%'arccosG-F>6#,&FCFC*$)FbvFMFAFQ/F\\\\l.%'arctanG*& FbvFA-F>6#,&FCFCF^_lFCFey/F\\\\l.%'arccscG*&FAFAFbvFey/F\\\\l.%'arcsec G-F>6#,&FCFC*&FAFA*$)Fbv\"\"#FAFeyFQ/F\\\\l.%'arccotG*&FAFAFd_lFey>Fhz F[s3Fi]l/Fa^l.%)JacobiAMG-%)JacobiSNG6#Fgs-F`r6$Fbr.-Fb_l6$F/F/*&F`uFA -F>6#,&*$)F`uFMFAFC*$)-Fhs6$FMFbrFMFAFCFey>FhzF[sF`yF`yF`y%*protectedG %(<~sin~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "abcdefgh:= pr oc(x); x^2; end;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ana(abcdefgh); \+ " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)abcdefghGR6#%\"xG6\"F(F(*$)9$\" \"#\"\"\"F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%)abcdefghG7&%%NAME GR6#%\"xG6\"F)F)*$)9$\"\"#\"\"\"F)F)F)%&~NULLG%-<~abcdefgh~>G" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "ma:= matrix(2,3,[1,2,3,4,5], 'array'); ana(ma);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#maG-%'matrixG 6#7$7%\"\"\"\"\"#\"\"$7%\"\"%\"\"&&F$6$F+F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%#maG7&%%NAMEG-%%TablG6%;\"\"\"\"\"#;F*\"\"$7'/6$F*F*F* /6$F+F*\"\"%/6$F*F+F+/6$F*F-F-/6$F+F+\"\"&%&~NULLG%'<~ma~>G" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 14 "ana(ttt[1],1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%& %$tttG6#\"\"\"7%\"\"(\"(W\"G%)\"(S(Q&)7%%%INDXGF$-%%SequGF%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "ana(x::numeric,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%'%\"xG%(numericG7%\"\")\"(Cua)\"(;%>&)7%%%TY PEGF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ana(m.(u+1),1); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6%(%\"mG,&%\"uG\"\"\"F'F'7%\"\"*\"(s -Y)\"(W&4#)7%%%JOINGF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "ana(x^y, 'anap'); ana0(anap[2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%) %\"xG%\"yG7%\"#5\"(Cua)\"(C#*o)7%%%POWRGF$F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&%%NAMEG%&*~0~*G%&~NULLG%&<~x~>G" }}}{SECT 0 {PARA 4 " " 0 "" {TEXT -1 14 "code 11 = MULT" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "ana(x^2*y^3*z^4, 1); ana(y^3*z^4*x^2); ana(I); ana(x^ n*x, 'anap'); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6%*()%\"xG\"\"#\"\"\") %\"yG\"\"$F')%\"zG\"\"%F'7)\"#6\"(Cua)\"(G:`)\"(C#*o)\"(W:`)\"('\\*o) \"(g:`)7)%%MULTGF%F&F)F*F,F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$*()%\" xG\"\"#\"\"\")%\"yG\"\"$F')%\"zG\"\"%F'7)%%MULTGF%F&F)F*F,F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%\"IG7%%%MULTG!\"\"#\"\"\"\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%*&)%\"xG%\"nG\"\"\"F%F'7'\"#6\"(gK^)\"(7:`)\"(C ua)F+7'%%MULTGF$F'F%F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "a na(x^3, 'anap'): %,` `, ana0(anap[3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'*$)%\"xG\"\"$\"\"\"7%\"#6\"(Cua)\"(W:`)7%%%MULTGF%F&%'~ ~~~~~G7$%%PINTG%&*~3~*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 " ana(1/x^3, 'anap'): %,` `, ana0(anap[3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'*&\"\"\"F$*$)%\"xG\"\"$F$!\"\"7%\"#6\"(Cua)\"(O:`)7%%%M ULTGF'!\"$%'~~~~~~G7$%%NINTG%&*~3~*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "ana(x^(3/2), 'anap'): %,` `, ana0(anap[3]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6'*$)%\"xG#\"\"$\"\"#\"\"\"7%\"#6\"(Cua) \"(S<\\)7%%%MULTGF%F&%'~~~~~~G7%%%FRACGF'F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "ana(x^3.5, 'anap'): %,` `, ana0(anap[3]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6'*$)%\"xG$\"#N!\"\"\"\"\"7%\"#6\"(Cua) \"(Gc\\)7%%%MULTGF%F&%'~~~~~~G7%%%REALGF'F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "naa [DEVL]; ana(series(sin(x)/x^3,x)); ana(series(sin(sqrt(x)),x,3));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"#7" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6$++%\"xG\"\"\"!\"##!\"\"\"\"'\"\"!#F%\"$?\"\"\"#-%\"OG6#F%\"\"$7,%%DE VLGF$F%%'*~-2~*GF'%&*~0~*GF+%&*~2~*GF.%&*~3~*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,**$-%%sqrtG6#%\"xG\"\"\"\"\"\"*$)F(#\"\"$\"\"#F)#!\"\" \"\"'*$)F(#\"\"&F/F)#F*\"$?\"-%\"OG6#*$)F(F.F)F*7+%%CLINGF$F*F+F0F3F7F 9F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ana(2*x+3*x*y+4*x^z* t, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%,(%\"xG\"\"#*&F$\"\"\"%\"yGF '\"\"$*&)F$%\"zGF'%\"tGF'\"\"%7)\"#8\"(Cua)\"(G:`)\"(SIk)\"(W:`)\"([^i )\"(g:`)7)%%CLINGF$F%F&F)F*F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "ana(f@g, 'anap'); ana(f(t),1); ana(n!,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%\"@G6$%\"fG%\"gG7%\"#9\"()[O%)\"(GS3*7%%%FUNCGF$-%%Se quGF%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%\"fG6#%\"tG7%\"#9\"(;!*o)\" (7i&))7%%%FUNCGF$-%%SequGF%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%*fact orialG6#%\"nG7%\"#9\"(K0U)\"(3Vm)7%%%FUNCGF$-%%SequGF%" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 12 " 15 \340 22, 29" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "pointto(assemble(15, addressof(x)));" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#.%\"xG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "ana(a=b, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%/%\"aG%\"bG7%\"# ;\"(cua)\"(_va)7%%%EQUAGF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "ana(a<>b, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%0%\"aG%\"bG7%\" #<\"(cua)\"(_va)7%%%NEQUGF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ana(a >= b, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%1%\"bG%\"aG7% \"#=\"(_va)\"(cua)7%%%LEQUGF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "ana(a\"(cua)\"(_va)7%%%LESSGF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "ana(a and b, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%3%\"aG%\"b G7%\"#?\"(cua)\"(_va)7%%%AND_GF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "ana(not b, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%4% \"bG7$\"#@\"(_va)7$%%NOT_GF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ana(a or b, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%5%\"aG%\"bG7% \"#A\"(cua)\"(_va)7%%%ORELGF$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "ana(1..2, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%;\"\"\"\"\"#7 %\"#H\"(7:`)\"(G:`)7%%%RANGGF$F%" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 34 "Code 23 (seq_), 24(list), 30(set_)" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "ana([a,b,c], 'anap'); ana0(anap[2], 1);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6%7%%\"aG%\"bG%\"cG7$\"#C\"(O(f()7$%%LISTG-%%SequG 6%F$F%F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7&\"#B\"(cua)\"(_va)\"(3ua )7&%%SEQUG%\"aG%\"bG%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "ana(\{a,b,c\}, 'anap'); ana0(anap[2], 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%<%%\"cG%\"aG%\"bG7$\"#I\"(GX%*)7$%%SET_G-%%SequG6%F$F%F &" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7&\"#B\"(3ua)\"(cua)\"(_va)7&%%SE QUG%\"cG%\"aG%\"bG" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 36 "Code 31 ( tabl), 40 (hash), 41 (item)" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "mc:= matrix(2,3,[1,2,3,4,5,6], 'array'); ana(eval(mc));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mcG-%'matrixG6#7$7%\"\"\"\"\"#\"\"$7%\"\" %\"\"&\"\"'" }}{PARA 12 "" 1 "" {XPPMATH 20 "6$-%&TableG6%;\"\"\"\"\"# ;F'\"\"$7(/6$F'F'F'/6$F(F'\"\"%/6$F(F*\"\"'/6$F'F(F(/6$F'F*F*/6$F(F(\" \"&7&%%TABLG%&~NULLG-%%SequG6$F&F)%'*HACH*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "md := array( symmetric, 1..2, 1..2, [ [1,x], [x,x^ 2] ] ); ana(eval(md));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mdG-%'mat rixG6#7$7$\"\"\"%\"xG7$F+*$)F+\"\"#\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$-%&TableG6&%*symmetricG;\"\"\"\"\"#F'7%/6$F(F(F(/6$F(F) %\"xG/6$F)F)*$)F/F)\"\"\"7&%%TABLGF&-%%SequG6$F'F'%'*HACH*G" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "ta:= 'ta': ta:= table([(1,20 )=6, (2,3)=1]): ana(ta,1); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%#taG7 &\"\"'\"(#\\)4*\"(!yU&)\"&[\\#7&%%NAMEG-%%TablG6#7$/6$\"\"#\"\"$\"\"\" /6$F3\"#?F%%&~NULLG%'<~ta~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "ana(eval(ta), 'ftab');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%&Tab leG6#7$/6$\"\"#\"\"$\"\"\"/6$F+\"#?\"\"'7&\"#J\"(!yU&)\"(;x^)\"(W.9*7& %%TABLG%&~NULLG%&falseG%'*HACH*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "for k from 2 to nops(ftab) do ana0(ftab[k], 'fach') ; od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7#\"#B7#%%SEQUG" }}{PARA 11 " " 1 "" {XPPMATH 20 "6$7'\"\"'\"\"!\"(GHa)\"+iE[O>\"$,\"7&%%NAMEG%&*~0~ *G%*protectedG%*<~false~>G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7][l%%HA CHG\"\"!F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F% F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F% F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F% F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F% F%F%F%F%%'*ITEM*GF%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F&F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "fach2:= map(proc(z) if z<25000 then NULL else z fi en d, fach); for k in % do ana0(k, 1); od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&fach2G7$\"(CAN)\"()3T()" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7) \"#S\"(K$)*))\"(7:`)\"\"!F'F'F'7)%%ITEMG-%%SequG6$\"\"#\"\"$\"\"\"%&*~ 0~*GF0F0F0" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7)\"#S\"(OEp)\"(#fJ&)\" \"!F'F'F'7)%%ITEMG-%%SequG6$\"\"\"\"#?\"\"'%&*~0~*GF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "map(ana0, [disassemble(fach2[2])] ) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7)%'<~40~>G7%%%SEQUG\"\"\"\"#?7$% %PINTG%&*~6~*G%&<~0~>GF,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "disassemble(fach2[2])[2] mod 128;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "disassemble(f ach2[1])[2] mod 128;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#G" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "for k from 1 to 2000 do ta[k ]:= 7*k+1; od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "ana(eval( ta), 'ftab')[2..3];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7&\"#J\"(!yU&) \"(;x^)\"(W.9*7&%%TABLG%&~NULLG%&falseG%'*HACH*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "itm:= disassemble(ftab[4])[1..18];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$itmG64\"#T\")W#o7#\"([_<)\"(!eP#)\"(_w\") )\"(K)y%)\"(Ca!))\"(SmE)\")/ED@\"(3(=#)\");R>@\")O\"*G@\"(#z$H)\")++A@ \"))3&H@\")K#=7#\")wQH@\"(+bK)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "kk:=2: itm.kk:= [disassemble(itm[kk])]: [seq(%[2*k], k=1..nops (%)/2)]; map(z-> irem(z/4,128), %);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #7*\")3^D@\"(G[())\"(Kt9*\"\"!F'F'F'F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*\"$8\"\"#$)F$\"\"!F&F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "kk:=3: itm.kk:= [disassemble(itm[kk])]: [seq(%[2*k], \+ k=1..nops(%)/2)]; map(z-> irem(z/4,128), %);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#70\"(;(Q&)\");jB@\")Om7#\")!=t7#\")s8G@\")oI=@ \")+i=@\"\"!F,F,F,F,F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#70\"#BF$\"#Q \"#oF$F$F$F%\"\"!F'F'F'F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "kk:=12: itm.kk:= [disassemble(itm[kk])]: [seq(%[2*k], k=1..nops(%) /2)]; map(z-> irem(z/4,128), %);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#70 \"(C(Q&)\"(Wg&))\")Gj>@\")/4A@\")OSA@\")c%R7#\")_NC@\")/uG@\")+\"*=@\" (Kfw)\"(C$[*)\"\"!F/F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#70\"#D\"$B\" \"#5F&F$\"#SF'F%F%F%F$\"\"!F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "kk:= 7: itm.kk:= [disassemble(itm[kk])]: [seq(%[2*k], k=1..nop s(%)/2)]; map(z-> irem(z/4,128), %);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#70\")cZ?@\")!=!=@\")#Hq7#\")?vF@\"(obt)\"(S2$))\"(;]?)\")oC>@\"(!oe* )\"\"!F-F-F-F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#70\"#pF$F$\"#%)F%F$ \"#aF$F&\"\"!F'F'F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "62 78932/4; iquo(%,256*256), iquo(irem(%,256*256),256), irem(%,256); `+` (%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"(L(p:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"#B\"$V#\"$(>" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$j% " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "5815120/4; iquo(%,256 *256), iquo(irem(%,256*256),256), irem(%,256); `+`(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"(!y`9" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"#A\"# Y\"$7#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$!G" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 12 "Codes 40, 41" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "dis:= proc(uu) if uu<25000 then `***` els e disassemble(uu); fi; end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$disG R6#%#uuG6\"F(F(@%29$\"&+]#%$***G-%,disassembleG6#F+F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "pro:= proc(ab) local loc; global gl o; option remember; ab^2+1; end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% $proGR6#%#abG6#%$locG6#%)rememberG6\",&*$)9$\"\"#\"\"\"\"\"\"F3F3F,6#% $gloGF," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "pr0:= disassembl e(addressof(pro));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$pr0G6&\"\"'\" (/aX)\"(!yU&)\"(#z.t" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "ana 0(pr0[2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+%%PROCG-%%SequG6#%#abG -F&6#%$locG-F&6#%)rememberG%&~NULLG,&*$)9$\"\"#\"\"\"\"\"\"F6F6F/-F&6# %$gloGF/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "reme:= disassem ble(disassemble(pr0[2])[5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%rem eG\"#B" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "seq(pro(k), k=1.. 1800):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "reme:= disassembl e(disassemble(pr0[2])[5]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%remeG 6]s\"#T\"(%=U!*\"(#pu%)\"(!3B%)\"(cH7*\"(+41*\"(/G1*\"(_v])\"(CeU)\"(w g\\)\"(;)\\!*\"(o`8*\"(#f\"\\)\"(_!3%)\"(GzY)\"(Kh])\"(Kw7*\"(Ol])\"(S $Q\"*\"(3s8*\"(w5_)\"(;))\\)\"(%yx!*\"(7m7*\"(ke7*\"(kp\\)\"(GD/*\"(Se T)\"(wFr)\"(ss7*\"(+\"o%)\"(s(Q!*\"(_h7*\"(7:[)\"(;EU)\"(CG[)\"(cB/*\" ('>B%)\"(%Q%\\)\"(!Gz%)\"(WI1*\"(g=[)\"(C'=%)\"(G;[)\"(c#Q!*\"(/o8*\"( ;K1*\"(!QP\"*\"(7U\\)\"(+F/*\"(7&Q\"*\"(?!p%)\"(3&=%)\"(C!=%)\"(O\"p%) \"(cxY)\"(o<7*\"([Q9*\"(!)f7*\"(!3$G)\"(Ou])\"(Cip)\"([Hr)\"(O>Z)\"(_g p)\"(c01*\"(CQ8*\"(kA7*\"(w%o%)\"([]Z)\"(gw\\)\"(+!y%)\"(wwT)\"(s51*\" (Sj_)\"(?k9*\")'RA6#\"(c%)\"(G^U)\"('H/%)\"(%)yZ)\"(; $H&)\"(S:_)\"(k " 0 "" {MPLTEXT 1 0 133 "uu:='uu': dis(reme[2]); \ni f % <> `***` then map(proc(k) if k<25000 then NULL else pointto(k) fi \+ end, [%]): matrix(nops(%)/2,2,%); fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 "" {XPPMATH 20 "6M\"#S\"([=`)\")!)oC@\")SBA@\") )Q_6#\")SG)\"(C]p)\"(?dN)\"(GA1*\"(S\"$x%\"'IvA\"$J(\"'iV`\"$_)\"'0fs\"$y*\"'&[c*\"%m6\"(d&f8 \"%(=\"\"(q*39\"%G7\"(&)z]\"\"%!R\"\"(,@$>\"%79\"(XP*>\"%h9\"(AX8#\"%2 :\"(]5F#\"%8;\"(q7$\"$x%\"'IvA7$\"$J(\"'iV`7$\"$_)\"'0fs7$\"$y *\"'&[c*7$\"%m6\"(d&f87$\"%(=\"\"(q*397$\"%G7\"(&)z]\"7$\"%!R\"\"(,@$> 7$\"%79\"(XP*>7$\"%h9\"(AX8#7$\"%2:\"(]5F#7$\"%8;\"(q " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 3 "" 0 " " {TEXT -1 14 "Code 32 : HFTB" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "matrix(2,2,[11,12,21,22], array); hfm:= evalhf(%); ana(%,1);\nh fm[2,2]:=444: ana(eval(hfm), 'anap');\nana0(anap[2]);\n" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#-%'matrixG6#7$7$\"#6\"#77$\"#@\"#A" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%$hfmGW(%\"#\"#40260000000000004028000000000000 40350000000000004036000000000000" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%W( %\"#\"#402600000000000040280000000000004035000000000000403600000000000 07)\"#K\"(GqD)\"\"%\"\"\"\"\"#F(F)7)%%HFTBG%($7DFE04GF'F(F)F(F)" }} {PARA 11 "" 1 "" {XPPMATH 20 "6%W(%\"#\"#40260000000000004028000000000 0004035000000000000407BC000000000007)\"#K\"(GqD)\"\"%\"\"\"\"\"#F(F)7) %%HFTBG%($7DFE04GF'F(F)F(F)" }}{PARA 6 "" 1 "" {TEXT -1 33 "s=007dfe04 , CASE_ID=0, invalid ID" }}{PARA 8 "" 1 "" {TEXT -1 45 "Error, (in ana 0) object at address is invalid" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "matrix(3,4, (j,k)->10*j+k, array); hfa:= evalhf(%); ana(%); co nvert(hfa, array);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7& \"#6\"#7\"#8\"#97&\"#@\"#A\"#B\"#C7&\"#J\"#K\"#L\"#M" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$hfaGW(-\"$\"%40260000000000004028000000000000402A 000000000000402C000000000000403500000000000040360000000000004037000000 0000004038000000000000403F00000000000040400000000000004040800000000000 4041000000000000" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$W(-\"$\"%402600000 00000004028000000000000402A000000000000402C000000000000403500000000000 0403600000000000040370000000000004038000000000000403F00000000000040400 00000000000404080000000000040410000000000007)%%HFTBG%($7F2098G\"#7\"\" \"\"\"$F(\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7&$\"# 6\"\"!$\"#7F*$\"#8F*$\"#9F*7&$\"#@F*$\"#AF*$\"#BF*$\"#CF*7&$\"#JF*$\"# KF*$\"#LF*$\"#MF*" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 8 "matrices" } }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "ma:= matrix(2,3,[1,2,3,4,5, 6]); ana(ma, 'madr');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#maGL$7%\" \"\"\"\"#\"\"$7%\"\"%\"\"&\"\"'%'matrixG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%L$7%\"\"\"\"\"#\"\"$7%\"\"%\"\"&\"\"'%'matrixG7%\"#C\")Gc7@\"('z <&)7%%%LISTG-%%SequG6$F$F(F," }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 26 "setattribute(A, matrix) ; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "ana0(madr[2], 'sadr'); ana0(madr[3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7%\"#B\"(+@Y)\"(C@Y)7%%%SEQUG7%\"\"\"\"\"#\"\"$7%\"\"% \"\"&\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&%%NAMEGR6%%\"rG%\"cG% \"eG6&%\"iG%\"jG%\"xG%\"AG6#%aoCopyright~(c)~1990~by~the~University~of ~Waterloo.~All~rights~reserved.G6\"C%@$/&9\"6#9#%&arrayGC$>%-_EnvLinal g95G%&falseG-%'RETURNG6#-9!6#&F66#;\"\"\",&F8FG!\"\"FG@$/F5.%%listG@%/ F<%%trueGF>-%&ERRORG6#%7wrong~type~of~argumentG@+/F8FG@+5/9$7\"/FZ7#Fe n-F?6#-FB6%\"\"!F\\oFZ-%%typeG6$FZ-FL6#-FL6#%*algebraicG@%-%'memberG6$ .%'columnG<#-%+attributesG6#&FZ6#FG-F?6#-FB6%-%%nopsGF^p-Ffp6#FZFZ-F?6 #-FB6%FgpFepFZ-F^o6$FZ-FL6#-.%'vectorGFcoC$>8'-%$mapG6%%(convertGFZFL- F?6#-FB6%-Ffp6#Ffq-Ffp6#&FfqF`pFfq-F^o6$FZ-.F96#\"\"#C$>Ffq-Fjq6$FZ%)l istlistGF[r-FR6$%1invalid~argumentGFZ52F8Fir43-F^o6$FZ%*nonnegintG-F^o 6$9%Fhs-FR6#%[o1st~and~2nd~arguments~(dimensions)~must~be~non~negative ~integersG/F8FirC$@$FO-FR6#%5no~entries~specifiedG-F96$;FGFZ;FGF[t/F8 \"\"$C%@/-F^o6$9&F9C%@$-F^o6$F_u-Fgr6$FGFdo-F?6#-FB6%FZF[t-Fjq6$F_uFL@ $-F^o6$F_u-Fgr6$FirFdo-F?6#-FB6%FZF[t-Fjq6$F_uF^s-FR6$FasF_u-F^o6$F_u< $Fdo%*procedureGC%>FfqFet?(8$FGFGFZFP?(8%FGFGF[tFP>&Ffq6$F`wFbw-F_uFew @$FO>Ffq-Fjq6$FfqF^s-F^o6$F_uF`oC&@$3FO2FG-Ffp6#<#-%$seqG6$-Ffp6#8&/Fi xF_u-FR6#%Bvectors~have~different~dimensionsG>Fix<#-Fex6$-F]p6#F`w/F`w F_u@$2FG-Ffp6#-%*intersectG6$Fix<$.%$rowGFio-FR6#%9mixed~row/column~ve ctorsG@%-Fgo6$FioFix@%FOC$@$50-Ffp6#F_uF[t0-Ffp6#&F_uF`pFZ-FR6#%Ffq7#-Fex6$7#-Fex6$&&F_u6#FbwFcy/Fbw;FGFjz/F`w ;FGF][lC$>FfqFet?(F`wFGFGFjzFP?(FbwFGFG-Ffp6#&F_uFcyFP>&Ffq6$FbwF`w&Fg \\lF\\\\l@%FOC$@$50FjzFZ0-Fhq6$Ffp<#-%#opGF[[l<#F[tF`[l>Ffq7#-Fex6$7#- Fex6$Fix/FixFg\\l/F`wF^\\lC$>FfqFet?(F`wFGFGFjzFP?(FbwFGFGFe\\lFP>FdwF []l-F^o6$F_uF_q-F?6#-FB6%FZF[t-Fhq6%FjqF_uFL-F^o6$F_uFbo@%FOC$@$0Fjz*& FZFGF[tFG-FR6#%4not~enough~elementsG>Ffq7#-Fex6$7#-Fex6$&F_u6#,&*&F[t \"\"\"F`wFGFGFbwFG/FbwFht/F`w;F\\o,&FZFGFIFGC$>FfqFet?(F`wFGFGFjzFP>&F fq6$,&FGFG-%%iquoG6$,&F`wFGFIFGF[tFG,&FGFG-%%iremGFaalFGFg\\l-F^o6$F_u -FL6#%)equationGC%>Ffq-F96%FgtFht%'sparseG?&FixF_uFP>&Ffq6#-%$lhsGFhx- %$rhsGFhx@$FO>FfqFiwFgv@$-F^o6$FfqFL>Ffq-%-setattributeG6$Ffq%'matrixG -%%evalG6$FfqFG-FR6#%2invalid~argumentsGF1F1F1%*protectedG%+<~matrix~> G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 40 "mb:= [[1,2,3],[4,5,6]]; ana(mb, 'mbdr');" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mbG7$7%\"\"\"\"\"#\"\"$7%\"\"%\"\"& \"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%7$7%\"\"\"\"\"#\"\"$7%\"\"%\" \"&\"\"'7$\"#C\"(G>Y)7$%%LISTG-%%SequG6$F$F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "setattribute(mb, matrix) ; ana('mb'); ana(mb, 'm bdr');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#L$7%\"\"\"\"\"#\"\"$7%\"\"% \"\"&\"\"'%'matrixG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7$7%\"\"\"\"\"# \"\"$7%\"\"%\"\"&\"\"'7&%%NAMEGF#%&~NULLG%'<~mb~>G" }}{PARA 11 "" 1 " " {XPPMATH 20 "6%7$7%\"\"\"\"\"#\"\"$7%\"\"%\"\"&\"\"'7$\"#C\"(G>Y)7$% %LISTG-%%SequG6$F$F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "mc:= matrix(2,3,[1,2,3,4,5, 6], 'array'); ana(mc, 'mcdr');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#m cG-%'matrixG6#7$7%\"\"\"\"\"#\"\"$7%\"\"%\"\"&\"\"'" }}{PARA 12 "" 1 " " {XPPMATH 20 "6%%#mcG7&\"\"'\"(!eE#)\"(Kn*))\"&`a#7&%%NAMEG-%%TablG6% ;\"\"\"\"\"#;F/\"\"$7(/6$F0F/\"\"%/6$F0F2F%/6$F/F/F//6$F0F0\"\"&/6$F/F 2F2/6$F/F0F0%&~NULLG%'<~mc~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "ana(eval(mc));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6$-%&TableG6%;\" \"\"\"\"#;F'\"\"$7(/6$F(F'\"\"%/6$F(F*\"\"'/6$F'F'F'/6$F(F(\"\"&/6$F'F *F*/6$F'F(F(7&%%TABLG%&~NULLG-%%SequG6$F&F)%'*HACH*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "Table([(1, 20) = 6, (2, 3) = 1]), [29, 5 939236, 5939400, 6390128], [TABL, ` NULL`, false, `*HACH*`];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%&TableG6#7$/6$\"\"\"\"#?\"\"'/6$\"\"#\"\"$ F)7&\"#H\"(O#Rf\"(+%Rf\"(G,R'7&%%TABLG%&~NULLG%&falseG%'*HACH*G" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 104 "[25,26,2 7,28,33,34,35,36,37,38,39] LOC_, ARGS, LEXI, PROC, LOAD, LOOP, COND , READ, SAVE, CODE, QUIT " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "pointto(assemble(naa[LOC_], 2));" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#8%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "pointto(assemble(na a[ARGS], 3));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#9&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "pointto(assemble(naa[LEXI], 3));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#T'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "pointto(assemble(naa[LOAD], addressof(x), addressof(y )));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%\"yG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "pointto(assemble(naa[LOOP], seq(addresso f(x.k), k=1..4)));\npointto(assemble(naa[LOOP], seq(addressof(x.k), k= 1..6)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#?&%#x1G%#x2G%#x3G%#x4G" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#?(%#x1G%#x2G%#x3G%#x4G%#x5G%#x6G" }}} {EXCHG {PARA 0 "> " 0 "cond" {MPLTEXT 1 0 55 "try:= proc() 44: to 5 wh ile %<47 do %+1 od; end: try();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"# Z" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "ana(try, 't1'); ana0(t 1[2], 't2'); ana0(t2[6], 't3'); ana0(t3[3], 't4');" }}{PARA 11 "" 1 " " {XPPMATH 20 "6%%$tryG7&\"\"'\"(Gu_)\"()oa&)\"(c\"fz7&%%NAMEGR6\"F,F, F,C$\"#W?(F,\"\"\"F0\"\"&2%\"%G\"#Z,&F3F0F0F0F,F,F,%&~NULLG%(<~try~>G " }}{PARA 12 "" 1 "" {XPPMATH 20 "6$7+\"#G\"()oa&)F%F%F%\"(OYO)F%F%F%7 +%%PROCG%&~NULLGF)F)F)C$\"#W?(6\"\"\"\"F.\"\"&2%\"%G\"#Z,&F1F.F.F.F)F) F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7%\"#Q\"(O`a)\"()3#z)7%%%CODEG\" #W?(6\"\"\"\"F,\"\"&2%\"%G\"#Z,&F/F,F,F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7)\"#M\"()oa&)\"([Ya)F&\"(7Za)\"(GBO)\"(#>w\")7)%%LOOPG%&~NULLG \"\"\"F-\"\"&2%\"%G\"#Z,&F0F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "44: to 5 while %<47 do %+1 od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#X" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#Y" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#Z" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "pointto(assemble(naa[COND], seq(add ressof(x.k), k=1..5)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#@'%#x1G%#x2 G%#x3G%#x4G%#x5G" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 24 "Cr\351ation \+ d'une proc\351dure" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 377 "fun:= proc(parametres::integer) local locaux; global globaux; option rememb er, `Copyright`; description `descro`; \nlocaux; parametres;\nlocaux:= 17; \nfor locaux from 2 by 3 to 10 while boo do locaux^2 od;\nfor loca ux in [2,5,8] while boo do locaux^2 od ;\nif locaux = 2 then 15 elif l ocaux=4 then 19 else 21 fi; \nread `toto.m`; save x, `toto.m`;\nRETUR N(parametres^2);\nquit; \nend :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "ana(fun, 'fnom');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$funG7& \"\"'\"(gV_)\"(Kn*))\"(9!Rs7&%%NAMEGR6#'%+parametresG%(integerG6#%'loc auxG6$%)rememberG%*CopyrightG6\"C,8$9$>F7\"#\"#@A%'toto.m GB6$%\"xGFO-%'RETURNG6#*$)F8FG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "fadr:= [disassemb le(fnom[2])];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%fadrG7+\"#G\")[/lD \")k/lD\")[:lD\"(Kn*))\"(?2N)\")C1lD\")K1lDF*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "for k from 1 to nops(fadr)-1 do if k = 55 then \+ next fi; op.(k), ana0(fadr[k+1],1) od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$op1G7$\"#B\")O:lD7$%%SEQUG'%+parametresG%(integerG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$op2G7$\"#B\")7.fD7$%%SEQUG%'locauxG" }} {PARA 11 "" 1 "" {XPPMATH 20 "6%%$op3G7%\"#B\"(K!**))\"([-L)7%%%SEQUG% )rememberG%*CopyrightG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$op4G7#\"#B 7#%%SEQUG" }}{PARA 12 "" 1 "" {XPPMATH 20 "6%%$op5G7-\"#Q\"(3VT)\"(%32 *)\")g:lD\"(S)H*)\")K.fD\"(KkJ)\")#f]c#\")+1lD\")K;lD\")+SlD7-%%CODEG8 $9$>F2\"#\"#@A%'toto.mGB6$%\"xGFJ-%'RETURNG6#*$)F3F7F=D" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$op6G7$\"#B\")s.fD7$%%SEQUG%'descro G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$op7G7$\"#B\")#R!fD7$%%SEQUG%(gl obauxG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$op8G7#\"#B7#%%SEQUG" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 23 "D\351tail des instructions" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "ana0(fadr[6], 'corps'); lignes:= subsop(1=NULL, corps ):" }}{PARA 12 "" 1 "" {XPPMATH 20 "6$7-\"#Q\"(3VT)\"(%32*)\")g:lD\"(S )H*)\")K.fD\"(KkJ)\")#f]c#\")+1lD\")K;lD\")+SlD7-%%CODEG8$9$>F1\"#\"#@A%'toto.mGB6$%\"xGFI-%'RETURNG6#*$)F2F6F " 0 "" {MPLTEXT 1 0 58 "xres_ini(nops(lignes), [`ligne`,`co de`,`implementation`]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "xres_run (proc(k); [k, [disassemble(lignes[k])[1]], convert(ana0(lignes[k]), st ring) ] end);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7-7%%&lig neG%%codeG%/implementationG7%\"\"\"7#\"#DQ0[LOC_,~`*~1~*`]6\"7%\"\"#7# \"#EQ0[ARGS,~`*~1~*`]F07%\"\"$7#\"#LQ3[LOAD,~loc[1],~17]F07%\"\"%7#\"# MQH[LOOP,~loc[1],~2,~3,~10,~boo,~loc[1]^2]F07%\"\"&F=QI[LOOP,~loc[1],~ [2,~5,~8],~boo,~loc[1]^2]F07%\"\"'7#\"#NQK[COND,~loc[1]~=~2,~15,~loc[1 ]~=~4,~19,~21]F07%\"\"(7#\"#OQ1[READ,~`toto.m`]F07%\"\")7#\"#PQ9[SAVE, ~Sequ(x,`toto.m`)]F07%\"\"*7#\"#9Q@[FUNC,~RETURN,~Sequ(args[1]^2)]F07% \"#57#\"#RQ'[QUIT]F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 247 "fu n1:= convert(eval(fun),string): ici:=1: lig:='lig':\nfor k from 1 whil e (fun1 <> `` and ici <> 0) do ici:= searchtext(`;`, fun1); lig[k]:= s ubstring(fun1,1..ici); fun1:= substring(fun1,ici+1..-1) od: kmax:= k-1 : lig[kmax]:= substring(fun1,1..-4):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 184 "for kdeb from 1 to kmax do if searchtext(`local`, lig[kdeb])+se archtext(`global`, lig[kdeb])+searchtext(`options`, lig[kdeb])\n+searc htext(`description`, lig[kdeb])=0 then break fi od; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "xres_ini(nops(lignes), [``,`code source`, `implementation`]): with(linalg,row):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "xres_run(proc(k); [ disassemble(lignes[k])[1], lig[k+kdeb-1], c onvert(ana0(lignes[k]), string)] end):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "convert(res, listlist): res:= setattribute(%, column) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$resGL-7%%!G%,code~sourceG%/imp lementationG7%\"#DQ)~locaux;6\"Q0[LOC_,~`*~1~*`]F-7%\"#EQ-~parametres; F-Q0[ARGS,~`*~1~*`]F-7%\"#LQ/~locaux~:=~17;F-Q3[LOAD,~loc[1],~17]F-7% \"#MQX~for~locaux~from~2~by~3~to~10~while~boo~do~locaux^2~od;F-QH[LOOP ,~loc[1],~2,~3,~10,~boo,~loc[1]^2]F-7%F8QS~for~locaux~in~[2,~5,~8]~whi le~boo~do~locaux^2~od;F-QI[LOOP,~loc[1],~[2,~5,~8],~boo,~loc[1]^2]F-7% \"#NQen~if~locaux~=~2~then~15~elif~locaux~=~4~then~19~else~21~fi;F-QK[ COND,~loc[1]~=~2,~15,~loc[1]~=~4,~19,~21]F-7%\"#OQ0~read~`toto.m`;F-Q1 [READ,~`toto.m`]F-7%\"#PQ3~save~x,~`toto.m`;F-Q9[SAVE,~Sequ(x,`toto.m` )]F-7%\"#9Q7~RETURN(parametres^2);F-Q@[FUNC,~RETURN,~Sequ(args[1]^2)]F -7%\"#RQ'~quit~F-Q'[QUIT]F-%'columnG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#Q" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "miniproc:= proc(par)local loc; glob al glo; description des; 12; end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "ana(eval(miniproc), 1): co28:= [%[2,1], convert(%[1],string), subs (%[3,4]= ``, %[3])];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%co28G7%\"#G QZproc~(par)~local~loc;~global~glo;~description~des;~12~end6\"7+%%PROC G-%%SequG6#%$parG-F,6#%$locG%!GF2\"#7-F,6#%$desG-F,6#%$gloGF2" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "adr:= assemble(naa[CODE], a ddressof(x+y), addressof(x-y)): co38:= [naa[CODE], convert(pointto(adr ), string), ana0(adr)]; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%co38G7% \"#QQ)x+y;~x-y6\"7%%%CODEG,&%\"xG\"\"\"%\"yGF-,&F,F-F.!\"\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "array([row(res,1..3), co28, \+ row(res, 4..10), co38, row(res, 11..11)]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7/7%%!G%,code~sourceG%/implementationG7%\"# DQ)~locaux;6\"Q0[LOC_,~`*~1~*`]F.7%\"#EQ-~parametres;F.Q0[ARGS,~`*~1~* `]F.7%\"#GQZproc~(par)~local~loc;~global~glo;~description~des;~12~endF .7+%%PROCG-%%SequG6#%$parG-F:6#%$locGF(F(\"#7-F:6#%$desG-F:6#%$gloGF(7 %\"#LQ/~locaux~:=~17;F.Q3[LOAD,~loc[1],~17]F.7%\"#MQX~for~locaux~from~ 2~by~3~to~10~while~boo~do~locaux^2~od;F.QH[LOOP,~loc[1],~2,~3,~10,~boo ,~loc[1]^2]F.7%FLQS~for~locaux~in~[2,~5,~8]~while~boo~do~locaux^2~od;F .QI[LOOP,~loc[1],~[2,~5,~8],~boo,~loc[1]^2]F.7%\"#NQen~if~locaux~=~2~t hen~15~elif~locaux~=~4~then~19~else~21~fi;F.QK[COND,~loc[1]~=~2,~15,~l oc[1]~=~4,~19,~21]F.7%\"#OQ0~read~`toto.m`;F.Q1[READ,~`toto.m`]F.7%\"# PQ3~save~x,~`toto.m`;F.Q9[SAVE,~Sequ(x,`toto.m`)]F.7%\"#9Q7~RETURN(par ametres^2);F.Q@[FUNC,~RETURN,~Sequ(args[1]^2)]F.7%\"#QQ)x+y;~x-yF.7%%% CODEG,&%\"xG\"\"\"%\"yGFco,&FboFcoFdo!\"\"7%\"#RQ'~quit~F.Q'[QUIT]F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "dl4:= [disassemble(lignes[4])]; map(ana0, %[2..- 1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$dl4G7)\"#M\"(3VT)\"(c<*))\" (s<*))\"(%)=*))\"(k2N)\")s:lD" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(7$% %LOC_G%&*~1~*G7$%%PINTG%&*~2~*G7$F(%&*~3~*G7$F(%'*~10~*G7&%%NAMEG%&*~0 ~*G%&~NULLG%(<~boo~>G7%%%MULTG8$\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "dl4[-1]; disassemble(\"); ana0(\"[2], 'qqq'); ana0(qq q[3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"(!=Si" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"#N\"(;W)f\"(!)*ei" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$ 7%\"#K\"(%QGg\"(7!Rg7%%%CONDG/8$\"\"&%%nextG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&%%NAMEG%&*~0~*G%*protectedG%)<~next~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {SECT 1 {PARA 4 "" 0 "" {TEXT -1 16 "Table de hachage" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "boo:= false: fun(2); ana(fun, 'fnom'); an a0(fnom[2], 'fadr');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$funG7&\"\"&\"(3T*f\"(/t)f\"(9!Rs7&%%NAMEGR 6#'%+parametresG%(integerG6#%'locauxG6$%)rememberG%*CopyrightGE\\s\"\" \"#\"#:C,8$9$>F9\"#G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6$7*\"#E\"([M q'\"(3Mq'\")?]==\"(3B#e\")GZ==\"(SPq'\"(?Pq'7+%%PROCG'%+parametresG%(i ntegerG%'locauxG%)rememberG%*CopyrightG%'*HACH*GC,8$9$>F6\"#F?@$/F7F;-%'RETURNG6#\"#:A%(tzoto .mGB6$%\"xGFJ-FF6#*$F7F;D%'descroG%(globauxG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "for k from 2 to nops(fadr) do k,ana0(fadr[k],1) \+ od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"#7$\"#A\"(k/r'7$%%SEQUG'%+ parametresG%(integerG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"$7$\"#A\" ([_`'7$%%SEQUG%'locauxG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"%7%\"#A \"(_^?'\")'H&==7%%%SEQUG%)rememberG%*CopyrightG" }}{PARA 12 "" 1 "" {XPPMATH 20 "6$\"\"&7]s%%HACHG\"\"!F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F &F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&%'*ITEM *GF&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F& F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F&F& F&F&F&F&F&F&F&F&" }}{PARA 12 "" 1 "" {XPPMATH 20 "6%\"\"'7-\"#N\"(_pL' \")77x>\"(w/r'\")+[==\")C\\?=\")?N==\"(?Qq'\"(+Qq'\"(g0r'\")k-==7-%%CO DEG8$9$>F2\"# " 0 "" {MPLTEXT 1 0 22 "ana0(fadr[2], 'fpar');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7$\"#A\"(/P9'7$%%SEQUG'%+parametresG%(integerG " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "ana0(fpar[2]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7%%%TYPEG%+parametresG%(integerG" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 32 "Cr\351atio n d'une proc\351dure... lexi" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "fadr_names:= [param, loc_v, optio, htabl, procc, descr, globx, lex ic ];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+fadr_namesG7*%¶mG%&loc _vG%&optioG%&htablG%&proccG%&descrG%&globxG%&lexicG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "toto:='toto':" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 238 "superlexi:= proc(toto) local maxj;\nmaxj:= toto^2; \nproc( maxi::integer )\n local counter;\n counter := 0;\n pr oc()\n if counter >= maxi then counter := 0 fi;\n counte r := counter + toto\n end\nend:\n%(maxj);\nend: fun:=%:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 8 "niveau 0" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "ana( fun, 'pfun'): fun0:= pfun[2]; j:=0:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%%fun0G\"('*o6*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "fadr.j := [disassemble(fun.j)];\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&fadr0 G7+\"#G\")G1#=#\"(_%**))\"(!yU&)F)\"(/4.*F)F)F)" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 72 "for k from 2 to nops(fadr.j) do fadr_names[k- 1]= ana0(fadr.j[k],1) od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%¶m G6$7$\"#B\"(3nb)7$%%SEQUG%%totoG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/% &loc_vG6$7$\"#B\"(;J6*7$%%SEQUG%%maxjG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&optioG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/% &htablG6$7#\"#B7#%%SEQUG" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/%&proccG6 $7&\"#Q\"(S.6*\"(+h_)\"(KEN)7&%%CODEG>8$*$)9$\"\"#\"\"\"R6#'%%maxiG%(i ntegerG6#%(counterG6\"F;C$>F.\"\"!RF;F;F;F;C$@$1T$T%>FDF>>FD,&FD\"\"\" T(FHF;F;6(F7F1F:F.%%totoGFCF;F;6$FKF1-%\"%G6#F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&descrG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&globxG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&lexicG6$7#\"#B7#%%SEQUG" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 55 "disassemble(fadr.j[6]); lignes.j:= subsop(1=NULL, [ %]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "for k to nops(lignes.j) do \+ ligne.j._.k= disassemble(lignes.j[k])[1], ana0(lignes.j[k]); od;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6&\"#Q\"(S.6*\"(+h_)\"(KEN)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$/%)ligne0_1G\"#L7%%%LOADG8$*$)9$\"\"#\"\"\"" }} {PARA 12 "" 1 "" {XPPMATH 20 "6$/%)ligne0_2G\"#G7+%%PROCG-%%SequG6#'%% maxiG%(integerG-F)6#%(counterG%&~NULLGF1C$>8$\"\"!R6\"F7F7F7C$@$1T$T%> FF<,&F<\"\"\"T(F@F7F76(F,9$F0F4%%totoGF;F1F1-F)6$FDFC" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$/%)ligne0_3G\"#97%%%FUNCG%\"%G-%%SequG6#8$" }}} }{SECT 0 {PARA 3 "" 0 "" {TEXT -1 8 "niveau 1" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "fun.1:= lignes.0[2]; j:=1:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%fun1G\"(+h_)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "fadr.j:= [disassemble(fun.j)];\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&fadr1G7+\"#G\"(WrQ)\"(GrW)\"(!yU&)F)\"(w.6*F)F)\")[R'=#" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "for k from 2 to nops(fadr.j) do fadr_names[k-1]= ana0(fadr.j[k],1) od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%¶mG6$7$\"#B\"(/hQ)7$%%SEQUG'%%maxiG%(integerG" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#/%&loc_vG6$7$\"#B\"(oA;)7$%%SEQUG%(cou nterG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&optioG6$7#\"#B7#%%SEQUG" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&htablG6$7#\"#B7#%%SEQUG" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/%&proccG6$7%\"#Q\"()Q5\"*\"(Oh_)7%%%CODEG>8 $\"\"!R6\"F0F0F0C$@$1T$T%>F5F.>F5,&F5\"\"\"T(F9F0F06(%%maxiG9$%(counte rGF-%%totoGF4" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&descrG6$7#\"#B7#%% SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&globxG6$7#\"#B7#%%SEQUG" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&lexicG6$7%\"#B\"(3nb)\"(c(Q&)7%%%S EQUG%%totoG9$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "disassemb le(fadr.j[6]); lignes.j:= subsop(1=NULL, [%]):\nfor k to nops(lignes.j ) do ligne.j._.k= disassemble(lignes.j[k])[1], ana0(lignes.j[k]); od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"#Q\"()Q5\"*\"(Oh_)" }}{PARA 11 " " 1 "" {XPPMATH 20 "6$/%)ligne1_1G\"#L7%%%LOADG8$\"\"!" }}{PARA 12 "" 1 "" {XPPMATH 20 "6$/%)ligne1_2G\"#G7+%%PROCG%&~NULLGF(F(F(C$@$1T$T%>F -\"\"!>F-,&F-\"\"\"T(F2F(F(-%%SequG6(%%maxiG9$%(counterG8$%%totoGF," } }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 8 "niveau 2" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 26 "fun.2:= lignes.1[2]; j:=2:" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%%fun2G\"(Oh_)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "fadr.j:= [disassemble(fun.j)];\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&fadr2G7+\"#G\"(!yU&)F'F'F'\"(+/6*F'F'\"(gBa)" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "for k from 2 to nops(fadr.j) do fadr_names[k-1]= ana0(fadr.j[k],1) od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%¶mG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&loc_vG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&optioG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&htablG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&proccG6$7%\"#Q\"(7/6*\"([/6*7%%%CODEG@$1T$T%>F/\"\"! >F/,&F/\"\"\"T(F4" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&descrG6$7#\"#B 7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&globxG6$7#\"#B7#%%SEQU G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/%&lexicG6$7)\"#B\"(oN;)\"(c(Q&) \"(oA;)\"(ogp)\"(3nb)\"(g>V)7)%%SEQUG%%maxiG9$%(counterG8$%%totoGT$" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "disassemble(fadr.j[6]); l ignes.j:= subsop(1=NULL, [%]):\nfor k to nops(lignes.j) do ligne.j._.k = disassemble(lignes.j[k])[1], ana0(lignes.j[k]); od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"#Q\"(7/6*\"([/6*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$/%)ligne2_1G\"#N7%%%CONDG1T$T%>F*\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$/%)ligne2_2G\"#L7%%%LOADGT%,&F(\"\"\"T(F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "cu:= s uperlexi(3); 'cu()'$10; ana(cu, 'pcu'): fun9:= pcu[2]: j:=9:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#cuGR6\"F&F&F&C$@$1T$T%>F+\"\"!>F+,&F+\"\" \"T(F0F&F&6(%%maxiG\"\"*%(counterGF5%%totoG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6,\"\"$\"\"'\"\"*F#F$F%F#F$F%F#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "fadr.j:= [disassemble(fun.j)];\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&fadr9G7+\"#G\"(!yU&)F'F'F'\")?wx@F'F'\"(OF%))" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "for k from 2 to nops(fadr .j) do fadr_names[k-1]= ana0(fadr.j[k],1) od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%¶mG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&loc_vG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&optioG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&htablG6$7#\"#B7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&proccG6$7%\"#Q\")Kwx@\")owx@7%%%CODEG@$1T$T%>F/\"\"! >F/,&F/\"\"\"T(F4" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&descrG6$7#\"#B 7#%%SEQUG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&globxG6$7#\"#B7#%%SEQU G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%&lexicG6$7)\"#B\"(oN;)\"(S;`)\" (oA;)\")Gqz@\"(3nb)\"(W:`)7)%%SEQUG%%maxiG\"\"*%(counterGF2%%totoG\"\" $" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "disassemble(fadr.j[6]) ; lignes.j:= subsop(1=NULL, [%]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "for k to nops(lignes.j) do ligne.j._.k= disassemble(lignes.j[k])[1 ], ana0(lignes.j[k]); od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"#Q\")Kw x@\")owx@" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$/%)ligne9_1G\"#N7%%%CONDG 1T$T%>F*\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$/%)ligne9_2G\"#L7%%%L OADGT%,&F(\"\"\"T(F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "fad r.j[-1]; ana0(%, 'plex'); for k from 2 to nops(plex) do ana0(plex[k]) od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"(OF%))" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7)\"#B\"(oN;)\"(S;`)\"(oA;)\")Gqz@\"(3nb)\"(W:`)7)%%SEQ UG%%maxiG\"\"*%(counterGF/%%totoG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&%%NAMEG%&*~0~*G%&~NULLG%)<~maxi~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$%%PINTG%&*~9~*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7& %%NAMEG%&*~0~*G%&~NULLG%,<~counter~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&%%NAMEG\"\"$%&~NULLG%,<~counter~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&%%NAMEG%&*~0~*G%&~NULLG%)<~toto~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$%%PINTG%&*~3~*G" }}}{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 232 "sux:= proc(x, y) local maxj;\nassign(y, maxj); max j:= x^2; \nproc( maxj )\n local counter;\n counter := 0; \n p roc()\n if counter >= maxj then counter := 0 fi;\n counter : = counter + x\n end\nend:\n%(maxj);\nend: fun:=%:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "cu:= sux(3,'hh'); 'cu()'$10;\nlou:= proc(x,y,z);\ncu();\nend; 'lou()'$4;" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#cuGR6\"F&F&F&C$@$1T$T%>F+\"\"!>F+,&F+\"\"\"T(F0F&F&6(%%maxjG\"\"* %(counterGF5%\"xG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6,\"\"$\"\"'\" \"*F#F$F%F#F$F%F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$louGR6%%\"xG% \"yG%\"zG6\"F*F*-%#cuGF*F*F*F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\" '\"\"*\"\"$F#" }}}{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 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "appel:= proc(expr); [(disass emble)(expr)[1], ` `.(convert(pointto(expr), string)), ana0(expr)];end ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&appelGR6#%%exprG6\"F(F(7%&-%,d isassembleG6#9$6#\"\"\"(%\"~G-%(convertG6$-%(pointtoGF-%'stringG-%%ana 0GF-F(F(6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "ta:= 'ta': t a[3,4]:=5: proced:= proc(x); x; end;" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%'procedGR6#%\"xG6\"F(F(9$F(F(6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "k:='k':" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 553 "xres_ini(40, [`#`,`exemple`,`impl\351mentation`]):\nmap(xres_run@appe l, [assemble(24,1), assemble(25,1), addressof(eval(proced)), addressof (eval(ta)),\nassemble(30, addressof(x), addressof(y)), \nassemble(31, \+ addressof(k), addressof(2), addressof(3), addressof(6), addressof(boo) , addressof(y)),\nassemble(31, addressof(k), addressof([x,y]), address of(boo), addressof(y)),\nassemble(32, addressof(x), addressof(y), addr essof(z)), assemble(33, addressof(x)),\nassemble(34, addressof(x)), as semble(35, addressof(x+1), addressof(x-2)), assemble(36) ]): xres_cut ();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#L/7%%\"#G%(exempleG%/impl|dymen tationG7%\"#C%(~loc[1]G7$%%LOC_G%&*~1~*G7%\"#D%)~args[1]G7$%%ARGSGF-7% \"#E%0~proc~(x)~x~endG7*%%PROCG%\"xG%&~NULLGF9F9\"\"%F9F97%\"#H%3~tabl e([(3,~4)=5])G7&%%TABLGF9%&falseG%'*HACH*G7%\"#I%(~x~:=~yG7%%%LOADGF8% \"yG7%\"#J%J~for~k~from~2~by~3~to~6~while~boo~do~y~odG7)%%LOOPG%\"kG\" \"#\"\"$\"\"'%$booGFG7%FI%C~for~k~in~[x,~y]~while~boo~do~y~odG7'FLFM7$ F8FGFQFG7%\"#K%7~if~x~then~y~else~z~fiG7&%%CONDGF8FG%\"zG7%\"#L%(~read ~xG7$%%READGF87%\"#M%(~save~xG7$%%SAVEGF87%\"#N%*~x+1;~x-2G7%%%CODEG,& F8\"\"\"FfoFfo,&F8Ffo!\"#Ffo7%\"#O%&~quitG7#%%QUITG%'matrixG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7#\"#A7#%%SEQUG" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 19 "Chainage de valeurs" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "v al:=(proc (a::uneval) a; a = \" end);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$valGR6#'%\"aG%'unevalG6\"F*F*C$9$/F,%\"%GF*F*6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "val(val); val(eval(val));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%$valGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #/-%%evalG6#%$valGR6#'%\"aG%'unevalG6\"F-F-C$9$/F/%\"%GF-F-6\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "convert(eval(val), string); \+ ana(\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%>proc~(a::uneval)~a;~a~=~ \"~endG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$anaG6#%>proc~(a::uneval) ~a;~a~=~\"~endG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "addresso f(x), ana(x,1)[2..3]; addressof('y'), ana('y',1)[2..3];" }}{PARA 11 " " 1 "" {XPPMATH 20 "6$\"(/(3e&-%$anaG6$%\"xG\"\"\"6#;\"\"#\"\"$" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$\"(7.\"f&-%$anaG6$%\"yG\"\"\"6#;\"\"# \"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "z:= x; x[3]:=2; z [3];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zG%\"xG" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>&%\"xG6#\"\"$\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "x:=5; z:=x; x:=6 ; z;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG\"\"&" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"zG\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG \"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"&" }}}}{SECT 1 {PARA 3 " " 0 "" {TEXT -1 18 "Copier une matrice" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "x:='x': ma:= array(1..2,1..2, [[x+4,x+5],[x+7]]); ana (ma,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#maG-%'MATRIXG6#7$7$,&%\" xG\"\"\"\"\"%F,,&F+F,\"\"&F,7$,&F+F,\"\"(F,&F$6$\"\"#F5" }}{PARA 12 " " 1 "" {XPPMATH 20 "6%%#maG7&\"\"&\"))yB%=\"(G%fl\"&T\\#7&%%NAMEG-%&Ta bleG6%;\"\"\"\"\"#F.7%/6$F/F/,&%\"xGF/\"\"%F//6$F0F/,&F5F/\"\"(F//6$F/ F0,&F5F/F%F/%&~NULLG%'<~ma~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "mb:= ma; ana('mb',1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mbG% #maG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%#maG7&\"\"&\"(?Kr'\"(G%fl\"&( >D7&%%NAMEGF#%&~NULLG%'<~mb~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "mc:= eval(ma); ana(mc,1); " }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#mcG-%'MATRIXG6#7$7$,&%\"xG\"\"\"\"\"%F,,&F+F,\"\"&F,7$,&F+F,\"\"( F,&F$6$\"\"#F5" }}{PARA 12 "" 1 "" {XPPMATH 20 "6%%#mcG7&\"\"&\"))yB%= \"(G%fl\"&`a#7&%%NAMEG-%&TableG6%;\"\"\"\"\"#F.7%/6$F/F/,&%\"xGF/\"\"% F//6$F0F/,&F5F/\"\"(F//6$F/F0,&F5F/F%F/%&~NULLG%'<~mc~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "md:= evalm(ma): ana(md,1);" }} {PARA 12 "" 1 "" {XPPMATH 20 "6%%#mdG7&\"\"&\")_;d=\"(G%fl\"&4d#7&%%NA MEG-%&TableG6%;\"\"\"\"\"#F.7&/6$F0F0&%#maGF3/6$F/F/,&%\"xGF/\"\"%F//6 $F0F/,&F9F/\"\"(F//6$F/F0,&F9F/F%F/%&~NULLG%'<~md~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "me:= map(proc() args end, eval(ma)): ana( me,1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6%%#meG7&\"\"&\"(/&>e\"(G%fl\" &lf#7&%%NAMEG-%&TableG6%;\"\"\"\"\"#F.7%/6$F/F/,&%\"xGF/\"\"%F//6$F0F/ ,&F5F/\"\"(F//6$F/F0,&F5F/F%F/%&~NULLG%'<~me~>G" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 92 "ma[2,1]:= 5: ma[2,2]:= 8: evalm(ma), evalm(mb) , evalm(mc), map(eval, evalm(md)), evalm(me);;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'-%'MATRIXG6#7$7$,&%\"xG\"\"\"\"\"%F*,&F)F*\"\"&F*7$F-\" \")F#F#-F$6#7$F'7$,&F)F*\"\"(F*F/-F$6#7$F'7$F4&%#meG6$\"\"#F=" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "ma:= azer+1: evalm(ma), eval m(mb), evalm(mc), map(eval, evalm(md)), evalm(me);;" }}{PARA 11 "" 1 " " {XPPMATH 20 "6',&%%azerG\"\"\"F%F%F#-%'MATRIXG6#7$7$,&%\"xGF%\"\"%F% ,&F,F%\"\"&F%7$F/\"\")-F'6#7$F*7$,&F,F%\"\"(F%&F#6$\"\"#F:-F'6#7$F*7$F 6&%#meGF9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "mu:= me;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#muG%#meG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "evalm(me+1)[1,1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"xG\"\"\"\"\"&F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 179 "xprint(evalm): xprint(` evalm/symbolic`); xprint(`evalm/amperstar`); xprint(`evalm/combpowers `);\nxprint(`convert/evalm/array`); xprint(`print/array/name`); xprint (`print/array`); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {SECT 1 {PARA 3 "" 0 "" {TEXT -1 10 "Attributes" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 5 "k:=2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"kG \"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "eval(sum);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#R6$%\"eG%\"xG68%\"rG%%sumsG%\"kG%'nami ngG%)unnamingG%\"aG%$ansG%\"bG%$dabG%$dxxG%\"iG%#tpG%#xxG%#npG%#oeG%#i iG%#mmG%*rootslistG%&dummyG%*has_diffsG%$tmpG%)variableG6#%aoCopyright ~(c)~1995~by~the~University~of~Waterloo.~All~rights~reserved.G6\"C5@(0 9#\"\"#-%&ERRORG6#%8expecting~two~argumentsG4-%%typeG6$9$.%*algebraicG -FG6#%Afirst~argument~must~be~algebraicG45-FL6$9%.%%nameG33-FL6$FX%\"= G-FL6$-%#opG6$\"\"\"FXFY55-FL6$-F]o6$FEFX.%&rangeG-FL6$Fdo.%'RootOfG3- FL6$FdoFP4-%$hasG6$FdoF\\o@%5-FL6$FX.%(numericG3Fgn-FL6$F\\oFgp-FG6%%G summation~variable~previously~assignedG%M~~~~~~~~~~~~~~~~second~argume nt~evaluates~toGFX-FG6#%ensecond~argument~must~be~a~name~or~name=a..b~ or~name=RootOfG@&3FV4-FL6$-%%evalG6#FXFZ-%'RETURNG6#-%%subsG6$/86FX-%$ sumG6$-F_r6$/FXFbrFNFbr3Ffn4-FL6$-Fiq6#F\\oFZ-F\\r6#-F_r6$/FbrF\\o-Fdr 6$-F_r6$/F\\oFbrFN-F_r6$FhsFX@$3-Fap6$FN%)infinityG4-Fap6$-%'indetsG6$ FN%)functionGF_t-F\\r6#.-Fdr6#9\"@$3-%(hastypeG6$FN%&floatG4-FL6$FX/FZ F[pC$>8$-Fdr6$-%(convertG6%FN%)rationalG.%&exactG&F\\u6#;FEFD@%4-Fap6$ Fiu.Fdr-F\\r6#-%&evalfG6#FiuC'>Fiu-F_r6$/Fiv.%%_SUMGFiu>8%-%$mapG6$R6# F%F@F@F@@$3/-F]o6$\"\"!FNFdw4-Fap6$7#-F]o6#FNFdwFNF@F@6\"-Fdt6$FiuFft> 8'<#-%$seqG6$/&Fgw6#8&&%%_sumGFdy/Fey;F_o-%%nopsG6#Fgw>8(<#-F`y6$/Ffy- %'subsopG6$/F_o-F]w6#-F]o6$F_oFcyFcyFhy-F\\r6#-F_r6%F^z/FdwFiv-F]w6#-F _r6$F]yFiu@&-FL6$FXFZ>80FX-FL6$FX/FZFgo>Fh[lF\\o>87%&falseG@$3-F`u6$FN -%)specfuncG6$%)anythingG%%diffG-FL6$Fh[lFYC$>8--Fiw6$R6#F&F@6$%)opera torG%&arrowGF@-F]o6$;FE-F[zFhxFNF@F@Fix-FdtFc\\l@$-%'memberG6$Fh[lF]]l >F^\\l%%trueG@$3FV4F^\\lC$@%-Fap6$FNFX@%0%*_EnvSum95GF_\\l>8/--%(readl ibG6#.%-sum/indefnewGFf^l>F[_l-%*sum/indefGFf^l>F[_l*&FNF_oFXF_o@%-Fap 6$F[_l%%FAILGFgt-F\\r6#F[_l@$33Fbo-Fap6$FdoF_tFb^lC&>F[_lFj_l@$33Fh^l/ -F]o6$7$FEF_oFX,$F_t!\"\"/-F]o6$7$FEFEFXF_tC&>88-Fdt6$FNFY>Fcal-%&minu sG6$Fcal<#F\\o?(83F_oF_o-F[z6#FcalF_^l@$-%#isG6$-F]o6$F\\blFcal%(integ erG>89Fcbl@%-%&evalbG6#/Fgbl.FgblC$-%)userinfoG6%FbxFdr%=no~integer~va riable~declaredG>F[_lFj_l>F[_l--F^_l6$.%.sum/summationG((%!G%(libnameG %0/sum/hypersum.mG6%FNF\\oFgbl@$Fh_l>F[_l-%-sum/infiniteGFf^l@'4Fh_lF[ `l4-FL6$FN%\"+GFgtC&>81Fh]l>82Ffx?(F\\blF_oF_oF\\elF_^lC$>&846#F\\bl-F cdl6$&F^elFdelFX@$-Fap6$Fbel<%F_t%*undefinedGFj_lFgt-F\\r6#-F]v6$7#-F` y6$&FcelFdy/Fey;F_oF\\elFidl@$3-FL6$FdoF[pFb^l@%-FL6$FN-%(ratpolyG6$Fg \\lF\\oC$>F[_l-%+sum/RootOfGFf^l@%Fh_lFgtF[`l@%F_uC$>85-F]v6$7#-%*allv aluesG6#FdoFbu-F\\r6#-F]v6$-F]v6$7#-F`y6$-F_r6$/F\\o-F]o6$8.FiglFN/F^i l;F_o-F[z6#FiglFidlFbu-F\\r6#-FivF[u@$F]p-F\\r6#-F_r6$/F\\oFdoFN>Fh[lF \\o>8)Fh`l@$3-FL6$F^jlFgp4-FL6$F^jl.Febl>F^jl-%%ceilG6#F^jl>8+,&F^alF_ oF_oF_o@$3-FL6$F\\[mFgp4-FL6$F\\[mFfjl>F\\[m-%&floorG6#F\\[m>8,,&F\\[m F_oF^jlF\\al@%-FL6$FN-%(polynomG6$Fg\\lFh[l>F]]l-%'degreeG6$FNFh[l>F]] lFj_l@+F^\\l-Fdr6$-F]v6$FN%\"DG/Fh[l;F^jl,&F\\[mF_oF\\alF_o4-FapFe\\m* &Fj[mF_oFNF_o3-FL6$F^jlF_v-FL6$F\\[mF_v@)2Fj[mFbx-Fdr6$,$FNF\\al/Fh[l; F\\[m,&F^jlF_oF\\alF_o30F]]lFj_l1FbxF]]l@%2,&*$F]]lFEF_o\"$+#F_oFj[mC$ @%Fh^l>F[_l-F]_lFe\\m>F[_l-Fd_lFe\\m,&-F_r6$/Fh[lF\\[mF[_lF_o-F_r6$/Fh [lF^jlF[_lF\\al-F]v6$7#-%\"$G6$FNF]]mFidl2Fj[m\"%+5-F]v6$7#-Fi_mFf^lFi dlC'@%Fh^l>F[_lF[_m>F[_lF]_m@$Fh_l-F\\r6#F]`m>F[_l-%.sum/subscheckG6&F [_lFh[lF^jlF\\[m@$Fh_lFf`mF[_l-FL6$Fj[mF_v-Fdr6$-F_r6$/Fh[l,&Fh[lF_oF^ jlF_oFN/Fh[l;Fbx,&Fj[mF_oF\\alF_oC%@%Fh^l>8*F[_m>F[bmF]_m@%4-Fap6$F[bm Fj_lC%@$33-FL6$-F]wFjjlFgp-FL6$-F]wFh[mFgp-%-sum/singularG6&FNFh[lFgbm FjbmFgt>F[bm-Fj`m6&F[bmFh[lF^jlF\\[m@$/F[bmFj_lFgtC$>F[bm-%)sum/def1GF j_m@$F_bmC$>F[bm-%)sum/def2GFj_m@$F_bmC$>F[_l-%'expandG6#-F`dmFhx@%3/F [_lFN4-FL6$F[_lFidl>F[bmFitC$-F`cl6%\"\"$Fdr%;expanding~and~trying~aga inG@%FgdmC(>F\\el-F[zF\\`l>FgwFbx>F^elFbx?(F^ilF_oF_oF\\elF_^lC%>Fcel- Fdr6%-F]o6$F^ilF[_lF]]m&F\\u6#;F]emFD@$-Fap6$FcelF[flFgt@%-Fap6$FcelFd r>Fgw,&FgwF_oFjemF_o>F^el,&F^elF_oFcelF_o@$0FgwF[_l-F\\r6#,&F^elF_o-Fd r6$FgwFbvF_oFgtC$>F[bm-Fdr6$F[_lF]]m@$3-FL6$F[bm.Fft/-F]o6$FbxF[bmFdr> F[bmFitF[bmF@F@Fix" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "sum1: = subsop(1= op([e::uneval, x::uneval]), eval(sum)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "sum1(k^2, k=1..4); Sum(k^2, k=1..4);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"#I" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#-%$SumG6$\"\"%/\"\"#;\"\"\"F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "xprint(protect); " }}{PARA 2 "" 1 "" {TEXT -1 272 "proc()\nlocal i;\noption `Copyright \+ (c) 1994 by Waterloo Maple Inc. All rights reserved.`;\ndescription `P rotect a name from being reassigned`\n for i to nargs do if not typ e(args[i], 'protected') then setattribute(args[i], 'protected', attrib utes(args[i])) fi od; NULL\nend" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "x:=1: setattribute('x'): ana('x'); setattribute('x', `toto`); \+ ana('x');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"\"7&%%NAMEGF#%&~NULLG %&<~x~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"xG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"\"7&%%NAMEGF#%%totoG%&<~x~>G" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 15 "with(geometry):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "point(pa,[1,2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#% #paG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "ana(pa); tpa:= attr ibutes(pa); tpa[`geom2d/coords`];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$% #paG7&%%NAMEG%&*~0~*G-%&TableG6#7$/%.geom2d/coordsG7$\"\"\"\"\"#/%,geo m2d/formG%(point2dG%'<~pa~>G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$tpa G-%&TABLEG6#7$/%.geom2d/coordsG7$\"\"\"\"\"#/%,geom2d/formG%(point2dG " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$\"\"\"\"\"#" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 7 "Compseq" }}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 92 "x:= 'x': f:= proc(a,b) local i,j; global x,y ; x:=a+b; i := a*b; j := x+i; y := a+sin(x) end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6$%\"aG%\"bG6$%\"iG%\"jG6\"F,C&>%\"xG,&9$\"\"\"9 %F2>8$*&F1F2F3F2>8%,&F/F2F5F2>%\"yG,&F1F2-%$sinG6#F/F2F,6$F/F;6\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "s:=convert(f,CompSeq);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG-%(CompSeqG6&/%'localsG7$%\"iG% \"jG/%(globalsG7$%\"xG%\"yG/%'paramsG7$%\"aG%\"bG7&/F0,&F5\"\"\"F6F:/F +*&F5F:F6F:/F,,&F0F:F+F:/F1,&F5F:-%$sinG6#F0F:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 35 "simplify(s); convert(\", procedure);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%(CompSeqG6%/%(globalsG7$%\"xG%\"yG/%'param sG7$%\"bG%\"aG7$/F),&F/\"\"\"F.F3/F*,&F/F3-%$sinG6#F)F3" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#R6$%\"bG%\"aG6\"F'F'C$>%\"xG,&9$\"\"\"9%F->%\"yG ,&F.F--%$sinG6#F*F-F'6$F*F06\"" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 28 "xprint(`convert/procedure`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "op(eval(`procmake/table`)): sort(\", (a,b)->evalb(rhs (a) " 0 "" {MPLTEXT 1 0 249 "a:=proc(); b(100); \+ end; b:=proc(n); if n>0 then c(n-2); fi; end;\nc:=proc(n); if n>0 the n b(n+1); fi; end;\nkernelopts(profile=true);\nwriteto('output'); a(); kernelopts(profile=false);\nwriteto(terminal); readlib(exprofile); ex profile('output',alpha);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aGR6\" F&F&F&-%\"bG6#\"$+\"F&F&6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bGR 6#%\"nG6\"F(F(@$2\"\"!9$-%\"cG6#,&F,\"\"\"!\"#F1F(F(6\"" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"cGR6#%\"nG6\"F(F(@$2\"\"!9$-%\"bG6#,&F,\"\" \"F1F1F(F(6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6#%)FILENAMEG6=%&CALLSG%#FPG%)FUNCTIONG%*FUNCT ION2G%,FUNCTIONSETG%&LEVELG%$LEVG%%LINEG%'LINEnoG%%SIGNG%)SORTFLAGG%)S ORTLISTG%&SPACEG%&STACKG%%TIMEG%*TOTALTIMEG%+TOTALSPACEG%(CURTIMEG%(OL DTIMEG%)CURSPACEG%)OLDSPACEG%%TEMPG%\"iG%\"jG%$CLSG%&OTIMEG%'OSPACEG6# %inCopyright~(c)~1995~by~Waterloo~Maple~Inc.~All~rights~reserved.G6\"C ?@$2\"\"#9#-%&ERRORG6#%9Too~many~arguments~givenG@%/FIFH@%4-%'memberG6 $&9\"6#FH<,.%%loadG.%&rloadG.%%timeG.%&rtimeG.%&wordsG.%'rwordsG.%&cal lsG.%'rcallsG.%&alphaG.%'ralphaG-FK6#%?invalid~sorting~flag~specifiedG >8.FU>F[pFen@%/9$.%(defaultG>8%F`p>Fcp-%&fopenG6%F_p%%READG%%TEXTG-%(r eadlibG6#%&stackG>8(<#%-Main_RoutineG>&826#Faq\"\"!>&80FeqFfq>&8$Feq\" \"\">8-F]r>86Ffq>88Ffq>81-&F]q6#%$newGFeq>8)-Fgr6#Ffq>8+-%)readlineG6# Fcp>8,F]r?(FDF]rF]rFD0F_sFfqC'>89-%'sscanfG6$F_s%.->%s~%d,%f,%fG@%/-%% nopsG6#Fis\"\"%>85,$-%#opG6$FctFis$\"+LLLLL!#7C$>Fis-F[t6$F_s%N-->~ent er~%[^~,],~level=%d,~words=%d,~time=%fG@$F_t>FetFgt@%F_tC0>8&-Fht6$F]r Fis>8*-Fht6$FHFis>87-Fht6$\"\"$Fis@$4-FS6$FguF_qC&>F_q-%&unionG6$F_q<# Fgu>&F\\r6#FguFfq>&FdqF_wFfq>&FiqF_wFfq@$2F[vF]r-FK6$%Ccorrupted~level ~indicators,~line~#GFds>F^w,&F^wF]rF]rF]r@$32Fbv-&F]q6#%&depthG6#Fer2F [v-&F]q6#%$topG6#F[sC(>Fis-FexFbx>&FdqFbt,(F]yF]rFet#F]rFHFar#!\"\"FH> Far,&FarF_yFetF_y>&FiqFbt,(FeyF]rF_vF_yFcrF`y>Fcr,&FcrF_yF_vF_y?(FDF]r F]rFD2F[v,&FdxF]r\"#5F]rC$-&F]q6#%$popGFhx-F_zFbx>FisF[y>F]y,(F]yF]rFe tF]rFarFay>Fey,(FeyF]rF_vF]rFcrFay>FarFet>FcrF_v-&F]q6#%%pushG6$FguFer -F[[l6$F[vF[sC%>Fis-F[t6$F_s%.<-%s~%d,%d,%fG@%F_t>FetFftC$>Fis-F[t6$F_ s%M<--~exit~%[^~,],~level=%d,~words=%d,~time=%fG@$F_t>FetFgt@%F_tC1>Fg uFhu>F[vF\\v>F_vF`v>FetFgt@$Fdv-FK6&%Sexiting~a~function~that~was~neve r~entered,~line~#~GFds%+Function:~GFgu@$Few-FK6$%Dcorrupted~level~indi cators,~line~#~GFds@$FcxC(>FisF[y>F]yF^y>FarFcy>FeyFfy>FcrFhy?(FDF]rF] rFDFcxC$F^zFbz>FisF[y>F]yFez>FarFet>FeyFgz>FcrF_v@$50F[vFdx0FguF[y-FK6 #%Dinvalid~nesting~of~calls~and~levelsGFbzF^zC$>Fis-F[t6$F_s%?%s~%d~%f ~(~%*f%%)~%f~(~%*f%%%cG@%3/F`t\"\"&/-Fht6$F[_lFis%\")GC*>FguFhu>88=F`v>8>Fgt@$FdvC&>F_qFiv>F^wFfq>FawFfq>FcwFfq>F^w,&F^wF]r*&F_rF]rFc_ lF]rF]r>Faw,&FawF]r*&F_rF]rFe_lF]rF]r>Fcw,&FcwF]r*&F_rF]rFg_lF]rF]rC$> Fis-F[t6$F_s%;#++~%s~calls~%s~%d,~%f,~%fG@%Fj^lC,>FguFhu>8'F\\v>Fc_lF` v>FetFgt>F_vF]_l@$0Fgu%(GC%@$FdvC&>F_qFiv>F^wFfq>FawFfq>FcwFfq> Faw,&FawF]r*&F_rF]rFetF]rFay>Fcw,&FcwF]r*&F_rF]rF_vF]rFay@$4-FS6$F`alF _qC&>F_q-Fjv6$F_q<#F`al>&F\\r6#F`alFfq>&FdqF_clFfq>&FiqF_clFfq>F^cl,&F ^clF]rF``lF]r>Facl,&FaclF]rF`blF]r>Fccl,&FcclF]rFcblF]rC$>Fis-F[t6$F_s %7(==~subtract~next~==%cG@$3/F`tF]r/FhuF__l>F_rFay>F_sF`s>Fds,&FdsF]rF ]rF]r@$0F_pF`p-%'fcloseGFbs>83Ffq>84Ffq>8/7\"?(8:F]rF]r-Fat6#F_q%%true GC&>8;-Fht6$FcelF_q>F\\el,&F\\elF]r&Fdq6#FielF]r>F^el,&F^elF]r&FiqF_fl F]r>F`el7$7&Fiel&F\\rF_flF^flFbfl-Fht6#F`el>F^el-%&roundG6#F^el@$5/F\\ elFfq/F^elFfq-FK6#%Pno~data~collected,~use~kernelopts(profile=true)G-% 'printfG6&%Y%d~different~functions,~using~%.3f~secs~and~%.0fK~words|+G FdelF\\elF^el-Fegl6)%?%-25s~%6s~~%10s~%8s~~%10s~%8s|+G%%nameG%'#callsG %$cpuG%\"~GF\\oF^hl-Fegl6)Fjgl%%====G%'======G%$===GF^hl%&=====GF^hl@6 /F[pFco>F`el-%%sortG6$F`elR6$%\"aG%\"bGFDFDFD-%)lexorderG6$&F_p6#F]r&9 %FcilFDFD6\"/F[pFeo>F`el-Fihl6$F`elRF\\ilFDFDFD4F_ilFDFDFfil/F[pF_o>F` el-Fihl6$F`elRF\\ilFDFDFD-%&evalbG6#2&F_pFW&FeilFWFDFDFfil/F[pFao>F`el -Fihl6$F`elRF\\ilFDFDFD-Fcjl6#2FgjlFfjlFDFDFfil/F[pFgn>F`el-Fihl6$F`el RF\\ilFDFDFD-Fcjl6#2&F_p6#Fbv&FeilFi[mFDFDFfil/F[pFin>F`el-Fihl6$F`elR F\\ilFDFDFD-Fcjl6#2Fj[mFh[mFDFDFfil/F[pF[o>F`el-Fihl6$F`elRF\\ilFDFDFD -Fcjl6#2&F_p6#Fct&FeilF\\]mFDFDFfil/F[pF]o>F`el-Fihl6$F`elRF\\ilFDFDFD -Fcjl6#2F]]mF[]mFDFDFfil/F[pFY>F`el-Fihl6$F`elRF\\ilFDFDFD-Fcjl6#2*&F[ ]mFHFh[mF]r*&F]]mFHFj[mF]rFDFDFfil/F[pFen>F`el-Fihl6$F`elRF\\ilFDFDFD- Fcjl6#2F_^mF^^mFDFDFfil?(FcelF]rF]r-FatFhflFfelC$>Fiel-Fht6$FcelF`el-F egl6+%O%-25s~%6d~~%10.3f~(%5.1f%c)~~%10.0f~(%5.1f%c)|+G-Fht6$F]rFiel-F ht6$FHFiel-Fht6$FbvFiel,$*&Fe_mF]rF\\elFay\"$+\"%\"%G-F[gl6#-Fht6$FctF iel,$*&F]`mF]rF^elFayFi_mFj_m-%'RETURNG6#%%NULLGFDFDFfil" }}{PARA 6 " " 1 "" {TEXT -1 512 "4 different functions, using 7541.000 secs and 13 890052K words\nname #calls cpu \+ words \n==== ====== === \+ ===== \nMain_Routine 1 24.76 6 ( .3%) 13874163 ( 99.8%)\na 1 \+ 0.000 ( 0.0%) 75 ( .0%)\nb 9 9 29.063 ( .3%) 7785 ( .0%)\nc \+ 99 7487.170 ( 99.2%) 8029 ( .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 "" }}}}{SECT 0 {PARA 3 " " 0 "" {TEXT -1 10 "Transpose2" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 164 "transpose2:= proc () option builtin ; 171 end: \nmat:= array(1..3,1..3, symmetric, spars e, [[1,2,3],[4,5]]); ana(eval(mat), 1);\ntranspose2(mat); ana(%,1); ev alm(mat);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$matG-%'matrixG6#7%7%\" \"\"\"\"%\"\"$7%F+\"\"&\"\"!7%F,F/F/" }}{PARA 12 "" 1 "" {XPPMATH 20 " 6%-%&TableG6'%*symmetricG%'sparseG;\"\"\"\"\"$F(7&/6$F)F*F*/6$F)F)F)/6 $F)\"\"#\"\"%/6$F2F2\"\"&7&\"#J\"(!oD\"*\"(s%\\))\")KJA@7&%%TABLG-%%Se quG6$F&F'-F?6$F(F(%'*HACH*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matr ixG6#7%7%\"\"\"\"\"!F)7%F)\"\"&F)7%F)F)F)" }}{PARA 12 "" 1 "" {XPPMATH 20 "6%-%&TableG6'%*symmetricG%'sparseG;\"\"\"\"\"$F(7&/6$F*F) F*/6$F)F)F)/6$\"\"#F)\"\"%/6$F2F2\"\"&7&\"#J\"(!oD\"*\"(s%\\))\")_7@@7 &%%TABLG-%%SequG6$F&F'-F?6$F(F(%'*HACH*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%\"\"\"\"\"%\"\"$7%F)\"\"&\"\"!7%F*F-F-" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "m0:= vector([1,2,3],column): ana(m0, 'anav'); ana0(anav[3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%L% \"\"\"\"\"#\"\"$%'columnG7%\"#C\"(GNT)\"('p<&)7%%%LISTG-%%SequG6%F$F%F &F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&%%NAMEG%&*~0~*G%&~NULLG%+<~co lumn~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "ma:=array(1..2,1 ..3, [seq([$k*3..k*3+2],k=1..2)]); mb:= transpose2(ma);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#maG-%'matrixG6#7$7%\"\"$\"\"%\"\"&7%\"\"'\"\" (\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mbG-%'matrixG6#7%7$\"\"$ \"\"'7$\"\"%\"\"(7$\"\"&\"\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "ma:=array(symmetric, sparse, 1..3,1..3, [(3,1)=13, (1,1)=11 ]); mb:= transpose2(ma); mc:= array(op(eval(mb))); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#maG-%'matrixG6#7%7%\"#6\"\"!\"#87%F+F+F+7%F,F+F+" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mbG-%'matrixG6#7%7%\"#6\"\"!F+7%F+F +F+F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mcG-%'matrixG6#7%7%\"#6\" \"!\"#87%F+F+F+7%F,F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 " ana(ma); ana(mb); ana(mc);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%#maG7&% %NAMEG-%%TablG6'%*symmetricG%'sparseG;\"\"\"\"\"$F+7$/6$F,F-\"#8/6$F,F ,\"#6%&~NULLG%'<~ma~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%#mbG7&%%NAM EG-%%TablG6'%*symmetricG%'sparseG;\"\"\"\"\"$F+7$/6$F-F,\"#8/6$F,F,\"# 6%&~NULLG%'<~mb~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%#mcG7&%%NAMEG-% %TablG6'%*symmetricG%'sparseG;\"\"\"\"\"$F+7$/6$F,F-\"#8/6$F,F,\"#6%&~ NULLG%'<~mc~>G" }}}{EXCHG {PARA 11 "" 1 "" {XPPMATH 20 "6$%$qqqG7&%%NA MEG-%&TableG6'%*symmetricG%'sparseG;\"\"\"\"\"$F+7$/6$F,F,\"#6/6$F,F- \"#8%&~NULLG%(<~qqq~>G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "m a:=array(diagonal, 1..3,1..4, [ (1,1)=11 ]); mb:= transpose2(ma); " }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#maG-%'matrixG6#7%7&\"#6\"\"!F+F+7&F +&F$6$\"\"#F/F+F+7&F+F+&F$6$\"\"$F3F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mbG-%'matrixG6#7&7%\"#6\"\"!F+7%F+&F$6$\"\"#F/F+7%F+F+&F$6$\"\"$ F37%F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "mu:= array(id entity, 1..4, 1..4); transpose2(mu);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#muG-%&arrayG6&%)identityG;\"\"\"\"\"%F)7\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7&7&\"\"\"\"\"!F)F)7&F)F(F)F)7&F)F)F(F)7&F) F)F)F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 28 "Liste des proc\351dures builtin" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 227 "pro1:= proc(fun); convert(eval(fun),string); if le ngth(%)>45 or length(%) <8 then NULL \nelse searchtext(`;`,%); if %=0 \+ then NULL else substring(%%, %+1..-1): \n searchtext(`end`, %): parse( substring(%%,1..%-2)) = fun fi fi; end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "transpose2:= proc() option builtin ; 171 end: " }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 952 "liste:= [add,seq,type,`+`,` *`,`^`, evalhf,typematch,convert,select,has,map,eval,evalb,length, sub string,print,sort,searchtext,pointto,addressof,assemble,disassemble,se tattribute,attributes,table,map2,op,nops,member,traperror,\ncat, `$`,i ndets,evaln,alias,subsop, expand,evalf,subs,series,assigned,anames,una mes,ERROR,RETURN,readlib,numboccur,\niquo,irem, normal, modp, `minus`, `intersect`,`union`,kernelopts,writeto,time,gc,parse,iolib,lexorder,n umer,denom,frontend,\nhastype, userinfo,system,ssystem ,indices,entrie s,array,debugopts, `abs`,appendto,coeff,coeffs,max,min,mods,modp1,mul, \ntaylor,callback,diff,divide,ilog10,trunc,maxnorm,sign,lcoeff,tcoeff, icontent,degree,ldegree,Re,Im,\nSearchText,lprint,igcd,DEBUG,setuserin terface,getuserinterface,isqrt,macro, goto, transpose2, `if`, inner,AS SERT,`int/series`,\ntranspose2, hfarray, `=` ,`<`,`>`,`<=`,`>=`, `<>`, `evalf/hypergeom/kernel`, `**`, timelimit, genpoly]:\nres:= map(pro1, liste): res[-10..-1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,/\"#f%\"=G /\"#l%\"G/\"#k%#<=G/\"#h%#>=G/\"#n%#<>G/\"$7\"%7evalf/hyper geom/kernelG/\"#c%#**G/\"$q\"%*timelimitG/\"$1\"%(genpolyG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "ress:= sort(res, (j,k)-> evalb(lhs( j)< lhs(k)) ): nops(%);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 235 "ta:= ta ble(ress): ta[88]:=`.`: \nm:= matrix(19,10, proc(j,k); j*10+k-11: if % <=40 or %>=190 then `.`\n elif assigned(ta[%]) then ta[%] else %; fi; \+ end, 'array'): m[6,3]:= ``(52): m[19,1]:= ``(180): \nlinalg[submatri x](m, 6..19, 1..10); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$B\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#707,\"#]\"#^-%!G6#\"#_%&in nerG%'ASSERTG%\"*G%#**G%\"^G%&DEBUGG%\"=G7,%&ERRORG%#>=G%\">G%#ImG%#<= G%\"G%\"+G%'RETURNG7,%#ReG%+SearchTextG%$absG%$addG%*address ofG%&aliasG%'anamesG%)appendtoG%&arrayG%)assembleG7,%)assignedG%+attri butesG\"##)%)callbackG%$catG%&coeffG%'coeffsG%(convertG%\".G%*debugopt sG7,\"#!*%'degreeG%&denomG%%diffG%,disassembleG%'divideG%\"$G%(entries G%%evalG%&evalbG7,%&evalfG%'evalhfG%&evalnG%'expandG%)frontendG%#gcG%( genpolyG%1getuserinterfaceG%%gotoG%$hasG7,%(hastypeG%(hfarrayG%7evalf/ hypergeom/kernelG%)icontentG%#ifG%%igcdG%'ilog10G%'indetsG%(indicesG%* intersectG7,%+int/seriesG%&iolibG%%iquoG%%iremG%&isqrtG%+kerneloptsG%' lcoeffG%(ldegreeG%'lengthG%)lexorderG7,%'lprintG%¯oG%$mapG%%map2G% $maxG%(maxnormG%'memberG%$minG%&minusG%%modpG7,%&modp1G%%modsG%$mulG%% nopsG%'normalG%*numboccurG%&numerG%#opG\"$[\"%&parseG7,%(pointtoG%&pri ntG%(readlibG%+searchtextG%'selectG%$seqG%'seriesG%-setattributeG%1set userinterfaceG%%signG7,%%sortG%(ssystemG%%subsG%'subsopG%*substringG%' systemG%&tableG%'taylorG%'tcoeffG%%timeG7,%*timelimitG%+transpose2G%*t raperrorG%&truncG%%typeG%*typematchG%'unamesG%&unionG%)userinfoG%(writ etoG7,-F+6#\"$!=\"$\"=\"$#=\"$$=\"$%=\"$&=\"$'=\"$(=\"$)=\"$*=" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "seq( (proc(k) if not assigne d(ta[k]) then k else NULL fi end)(k), k=53..179): pas_trouve:= [%]; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+pas_trouveG7&\"#m\"##)\"#!*\"$[\" " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "map(op, \{entries(m)\} ) minus convert(pas_trouve, set) minus\{``(52),``(180)\} : convert(lis te, set) minus %;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<\"" }}}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 214 " for k from 92 to 124 do for k1 fro m 92 to 124 do for k2 from 92 to 124 do for k3 from 92 to 124 do \ntmp := pro1(ca.(char[k]).(char[k1]).(char[k2]).(char[k3]) ); \nif tmp <> NULL then print (tmp) fi od;\nod; od; od;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 25 "recherche \+ dans procedures" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "txt:=conv ert(eval(optimize), string):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 123 "k:= 1: li:= NULL: to 20 while k<>0 do k:= k+SearchText(\"optimi ze\", txt, k+1..-1);\nli:=li, substring(txt, k..k+30);\nod: li; " }} {PARA 12 "" 1 "" {XPPMATH 20 "66Q@optimize/getname`,lhs),a);~glos6\"Q@ optimize/tryhard/frontend`)(a,gF$Q@optimize/array`(a))~elif~type(aF$Q@ optimize/procedure`(a))~elif~tyF$Q@optimize/statseq`(a,glos)))~eliF$Q@ optimize/procedure`(convert(a,pF$Q@optimize,`optimizing~an~algebraF$Q@ optimize/clear`(`optimize/preprF$Q@optimize/prepro`);~s~:=~`optimiF$Q@ optimize/prepro`(a);~`optimize/F$F+Q@optimize/prepro`);~userinfo(2,oF$ Q@optimize,`finding~common~subexpF$Q@optimize/makeass`(s,ass);~if~s~F$ Q@optimize/ass`(s,ass)~fi;~`optimF$Q@optimize/clear`(`optimize/ass`)F$ Q@optimize/ass`);~`optimize/clearF$Q@optimize/clear`(`optimize/makeaF$ Q@optimize/makeass`);~n~:=~ass[0]F$Q@optimize,`removing~redundant~teF$ " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "proc(z): SearchText(\"` \",z): substring(z, 1..%-1); end: li1:= map(%,[li]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$li1G76Q1optimize/getname6\"Q:optimize/tryhard/fro ntendF'Q/optimize/arrayF'Q3optimize/procedureF'Q1optimize/statseqF'F*Q *optimize,F'Q/optimize/clearF'Q0optimize/preproF'F.F-F.F,Q1optimize/ma keassF'Q-optimize/assF'F-F0F-F/F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "map(convert,li1,symbol); map(pro1, %);" }}{PARA 12 " " 1 "" {XPPMATH 20 "6#76%1optimize/getnameG%:optimize/tryhard/frontend G%/optimize/arrayG%3optimize/procedureG%1optimize/statseqGF'%*optimize ,G%/optimize/clearG%0optimize/preproGF+F*F+F)%1optimize/makeassG%-opti mize/assGF*F-F*F,F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "toto:= subs(kk=82, eval(proc() option builtin; kk; en d) ); traperror(toto (sin,'a','b','c') ) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%totoGR6\"F&6#%(builtinGF&\"##)F&F&F&%.call_externalG " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%Zwrapper~handle,~external~handle, ~and~return~flag~expectedG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 132 "for k in pas_trouve do toto:= subs(kk=k, eval(proc() option built in; kk; end) ); traperror(toto( sin, series(sin(x),x), x=1 )) od;" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%totoGR6\"F&6#%(builtinGF&\"#mF&F&F &%-MorrBrilCullG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%Vwrong~number~(or ~type)~of~parameters~in~function~totoG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%totoGR6\"F&6#%(builtinGF&\"##)F&F&F&%.call_externalG" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%Zwrapper~handle,~external~handle,~and ~return~flag~expectedG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%totoGR6\" F&6#%(builtinGF&\"#!*F&F&F&%0define_externalG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%5unknown~option~x=...G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%totoGR6\"F&6#%(builtinGF&\"$[\"F&F&F&%&orderG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%Vwrong~number~(or~type)~of~parameters~in~function ~totoG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "toto:= proc() opt ion builtin; 90 end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%totoGR6\"F& 6#%(builtinGF&\"#!*F&F&F&%0define_externalG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "toto(ta, series(sin(x),x), file=`tutu.m`);" }} {PARA 8 "" 1 "" {TEXT -1 30 "Error, unknown option file=..." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 30 "map(pro1, [open, transpose2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#/\"$r\"%+transpose2G" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 5 "iolib" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 170 "pro2:= proc(z):\nconvert(eval(z),string);\nSearchText(\"iolib\", %): if %=0 \+ then RETURN(0=z) fi;\nsubstring(%%, %..-1);\nsubstring(%, 7..SearchTex t(\",\", %)-1):\nparse(%)=z; end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 289 "map(pro2, [feof,fclose,filepos,fopen,fprintf,fremove ,fscanf,iostatus,open,readbytes,\nreadline,sprintf,sscanf,writebytes,w riteline,process[block],process[exec],process[fork],\nprocess[kill],pr ocess[pipe],process[popen],process[wait]]):\ntmp:=sort(%, proc(a,b) (l hs(a)%$t mpG78/\"\"!%*writelineG/\"\"\"%&fopenG/\"\"#%)readlineG/\"\"%%*readbyt esG/\"\"&%+writebytesG/\"\"'%(fileposG/\"\"(%'fcloseG/\"\")%(fremoveG/ \"\"*%(fprintfG/\"#5%(sprintfG/\"#6%'fscanfG/\"#7%'sscanfG/\"#8%)iosta tusG/\"#9&%(processG6#%&popenG/\"#:&FP6#%%pipeG/\"#;&FP6#%%forkG/\"#<& FP6#%%execG/\"#=&FP6#%%waitG/\"#>&FP6#%&blockG/\"#?%%openG/\"#@%%feofG /\"#A&FP6#%%killG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "matrix (map([op], tmp)): concat(submatrix(%,1..11,1..2), submatrix(%,12..22,1 ..2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7-7&\"\"!%*write lineG\"#7%'sscanfG7&\"\"\"%&fopenG\"#8%)iostatusG7&\"\"#%)readlineG\"# 9&%(processG6#%&popenG7&\"\"%%*readbytesG\"#:&F66#%%pipeG7&\"\"&%+writ ebytesG\"#;&F66#%%forkG7&\"\"'%(fileposG\"#<&F66#%%execG7&\"\"(%'fclos eG\"#=&F66#%%waitG7&\"\")%(fremoveG\"#>&F66#%&blockG7&\"\"*%(fprintfG \"#?%%openG7&\"#5%(sprintfG\"#@%%feofG7&\"#6%'fscanfG\"#A&F66#%%killG " }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " readlib(cost);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6\"6&%\"aG%\"cG%\"k G%%indsG6#%aoCopyright~(c)~1992~by~the~University~of~Waterloo.~All~rig hts~reserved.GF$C%>8%\"\"!?&8$7#9\"%%trueG@)-%%typeG6$F1%&arrayGC%>8'7 #-%(indicesG6#F1?&8&FF.,&F.\"\"\"-%/cost/calculateG6$&F16#-%#opG6# FB%&falseGFE>F.,&F.FE*&-%%nopsG6#FF.,(F.FE-FG6$-FL6$FEF1FNFE-FG6$-FL6$ \"\"#F1FNFE>F.,&F.FEFVFE-F76$F1Ffn>F.,&F.FE-FG6$F1FNFE-%&ERRORG6#%2inv alid~argumentsG-%%sortG6$F.7(%*additionsG%0multiplicationsG%*divisions G%*functionsGFWFVF$F$F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " expr := add(x^k, k=1..7): % = cost(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,0%\"xG\"\"\"*$)F%\"\"#\"\"\"F&*$)F%\"\"$F*F&*$)F%\"\"%F*F&*$)F %\"\"&F*F&*$)F%\"\"'F*F&*$)F%\"\"(F*F&,&%*additionsGF6%0multiplication sG\"#@" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "convert(expr,horn er): % = cost(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/*&,&\"\"\"F&*&,& F&F&*&,&F&F&*&,&F&F&*&,&F&F&*&,&F&F&%\"xGF&F&F1F&F&F&F1\"\"\"F&F&F1F2F &F&F1F2F&F&F1F2F&F&F1F2,&%*additionsG\"\"'%0multiplicationsGF5" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "fun:= subsop(3=NULL, unapply (expr, x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$funGR6#%\"xG6\"F(F(, 09$\"\"\"*$)F*\"\"#\"\"\"F+*$)F*\"\"$F/F+*$)F*\"\"%F/F+*$)F*\"\"&F/F+* $)F*\"\"'F/F+*$)F*\"\"(F/F+F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "fun1:= optimize(fun); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%fun1GR6#%\"xG6%%#t1G%#t3G%#t2G6\"F,C&>8$*$)9$\"\"#\"\"\">8&*& F/\"\"\"F2F8>8%*$)F/F3F4,0F2F8F/F8F6F8F:F8*&F:F8F2F4F8*&F/F4F:F4F8*&F: F4F6F8F8F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "funs:=con vert(fun,CompSeq);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%funsG-%(CompS eqG6%/%'localsG7#%'resultG/%'paramsG7#%\"xG7#/F+,0F/\"\"\"*$)F/\"\"#\" \"\"F3*$)F/\"\"$F7F3*$)F/\"\"%F7F3*$)F/\"\"&F7F3*$)F/\"\"'F7F3*$)F/\" \"(F7F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "map(convert,funs , horner); fun2:= convert(%, procedure);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%(CompSeqG6%/%'lo calsG7#%'resultG/%'paramsG7#%\"xG7#/F)*&,&\"\"\"F2*&,&F2F2*&,&F2F2*&,& F2F2*&,&F2F2*&,&F2F2F-F2F2F-F2F2F2F-\"\"\"F2F2F-F=F2F2F-F=F2F2F-F=F2F2 F-F=" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%fun2GR6#%\"xG6#%'resultG6\" F*>8$*&,&\"\"\"F/*&,&F/F/*&,&F/F/*&,&F/F/*&,&F/F/*&,&F/F/9$F/F/F:F/F/F /F:\"\"\"F/F/F:F;F/F/F:F;F/F/F:F;F/F/F:F;F*F*F*" }}}{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 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "chars:= [``, seq(char[k ], k=97..122)]; chmax:= nops(\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %&charsG7=%!G%\"aG%\"bG%\"cG%\"dG%\"eG%\"fG%\"gG%\"hG%\"iG%\"jG%\"kG% \"lG%\"mG%\"nG%\"oG%\"pG%\"qG%\"rG%\"sG%\"tG%\"uG%\"vG%\"wG%\"xG%\"yG% \"zG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&chmaxG\"#F" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "chars[10], chars[19];" }}{PARA 11 " " 1 "" {XPPMATH 20 "6$%\"iG%\"rG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "`if` (k1<17, 17,3); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%#ifG6%2,&%#k1G\"\"\"!# " 0 "" {MPLTEXT 1 0 483 "strin:= ``: for k1 from 1 to chmax do #k2min:= \+ `if` (k1=16, 17,2); k2max:= `if` (k1=16, chmax,3);\n for k2 from 1 to \+ chmax do for k3 from 1 to chmax do \n# for k4 from 1 to chmax do for k 5 from 1 to chmax do for k6 from 1 to chmax do\nstrin:= cat(`transpose /`, chars[k1], chars[k2], chars[k3]); # , chars[k4] \nfor kn from 1 to chmax do ``.strin.(chars[kn]);\nconvert(eval(\"),string); \n if lengt h(\") > 14 then print(` `.strin.(chars[kn]), substring(\",1..40)) fi; \+ od: od: od: od: \n# od:od:" }}{PARA 7 "" 1 "" {TEXT -1 32 "Warning, co mputation interrupted" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "ev al(`transpose/array`);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%0transpose/ arrayG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 41 "xprint(fscanf); xprint(student[powsubs]); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "readlib(dismantle): # x print(dismantle); xprint(`dismantle/dump`);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "tes:= op(eval(`dismantle/typeName`)): " }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 318 "tess:= sort(tes, (j,k)-> evalb(lhs(j)< lhs(k) ) ): nops(\"); tb:= table(tess): \nmana:= matrix(5,10, proc(j,k); j*10 +k-11: if 44<\" then `.` elif assigned(tb[\"]) then tb[\"] else \"; fi ; end, 'array'); \nmana2:= matrix(5,10, proc(j,k); j*10+k-11: if 44<\" then `.` elif assigned(ANA[\"]) then ANA[\"] else \"; fi; end, 'array '); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#V" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%manaG-%'MATRIXG6#7'7,\"\"!%'INTNEGG%'INTPOSG%)RATION ALG%&FLOATG%%NAMEG%)TABLEREFG%'DCOLONG%)CATENATEG%&POWERG7,%%PRODG%'SE RIESG%$SUMG%)FUNCTIONG%'UNEVALG%)EQUATIONG%(INEQUATG%'LESSEQG%)LESSTHA NG%$ANDG7,%$NOTG%#ORG%'EXPSEQG%%LISTG%&LOCALG%&PARAMG%%PROCG%&RANGEG%$ SETG%&TABLEG7,%'ASSIGNG%$FORG%#IFG%%READG%%SAVEG%(STATSEQG%%STOPG%%HAS HG%(HASHTABG%(GARBAGEG7,%(FOREIGNG%(CONTROLG%'PROMPTG%&DEBUGG\"#W%\".G FenFenFenFen" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&mana2G-%'MATRIXG6#7 '7,\"\"!%%NINTG%%PINTG%%FRACG%%REALG%%NAMEG%%INDXG%%TYPEG%%JOING%%POWR G7,%%MULTG%%DEVLG%%POLYG%%FUNCG%%UNEVG%%EQUAG%%NEQUG%%LEQUG%%LESSG%%AN D_G7,%%NOT_G%%_OR_G%%SEQUG%%LISTG%%LOC_G%%ARGSG%%PROCG%%RANGG%%SET_G%% TABLG7,%%LOADG%%LOOPG%%CONDG%%READG%%SAVEG%%CODEG%%QUITG%%ITEMG%%HACHG \"#R7,\"#S\"#T\"#U\"#V\"#W%\".GFenFenFenFen" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "matrix(6,8, proc(j,k) j*8+k-9; tb[\"]=ANA[\"] end) ;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#L(7*/&%#tbG6#\"\"!F)/%'INTNEGG%%N INTG/%'INTPOSG%%PINTG/%)RATIONALG%%FRACG/%&FLOATG%%REALG/%%NAMEGF7/%)T ABLEREFG%%INDXG/%'DCOLONG%%TYPEG7*/%)CATENATEG%%JOING/%&POWERG%%POWRG/ %%PRODG%%MULTG/%'SERIESG%%DEVLG/%$SUMG%%POLYG/%)FUNCTIONG%%FUNCG/%'UNE VALG%%UNEVG/%)EQUATIONG%%EQUAG7*/%(INEQUATG%%NEQUG/%'LESSEQG%%LEQUG/%) LESSTHANG%%LESSG/%$ANDG%%AND_G/%$NOTG%%NOT_G/%#ORG%%_OR_G/%'EXPSEQG%%S EQUG/%%LISTGFho7*/%&LOCALG%%LOC_G/%&PARAMG%%ARGSG/%%PROCGFap/%&RANGEG% %RANGG/%$SETG%%SET_G/%&TABLEG%%TABLG/%'ASSIGNG%%LOADG/%$FORG%%LOOPG7*/ %#IFG%%CONDG/%%READGFfq/%%SAVEGFhq/%(STATSEQG%%CODEG/%%STOPG%%QUITG/%% HASHG%%ITEMG/%(HASHTABG%%HACHG/%(GARBAGEG&%$ANAG6#\"#R7*/%(FOREIGNG&Fh r6#\"#S/%(CONTROLG&Fhr6#\"#T/%'PROMPTG&Fhr6#\"#U/%&DEBUGG&Fhr6#\"#V/&F '6#\"#W&FhrFbt/&F'6#\"#X&FhrFgt/&F'6#\"#Y&FhrF\\u/&F'6#\"#Z&FhrFau%'ma trixG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "ta:='ta': ta[1]:=4; ta[2,2]:=5;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#taG6#\"\"\"\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#taG6$\"\"#F'\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "op(eval(ta));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$/6 $\"\"#F&\"\"&/\"\"\"\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "toto:= proc(par) ;next;end; maplemint(toto);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%totoGR6#%$parG6\"F(F(%%nextGF(F(6\"" }}{PARA 6 "" 1 "" {TEXT -1 86 "next, found outside of loop body.\nThese parameters we re never used explicitly: \n par" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "readlib(maplemint);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#R6#'%\"PG%*procedureG6&%%TempG%\"iG%\"jG%\"TG6#%inCopyright~(c)~1995 ~by~Waterloo~Maple~Inc.~All~rights~reserved.G6\"CD>&8'6#.%&BreakG%&fal seG>&F36#.%*LoopDepthG\"\"!>&F36#.%/AssignedParamsG<\">&F36#.%-Assigne dLocsGFC>&F36#.%.AssignedGlobsGFC>&F36#.%3UsedBeforeAssignedGFC>&F36#. %+UsedParamsGFC>&F36#.%+UsedLocalsGFC>&F36#.%,UsedGlobalsGFC>&F36#.%(D upLoopGFC>&F36#.%(LoopVarG7\">&F36#.%,GlobalUnderGFC>&F36#.%2DeclaredP rocNamesGFC>&F36#.%2UnDecLocFunctionsGFC>8$-%(pointtoG6#&-%,disassembl eG6#&-F]q6#-%*addressofG6#9$6#\"\"#6#\"\"$>&F36#.%'LocalsG7#Fgp>Fgp-Fi p6#&F\\q6#\"\")>&F36#.%(GlobalsGF_r>Fgp-Fip6#&F\\qFfq>&F36#.%'ParamsGF fo?(8%\"\"\"Ffs-%%nopsG6#F_r%%trueG@%/&-F]q6#-Fcq6#-%#opG6$FesF_r6#Ffs \"\"(C$>8&-Fip6#&F^tFfq>F`s7$-Fct6#F`sFit>F`s7$F_uFbt?(FesFfsFfs-Fhs6# FgrFjs@$/-%*substringG6$-Fct6$FesFgrFfs%\"_G>Fho-%&unionG6$FhoF[v>Fgp- Fip6#&F\\q6#\"\"'-%5maplemint/StatementsG6$.F3Fgp>F[r<#-Fct6#F[r>F`s<# F_u>Fgr<#-FctFeu>Fgp-%8maplemint/FindConstantsG6#-%&minusG6$FhnFgr>Fhn -Fjw6$FhnFgp>Fgp-%8maplemint/FindProtectedGFhw>FhnF]x>Fgp-%5maplemint/ FindNumberG6#Fhn>FhnF]x-%6maplemint/PrintReportG6#F[wF/F/6\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "maplemint(convol_a);" }} {PARA 6 "" 1 "" {TEXT -1 310 "These names were used as global names, b ut were not declared: \n `int/indef`, id, reinitialize, _X, pie\nThe se local variables were never used: \n t_li\nThese local variables w ere assigned a value, but otherwise unused: \n after\nThese local va riables were used before they were assigned a value: \n t_tri, kk" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {SECT 0 {PARA 3 "" 0 "" {TEXT -1 18 "exemples pour conf" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "ana(123456789123,1); ana(-12345679, 1); ana(1234/5679,1); ana(12345.679,1); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"-B\"*ycM77&\"\"#\"%B\"*\"%yc\"%M77&%%PINTG%)*~9123~*G%)*~5678~ *G%)*~1234~*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%!)zcM77%\"\"\"\"%zc\" %M77%%%NINTG%)*~5679~*G%)*~1234~*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6% #\"%M7\"%zc7%\"\"$\"(g&\\f\"(7_,'7%%%FRACGF$F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%$\")zcM7!\"$7%\"\"%\"(gX.'\"(gP6'7%%%REALGF$F%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "3..4: ana(\",1); addressof(3 ), ana(3,1); addressof(4), ana(4,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6%;\"\"$\"\"%7%\"#F\"(oP6'\"(%y8h7%%%RANGGF$F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"(oP6'\"\"$7$\"\"#F$7$%%PINTG%&*~3~*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"(%y8h\"\"%7$\"\"#F$7$%%PINTG%&*~4~*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "a or b or c; ana(\",1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#55%\"aG%\"bG%\"cG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%55%\"aG%\"bG%\"cG7%\"#@\"(/`V'\"(Kq9'7%%%_OR_GF$F'" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "series(sin(x),x,5); ana(\"); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#+)%\"xG\"\"\"\"\"\"#!\"\"\"\"'\"\" $-%\"OG6#F%\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$+)%\"xG\"\"\"\"\" \"#!\"\"\"\"'\"\"$-%\"OG6#F%\"\"&7*%%DEVLGF$F%%&*~1~*GF'%&*~3~*GF+%&*~ 5~*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "series(sin(x)/x^33, x,5); ana(\", 'adz');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#+)%\"xG\"\"\" !#K#!\"\"\"\"'!#I-%\"OG6#F%!#G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6%+)% \"xG\"\"\"!#K#!\"\"\"\"'!#I-%\"OG6#F%!#G7*\"#6\"(Sg9'\"(OP6'!#K\"(o3#f !#I\"(+G6'!#G7*%%DEVLGF$F%%(*~-32~*GF'%(*~-30~*GF+%(*~-28~*G" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "series(sin(x)/x^3,x,5); addr essof(\"): disassemble(\"); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#+)%\"x G\"\"\"!\"##!\"\"\"\"'\"\"!-%\"OG6#F%\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6*\"#6\"(Sg9'\"(OP6'!\"#\"(o3#f\"\"!\"(+G6'\"\"#" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 33 "series(sin(sqrt(x)),x,3); ana(\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**$%\"xG#\"\"\"\"\"#F'*$F%#\"\"$F(#!\"\"\"\"'*$F% #\"\"&F(#F'\"$?\"-%\"OG6#*$F%F+F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$, **$%\"xG#\"\"\"\"\"#F'*$F%#\"\"$F(#!\"\"\"\"'*$F%#\"\"&F(#F'\"$?\"-%\" OG6#*$F%F+F'7+%%CLINGF$F'F)F,F/F2F4F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "O(x^3+x^2); series(\",x=infinity);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#-%\"OG6#,&*$%\"xG\"\"$\"\"\"*$F(\"\"#F*" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#-%\"OG6#*$%\"xG\"\"$" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 14 "a:='a':b:='b':" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "qq:= \{a,b,c\}: ana(qq, 'ads'); ana(convert(qq,list), 1);\nana0(ads[2],1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%<%%\"cG%\"aG% \"bG7$\"#G\"(%)Q%o7$%%SET_G-%%SequG6%F$F%F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%7%%\"cG%\"aG%\"bG7$\"#B\"(%)Q%o7$%%LISTG-%%SequG6%F$F%F &" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7&\"#A\"(?.6'\"(+rX'\"(c&pm7&%%SE QUG%\"cG%\"aG%\"bG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "ana(' fun(x)');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$-%$funG6#%\"xG7%%%FUNCGF$ -%%SequGF%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 125 "mt[2]:=5: mt [cos]:=sin; ana(mt,'adt'); ana0(adt[2], 'adt1'); \nana0(adt1[-1], 'adh '); nops(\"); subs(0=NULL,adh); map(ana0, \");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#mtG6#%$cosG%$sinG" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6%%#mtG7&\"\"&\"(+Z#f\"([f$f\"&0)H7&%%NAMEG-%%TablG6#7$/%$cosG%$sinG/ \"\"#F%%&~NULLG%'<~mt~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7&\"#H\"([ f$f\"(+rC'\")/$R'>7&%%TABLG%&~NULLG%&falseG%'*HACH*G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7][l%%HACHG\"\"!F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F% F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%%'*ITEM*GF%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F&F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"$d#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"#Q\")3wT>\"(cDt'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%%'<~38~>G 7)%%ITEMG%$cosG%$sinG%&*~0~*GF)F)F)7)F&\"\"#\"\"&F)F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 162 "mar:= array(1..3,1..3,antisymmetri c,sparse,[[0,145]]); ana(mar,'adar'); ana0(adar[2], 'adar1');\nana0(ad ar1[-1], 'adhr'); nops(\"); subs(0=NULL,adhr); map(ana0, \");" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$marG-%'MATRIXG6#7%7%\"\"!\"$X\"F*7% !$X\"F*F*7%F*F*F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%$marG7&\"\"&\"(G $3j\"([f$f\"(Xg\\(7&%%NAMEG-%%TablG6'%.antisymmetricG%'sparseG;\"\"\" \"\"$F07#/6$F1\"\"#\"$X\"%&~NULLG%(<~mar~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7&\"#H\"(K&ym\")/7!)>\")Kl!)>7&%%TABLG-%%SequG6$%.antis ymmetricG%'sparseG-F+6$;\"\"\"\"\"$F1%'*HACH*G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7][l%%HACHG\"\"!F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F %F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%%'*ITEM*GF%F%F%F% F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F% F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F% F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$d#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$ \"#Q\"('*>`'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$%'<~38~>G7)%%ITEMG-% %SequG6$\"\"\"\"\"#\"$X\"%&*~0~*GF-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "mar[2,1]; mar[3,1];" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#!$X\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "ma:= matrix(2,2,[1,2,3,4]); ana('ma','adr0m'); ana0(adr0m[2], 'ad rm');\nadrm[3]: \", ana0(\"); adrm[2]: \", ana0(\", 'adrs');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#maGL$7$\"\"\"\"\"#7$\"\"$\"\"%%'matrixG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%L$7$\"\"\"\"\"#7$\"\"$\"\"%%'matrixG 7&\"\"&\"([oM'\"(cK7'\"&T\\#7&%%NAMEGF#%&~NULLG%'<~ma~>G" }}{PARA 11 " " 1 "" {XPPMATH 20 "6$7%\"#B\"()[Th\"(O$fg7%%%LISTG-%%SequG6$7$\"\"\" \"\"#7$\"\"$\"\"%%'matrixG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"(O$fg7 &%%NAMEGR6%%\"rG%\"cG%\"eG6&%\"iG%\"jG%\"xG%\"AG6#%aoCopyright~(c)~199 0~by~the~University~of~Waterloo.~All~rights~reserved.G6\"C%@$/&9\"6#9# %&arrayGC$>%-_EnvLinalg95G%&falseG-%'RETURNG6#-9!6#&F76#;\"\"\",&F9FH! \"\"FH@$/F6.%%listG@%/F=%%trueGF?-%&ERRORG6#%7wrong~type~of~argumentG@ +/F9FH@+5/9$7\"/Fen7#Ffn-F@6#-FC6%\"\"!F]oFen-%%typeG6$Fen-FM6#-FM6#%* algebraicG@%-%'memberG6$.%'columnG<#-%+attributesG6#&Fen6#FH-F@6#-FC6% -%%nopsGF_p-Fgp6#FenFen-F@6#-FC6%FhpFfpFen-F_o6$Fen-FM6#-.%'vectorGFdo C$>8'-%$mapG6%%(convertGFenFM-F@6#-FC6%-Fgp6#Fgq-Fgp6#&FgqFapFgq-F_o6$ Fen-.F:6#\"\"#C$>Fgq-F[r6$Fen%)listlistGF\\r-FS6$%1invalid~argumentGFe n52F9Fjr43-F_o6$Fen%*nonnegintG-F_o6$9%Fis-FS6#%[o1st~and~2nd~argument s~(dimensions)~must~be~non~negative~integersG/F9FjrC$@$FP-FS6#%5no~ent ries~specifiedG-F:6$;FHFen;FHF\\t/F9\"\"$C%@/-F_o6$9&F:C%@$-F_o6$F`u-F hr6$FHFeo-F@6#-FC6%FenF\\t-F[r6$F`uFM@$-F_o6$F`u-Fhr6$FjrFeo-F@6#-FC6% FenF\\t-F[r6$F`uF_s-FS6$FbsF`u-F_o6$F`u<$Feo%*procedureGC%>FgqFft?(8$F HFHFenFQ?(8%FHFHF\\tFQ>&Fgq6$FawFcw-F`uFfw@$FP>Fgq-F[r6$FgqF_s-F_o6$F` uFaoC&@$2FH-Fgp6#<#-%$seqG6$-Fgp6#8&/FixF`u-FS6#%Bvectors~have~differe nt~dimensionsG>Fix<#-Fex6$-F^p6#Faw/FawF`u@$2FH-Fgp6#-%*intersectG6$Fi x<$Fjo.%$rowG-FS6#%9mixed~row/column~vectorsG@%-Fho6$FjoFix@%FPC$@$50- Fgp6#F`uF\\t0-Fgp6#&F`uFapFen-FS6#%Fgq7# -Fex6$7#-Fex6$&&F`u6#FcwFcy/Fcw;FHFjz/Faw;FHF][lC$>FgqFft?(FawFHFHFjzF Q?(FcwFHFH-Fgp6#&F`uFcyFQ>&Fgq6$FcwFaw&Fg\\lF\\\\l@%FPC$@$50FjzFen0-Fi q6$Fgp<#-%#opGF[[l<#F\\tF`[l>Fgq7#-Fex6$7#-Fex6$Fix/FixFg\\l/FawF^\\lC $>FgqFft?(FawFHFHFjzFQ?(FcwFHFHFe\\lFQ>FewF[]l-F_o6$F`uF`q-F@6#-FC6%Fe nF\\t-Fiq6%F[rF`uFM-F_o6$F`uFco@%FPC$@$0Fjz*&FenFHF\\tFH-FS6#%4not~eno ugh~elementsG>Fgq7#-Fex6$7#-Fex6$&F`u6#,&*&F\\tFHFawFHFHFcwFH/FcwFit/F aw;F]o,&FenFHFJFHC$>FgqFft?(FawFHFHFjzFQ>&Fgq6$,&FHFH-%%iquoG6$,&FawFH FJFHF\\tFH,&FHFH-%%iremGF`alFHFg\\l-F_o6$F`u-FM6#%)equationGC%>Fgq-F:6 %FhtFit%'sparseG?&FixF`uFQ>&Fgq6#-%$lhsGFhx-%$rhsGFhx@$FP>FgqFjwFhv@$- F_o6$FgqFM>Fgq-%-setattributeG6$Fgq%'matrixG-%%evalG6$FgqFH-FS6#%2inva lid~argumentsGF2F26\"%*protectedG%+<~matrix~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"()[Th7%\"#A\"(K]^'\"())3U'7%%%SEQUG7$\"\"\"\"\"#7$\" \"$\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "ma[1,1]:=17: a na('ma','adr0m'); ana0(adr0m[2], 'adrm');\nadrm[3]: \", ana0(\"); adrm [2]: \", ana0(\", 'adrs');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%L$7$\"#< \"\"#7$\"\"$\"\"%%'matrixG7&\"\"&\"('4)R'\"(cK7'\"&T\\#7&%%NAMEGF#%&~N ULLG%'<~ma~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7%\"#B\"(O4.'\"(O$fg7 %%%LISTG-%%SequG6$7$\"#<\"\"#7$\"\"$\"\"%%'matrixG" }}{PARA 11 "" 1 " " {XPPMATH 20 "6$\"(O$fg7&%%NAMEGR6%%\"rG%\"cG%\"eG6&%\"iG%\"jG%\"xG% \"AG6#%aoCopyright~(c)~1990~by~the~University~of~Waterloo.~All~rights~ reserved.G6\"C%@$/&9\"6#9#%&arrayGC$>%-_EnvLinalg95G%&falseG-%'RETURNG 6#-9!6#&F76#;\"\"\",&F9FH!\"\"FH@$/F6.%%listG@%/F=%%trueGF?-%&ERRORG6# %7wrong~type~of~argumentG@+/F9FH@+5/9$7\"/Fen7#Ffn-F@6#-FC6%\"\"!F]oFe n-%%typeG6$Fen-FM6#-FM6#%*algebraicG@%-%'memberG6$.%'columnG<#-%+attri butesG6#&Fen6#FH-F@6#-FC6%-%%nopsGF_p-Fgp6#FenFen-F@6#-FC6%FhpFfpFen-F _o6$Fen-FM6#-.%'vectorGFdoC$>8'-%$mapG6%%(convertGFenFM-F@6#-FC6%-Fgp6 #Fgq-Fgp6#&FgqFapFgq-F_o6$Fen-.F:6#\"\"#C$>Fgq-F[r6$Fen%)listlistGF\\r -FS6$%1invalid~argumentGFen52F9Fjr43-F_o6$Fen%*nonnegintG-F_o6$9%Fis-F S6#%[o1st~and~2nd~arguments~(dimensions)~must~be~non~negative~integers G/F9FjrC$@$FP-FS6#%5no~entries~specifiedG-F:6$;FHFen;FHF\\t/F9\"\"$C%@ /-F_o6$9&F:C%@$-F_o6$F`u-Fhr6$FHFeo-F@6#-FC6%FenF\\t-F[r6$F`uFM@$-F_o6 $F`u-Fhr6$FjrFeo-F@6#-FC6%FenF\\t-F[r6$F`uF_s-FS6$FbsF`u-F_o6$F`u<$Feo %*procedureGC%>FgqFft?(8$FHFHFenFQ?(8%FHFHF\\tFQ>&Fgq6$FawFcw-F`uFfw@$ FP>Fgq-F[r6$FgqF_s-F_o6$F`uFaoC&@$2FH-Fgp6#<#-%$seqG6$-Fgp6#8&/FixF`u- FS6#%Bvectors~have~different~dimensionsG>Fix<#-Fex6$-F^p6#Faw/FawF`u@$ 2FH-Fgp6#-%*intersectG6$Fix<$Fjo.%$rowG-FS6#%9mixed~row/column~vectors G@%-Fho6$FjoFix@%FPC$@$50-Fgp6#F`uF\\t0-Fgp6#&F`uFapFen-FS6#%Fgq7#-Fex6$7#-Fex6$&&F`u6#FcwFcy/Fcw;FHFjz/Faw;FH F][lC$>FgqFft?(FawFHFHFjzFQ?(FcwFHFH-Fgp6#&F`uFcyFQ>&Fgq6$FcwFaw&Fg\\l F\\\\l@%FPC$@$50FjzFen0-Fiq6$Fgp<#-%#opGF[[l<#F\\tF`[l>Fgq7#-Fex6$7#-F ex6$Fix/FixFg\\l/FawF^\\lC$>FgqFft?(FawFHFHFjzFQ?(FcwFHFHFe\\lFQ>FewF[ ]l-F_o6$F`uF`q-F@6#-FC6%FenF\\t-Fiq6%F[rF`uFM-F_o6$F`uFco@%FPC$@$0Fjz* &FenFHF\\tFH-FS6#%4not~enough~elementsG>Fgq7#-Fex6$7#-Fex6$&F`u6#,&*&F \\tFHFawFHFHFcwFH/FcwFit/Faw;F]o,&FenFHFJFHC$>FgqFft?(FawFHFHFjzFQ>&Fg q6$,&FHFH-%%iquoG6$,&FawFHFJFHF\\tFH,&FHFH-%%iremGF`alFHFg\\l-F_o6$F`u -FM6#%)equationGC%>Fgq-F:6%FhtFit%'sparseG?&FixF`uFQ>&Fgq6#-%$lhsGFhx- %$rhsGFhx@$FP>FgqFjwFhv@$-F_o6$FgqFM>Fgq-%-setattributeG6$Fgq%'matrixG -%%evalG6$FgqFH-FS6#%2invalid~argumentsGF2F26\"%*protectedG%+<~matrix~ >G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"(O4.'7%\"#A\"([tP'\"())3U'7%%% SEQUG7$\"#<\"\"#7$\"\"$\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "mv:= vector([1,2,3,4], row); ana(mv,'adrv'); " }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#mvGL&\"\"\"\"\"#\"\"$\"\"%%$rowG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%L&\"\"\"\"\"#\"\"$\"\"%%$rowG7%\"#B\"(7@&f\"(3g3'7%% %LISTG-%%SequG6&F$F%F&F'F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 128 "transpose(mv); evalm(mv &* \"), evalm(convert(\", matrix) &* conv ert(mv, matrix)),\nevalm(convert(mv, matrix)&*convert(\", matrix));" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#L&\"\"\"\"\"#\"\"$\"\"%%'columnG" }} {PARA 11 "" 1 "" {XPPMATH 20 "6%\"#I-%'MATRIXG6#7&7&\"\"\"\"\"#\"\"$\" \"%7&F*F,\"\"'\"\")7&F+F.\"\"*\"#77&F,F/F2\"#;-F%6#7#7#F#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "convert(mv, matrix);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#L#7&\"\"\"\"\"#\"\"$\"\"%%'matrixG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "mb:= matrix(2,2,[1,2,3,4], array); ana(mb, 'admb0'); \nana0(admb0[2], 'admb'); ana0(admb[4], 'admb1');" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 55 "subs(0=NULL, 38=NULL, admb1); map(ana0,\",1): matri x(\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#mbG-%'MATRIXG6#7$7$\"\"\" \"\"#7$\"\"$\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%#mbG7&\"\"&\"(c_ 5'\"(cK7'\"&(>D7&%%NAMEG-%%TablG6%;\"\"\"\"\"#F.7&/6$F0F/\"\"$/6$F0F0 \"\"%/6$F/F0F0/6$F/F/F/%&~NULLG%'<~mb~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7&\"#H\"(cK7'\"(sL.'\"(?Rt'7&%%TABLG%&~NULLG-%%SequG6$;\"\"\"\" \"#F.%'*HACH*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"(kGL'\"(S/O'\"(3 LK'\"(;t:'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#L*7)\"#P\"(#>Ri\"(oP6'\" \"!F(F(F(7)%%ITEMG-%%SequG6$\"\"#\"\"\"\"\"$%&*~0~*GF1F1F17)F%\"(;#Ri \"(%y8hF(F(F(F(7)F*-F,6$F.F.\"\"%F1F1F1F17)F%\"(g:&f\"(_P6'F(F(F(F(7)F *-F,6$F/F.F.F1F1F1F17)F%\"(#HLg\"(OP6'F(F(F(F(7)F*-F,6$F/F/F/F1F1F1F1% 'matrixG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 136 "mb[1,1]:= 17: \+ ana(mb, 'admb0'); ana0(admb0[2], 'admb'); ana0(admb[4], 'admb1');\nsub s(0=NULL, 38=NULL, admb1); map(ana0,\",1): matrix(\"); " }}{PARA 12 " " 1 "" {XPPMATH 20 "6%%#mbG7&\"\"&\"(c_5'\"(cK7'\"&(>D7&%%NAMEG-%%Tabl G6%;\"\"\"\"\"#F.7&/6$F0F/\"\"$/6$F0F0\"\"%/6$F/F0F0/6$F/F/\"#<%&~NULL G%'<~mb~>G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7&\"#H\"(cK7'\"(sL.'\"(? Rt'7&%%TABLG%&~NULLG-%%SequG6$;\"\"\"\"\"#F.%'*HACH*G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"(kGL'\"(S/O'\"(3LK'\"(;t:'" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#L*7)\"#P\"(#>Ri\"(oP6'\"\"!F(F(F(7)%%ITEMG-%%SequG6$ \"\"#\"\"\"\"\"$%&*~0~*GF1F1F17)F%\"(;#Ri\"(%y8hF(F(F(F(7)F*-F,6$F.F. \"\"%F1F1F1F17)F%\"(g:&f\"(_P6'F(F(F(F(7)F*-F,6$F/F.F.F1F1F1F17)F%\"(# HLg\"(#*R6'F(F(F(F(7)F*-F,6$F/F/\"# " 0 "" {MPLTEXT 1 0 20 "map(convert,ma,`+`);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#L$\"#>\"\"(%'matrixG" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}}{MARK "97" 0 }{VIEWOPTS 1 1 0 1 1 1803 }