{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Warni ng" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Normal" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }2 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 256 "" 0 " " {TEXT -1 15 "HYPERCUBE\nPLAN\n" }}{PARA 257 "" 0 "" {TEXT -1 65 "Map leisation du programme d'Emmanuel Mandonnet et Olivier Pantz\n\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}} {EXCHG {PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm \+ and trace have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 366 "branche:=proc(k,j,trac er,x,y)\nlocal i,x1,y1;\nglobal hypercube,couleurs,n,xx,yy;\nfor i to \+ n do\n if tracer[i] then\n x1:=x+xx(i);\n y1:=y+yy(i);\n hyp ercube:=hypercube,[[x,y],[x1,y1]];\n couleurs:=couleurs,COLOR(RGB,c ouleur(i,n));\n if i>j then\n tracer[i]:=false;\n \+ branche(k+1,i,tracer,x1,y1);\n tracer[i]:=true\n fi\n fi \nod\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "Digits:=3:" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "n:=9:a:=evalf(Pi/n):\nxx:= i->evalf(cos((i-1)*a)):\nyy:=i->evalf(sin((i-1)*a)):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "n:=4:a:=evalf(Pi/n):\nxx:=i->evalf( cos((i-1/2)*a)):\nyy:=i->evalf(sin((i-1/2)*a)):\n" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 60 "n:=6:a:=Pi/(n-1):\nxx:=i->cos((i-1)*a):\nyy: =i->sin((i-1)*a):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "n:=4 :a:=Pi/(n-1)/2:\nxx:=i->cos((i-1)*a):\nyy:=i->sin((i-1)*a):\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "n:=5:a:=3*Pi/(n-1)/4:\nxx:=i ->cot(Pi/8+(i-1)*a):\nyy:=i->1:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "n:=8:a:=3*Pi/(n-1)/4:\nxx:=i->-3+6*i/(n+1):\nyy:=i->1 :\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "hypercube:=NULL:coul eurs:=NULL:\nfor i to n do tracer[i]:=true od:\nbranche(1,0,tracer,0,0 ):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "plot([hypercube],co lor=red,axes=none,scaling=constrained);" }}{PARA 13 "" 1 "" {GLPLOT2D 397 346 346 {PLOTDATA 2 "6G-%'CURVESG6#7$7$$\"\"!F)F(7$$\"3V++++++S#*! #=$\"31++++++?QF--F$6#7$F*7$$\"3/+++++++8!#<$\"30++++++58F6-F$6#7$F37$ $\"3T++++++5#*F-$\"3A++++++SAF6-F$6#7$F<7$$!31+++++++I!#?$\"36++++++?E F6-F$6#7$F37$$\"3-++++++gPF-$\"3%**************o\"F6-F$6#7$FMFD-F$6#7$ F*7$$\"3S++++++]aF-F7-F$6#7$FX7$$\"3Y++++++g#*F-F?-F$6#7$FX7$$!3-+++++ +!z$F-FP-F$6#7$F^o7$$\"31+++++++?FGFH-F$6#7$F*7$F($\"37++++++SwF--F$6# 7$Fjo7$$\"30++++++5QF-FP-F$6#7$FjoF^o-F$6#7$F'7$Fap$\"3W++++++]#*F--F$ 6#7$FipF3-F$6#7$Fip7$Feo$\"33++++++]=F6-F$6#7$Fbq7$Fin$\"3)*********** **HAF6-F$6#7$Fbq7$$!3U++++++?#*F-Fiq-F$6#7$F^r7$Feo$\"3))************4 EF6-F$6#7$Fip7$$!3Q++++++IaF-F7-F$6#7$FjrF`p-F$6#7$Fjr7$F_rF?-F$6#7$F' 7$F_oFjp-F$6#7$FgsFX-F$6#7$FgsFbq-F$6#7$Fgs7$$!3/+++++++8F6F7-F$6#7$Fa t7$$!3-++++++gPF-FP-F$6#7$Fat7$$!3S++++++!>*F-F?-F$6#7$F'7$$!3V++++++S #*F-F.-F$6#7$FcuFjo-F$6#7$FcuFjr-F$6#7$FcuFat-%*AXESSTYLEG6#%%NONEG-%( SCALINGG6#%,CONSTRAINEDG-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-%+AXESLAB ELSG6$Q!6\"Faw-%%VIEWG6$%(DEFAULTGFfw" 1 2 0 1 10 0 2 6 1 1 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve \+ 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17 " "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 22" "Curve 23" "C urve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" "Curve 29" "Curve 30" "Curve 31" "Curve 32" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}}{MARK "16 1 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }