%% gh %% racines nème d'un complexe 60 setxunit -5 5 setxrange -5 5 setyrange traceaxes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% définitions des couleurs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /coul0 {0 0 0 0.5 setcmykcolor} def %gris /coul1 {noir} def /coul2 {orange} def /coul3 {rouge} def /coul4 {bleu} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% le cercle %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% les points %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /n {5} def /theta {60} def /theta2 {theta n div} def /rho {5} def /rho2 {rho 1 n div exp} def /A {theta cos rho mul theta sin rho mul} def /B0 {theta2 cos rho2 mul theta2 sin rho2 mul} def /rot {360 n div cos 360 n div sin} def /B1 {B0 rot mulc} def /B2 {B1 rot mulc} def /B3 {B2 rot mulc} def /B4 {B3 rot mulc} def coul4 A point [O A] ligne [O B0] ligne coul3 [B0 B1 B2 B3 B4] points coul1 0 0 rho2 cercle .5 setlinewidth pointilles [B0 B1 B2 B3 B4 B0] polygone /rot2 {theta2 cos theta2 sin} def /C0 {B0 2 0 mulc} def /C1 {C0 rot2 mulc} def /C2 {C1 rot2 mulc} def /C3 {C2 rot2 mulc} def /C4 {C3 rot2 mulc} def [O C0] ligne [O C1] ligne [O C2] ligne [O C3] ligne [O C4] ligne \$a\$ A [2.5 dup] crtexlabel \$z_{0}\$ B0 [2.5 dup] drtexlabel \$z_{1}\$ B1 [2.5 dup] uctexlabel \$z_{2}\$ B2 [2.5 dup] ultexlabel \$z_{3}\$ B3 [2.5 dup] dltexlabel \$z_{4}\$ B4 [2.5 dup] drtexlabel