%% PhS
%% fig_S_cours_ch01_nombres_complexes.jps
40 setxunit
-5 5 setxrange
-4.9 5.2 setyrange
%% Rayon et nombre de points
/R 3 def
/N 18 def %% Attention ! : changer la valeur dans le commentaire TeX
/Rcom R 1.2 mul def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% procédures
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% max
/max { %% a b (des nombres !) --> max(a,b)
2 dict begin
/b exch def
/a exch def
a b sub abs a b add add 2 div
end
} def
%% parametrage du cercle
/xdet {
1 dict begin
/t exch def
t cos R mul
end
} def
/ydet {
1 dict begin
/t exch def
t sin R mul
end
} def
%% dessine un bout de droite
/bddroite { %% Ax Ay Bx By kg (=proportion vers A) kd (=prop vers B)
8 dict begin
/kd exch def
/kg exch def
/By exch def
/Bx exch def
/B {Bx By} def
/Ay exch def
/Ax exch def
/A {Ax Ay} def
gsave
[A A B vecteur kg mulv addv A A B vecteur kd mulv addv] ligne
grestore
end
} def
%% definition des points
/M0x {0 xdet} def
/M0y {0 ydet} def
%% definitions des couleurs
/coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def
%% traces
noir
continu
1 setlinewidth
0 0 point
-4.5 0 4.5 0 (->) line
0 -4.5 0 4.5 (->) line
%% traces des points sur le cercle unite
0 1 N {
360 mul N div dup xdet exch ydet point
} for
%% tracé du cercle
vert
continu
0 360 settrange
{xdet} {ydet} courbeparam
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% texte
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setTimesItalic
%% tracé des numérotations
coul1
0 1 N 1 sub {
2 dict begin
/i exch def
/str 4 string def
str 0 (k=) putinterval
str 2 i (aa) cvs putinterval
str
360 i mul N div cos Rcom mul
360 i mul N div sin Rcom mul
dup abs 0.3 lt {pop 0.4} if
cctext
end
} for
noir
Racine $n^{i\grave eme}$ de l'unit\'e
-4 5.05 [1.5 dup] crtexlabel
$n=18$
2.8 3.8 [1.5 dup] crtexlabel