125.jps

               


   
%% 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
<tex>
Racine $n^{i\grave eme}$ de l'unit\'e
</tex>
-4 5.05 [1.5 dup] crtexlabel

<tex>
$n=18$
</tex>
2.8 3.8 [1.5 dup] crtexlabel