Fichier 125.jps — Modifié le 11 Mars 2006 à 10 h 55

125.pdf
Source
%% 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