Fichier 733.jps — Modifié le 24 Mars 2006 à 11 h 55

733.pdf
Source
%% auteur : 

40 setxunit
-5.2 5  setxrange
-5 5  setyrange
/xgauche -5.2 def    %% c'est la limite gauche de l'image
/xdroite 5 def     %% c'est la limite droite de l'image
/ybasse  -5 def    %% c'est la limite basse de l'image
/yhaute 5 def     %% c'est la limite haute de l'image

20 setfontsize



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%  DANGER !! Il ne faut pas utiliser de variables
%%  DANGER !! qui commence par les lettres :
%%  DANGER !! xmin, xmax, ymin et ymax...
%%  DANGER !! Utiliser x_min, y_min...
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%% plages initiales pour les paramètres (peuvent être modifiées pour chaque fonctions tracées
/x_min -5 def
/x_max 5 def
/t_min -5.2 def
/t_max 5 def


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% procédures
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



%% on donne ici x(t)
/xdet {
1 dict begin
	/t exch def
	t
end
	} def

%% on donne ici y(t)
/ydet {
1 dict begin
	/t exch def
	t Tan
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


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% définitions des couleurs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% tracés
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% tracé des axes et du point Origine
noir
1 setlinewidth
marks
pi xtick
pi 2 div xtick
continu
1 setlinewidth
0 0 point
xgauche 0 xdroite  0 (->) line
0 ybasse 0 yhaute  (->) line
0 0 1 0 (->) line
0 0 0 1 (->) line


%% tracé de la fonction x(t),y(t)
%coul1
continu
2.5 setlinewidth
pi -3 mul 2 div 0.01 add pi 2 div neg 0.01 sub settrange
{xdet} {ydet} courbeparam
pi neg 2 div 0.01 add pi 2 div 0.01 sub settrange
{xdet} {ydet} courbeparam
pi 2 div 0.01 add pi 3 mul 2 div 0.01 sub settrange
{xdet} {ydet} courbeparam



%vert
1 setlinewidth
pointilles
[pi -1.5 mul dup 6 exch -6] (-) ligne
[pi -2 div dup 6 exch -6] (-) ligne
[pi 2 div dup 6 exch -6] (-) ligne
[pi 1.5 mul dup 6 exch -6] (-) ligne


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% texte
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setTimesItalic


noir
<latex>
\fbox{$y=\tan(x)$}
</latex>
-4.6 3.5 [1.7 dup] crtexlabel

<latex>
$\frac{\pi}{2}$
</latex>
1.4 0.5 [1.7 dup] cctexlabel

<latex>
$\pi$
</latex>
pi 0.5 [1.7 dup] cctexlabel