{VERSION 2 3 "IBM INTEL NT" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 5 "X2011" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "allouer := proc(m)\n [0 $ m]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "taille := proc(t)\n nops(t)\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 261 "est_permutation := proc( L)\n local T,k,S;\n T:= allouer(taille(L));\n for k in L do \n \+ if k<= taille(L) then T[k]:=1;\n else RETURN(false) fi; \n od;\n \+ S:=0;\n for k to taille(L) do S:= S+T[k]; od;\n if S=taille(L) then true else false fi;\n end: \n \n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "est_permutation([1,3,4,5,2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 274 " composer := proc(t,u)\nlocal v,i;\nif taille(t)<>taille(u) then RETUR N(` tailles!!`);fi;\nif ((not (est_permutation(t))) or (not(est_permut ation(u)))) then RETURN(`Pas permutations !!`);fi;\nv:=allouer(taille( t));\nfor i from 1 to taille(t) do v[i]:=t[u[i]]; od;\nRETURN(v);\nend :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "composer([3,2,1],[3,2, 1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"\"\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "inverser := proc(t)\nlocal v,i;\nv :=allouer(taille(t));\nfor i from 1 to taille(t) do v[t[i]]:=i;od;\nRE TURN(v);\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "composer( [1,3,2],inverser([1,3,2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\" \"\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 225 "ordre := p roc(t)\nlocal id,v,ordre,k;\nif (not est_permutation(t)) then RETURN( `Pas permutation`);fi;\nid:=[seq(k, k=1..taille(t))];\nv:=t;\nordre:=1 ;\nwhile v <> id do\n v:=composer(v,t);\n ordre:=ordre+1;\nod;\nRETU RN(ordre);\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "ordre([ 5,1,2,3,4]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 0 0" 188 }{VIEWOPTS 1 1 0 1 1 1803 }