%% PhS
%% 

%% échelle et étendue de l'image
50 setxunit
-0.5 6.5  setxrange
-3 2.2  setyrange
/xgauche -6 def    %% c'est la limite gauche de l'image
/xdroite 6 def     %% c'est la limite droite de l'image
/ybasse  -4 def    %% c'est la limite basse de l'image
/yhaute  4 def     %% c'est la limite haute de l'image

10 4 point 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%  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 -9 def
/t_max 9 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  sqrt 2 mul -1 add neg 3.5 add
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
1 setlinewidth
15 setfontsize
noir
continu
%%traceaxes
%%marks
%%tracerepere



%2.5 setlinewidth
%coul1
%continu
%0.5 3.3 settrange
%{xdet} {ydet} courbeparam

%[3.29 3.3 ydet 3.3 dup ydet] (-[) ligne

noir
2.5 setlinewidth
[0 -2 0 2] (<->) ligne
[2 -2 2 2] (<->) ligne
[4 -2 4 2] (<->) ligne
[6 -2 6 2] (<->) ligne



rouge
[0 0.6 2 1.6 4 -0.8 6 1.2] (-) ligne



1.5 setlinewidth
[-0.1 0 0.1 0] (-) ligne
[1.9 0 2.1 0] (-) ligne
[3.9 0 4.1 0] (-) ligne
[5.9 0 6.1 0] (-) ligne



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


noir

<latex>
$0$
</latex>
-0.3 0 [2.5 dup] cctexlabel

<latex>
$0$
</latex>
1.7 0 [2.5 dup] cctexlabel

<latex>
$0$
</latex>
3.7 0 [2.5 dup] cctexlabel

<latex>
$0$
</latex>
5.7 0 [2.5 dup] cctexlabel




<latex>
$x_1$
</latex>
0 -2.7 [2.5 dup] cctexlabel

<latex>
$x_2$
</latex>
2 -2.7 [2.5 dup] cctexlabel

<latex>
$x_3$
</latex>
4 -2.7 [2.5 dup] cctexlabel

<latex>
$x_4$
</latex>
6 -2.7 [2.5 dup] cctexlabel

rouge
<latex>
$0.6$
</latex>
0.4 0.55 [1.5 dup] cctexlabel

<latex>
$1.6$
</latex>
2.4 1.6 [1.5 dup] cctexlabel

<latex>
$-0.8$
</latex>
4.4 -0.8 [1.5 dup] cctexlabel

<latex>
$1.2$
</latex>
6.3 1.2 [1.5 dup] cctexlabel



   
%% adresse IP : 82.238.76.3

   
%% adresse IP : 82.238.76.3