%% PhS
%% 

%% échelle et étendue de l'image
50 setxunit
-0.5 12.5  setxrange
-3 2.4  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
/Pi 3.1415926 def
 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%  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


%% calcul l'angle du segment
%% ATTENTION : on ne tient pas compte des abscisses
%% usage :
%% ygauche ydroit ymax calcul_angle
/calcul_angle {
3 dict begin
      /ymax exch def
      /ydroit exch def
      /ygauche exch def
      ydroit ygauche sub
      ymax atan
      dup 180 gt {360 sub} if
      45 div
end
      } def


% trace une ligne en pp
% usage :
% ygauche ydroit ymax ligne_pp
/ligne_pp {
3 dict begin
      /ymax exch def
      /ydroit exch def
      /ygauche exch def
      [xppg ygauche xppd ydroit] (-) ligne
end
      } def

% trace un point dans l'espace des phases
% usage :
% ygauche ydroit ymax point_ep
/point_ep {
5 dict begin
      /ymax exch def
      /ydroit exch def
      /ygauche exch def
      ygauche ydroit ymax calcul_angle
      /xep exch def
      xepd xepg add 2 div
      xep xepd xepg sub mul add
      ydroit point
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 setlinewidth
[0 -2 0 2] (<->) ligne
[4 -2 4 2] (<->) ligne

/xppg 0 def
/xppd 4 def
/xepg 7 def
/xepd 11 def


[xepg -2 xepg 2] (<->) ligne
[xepd -2 xepd 2] (<->) ligne



/y1 1.8 def    /yp1 1.8 def 
/y2 1.6 def    /yp2 1.7 def
/y3 0.3 def    /yp3 1.1 def
/y4 0.26 def   /yp4 0.3 def
/y5 0.18 def   /yp5 -0.4 def
/y6 0.18 def   /yp6 -0.9 def
/y7 -1.2 def   /yp7 -1.1 def



1 setlinewidth
[xppg 0.1 sub 0 xppg 0.1 add 0] (-) ligne
[xppd 0.1 sub 0 xppd 0.1 add 0] (-) ligne
[xepg 0.1 sub 0 xepg 0.1 add 0] (-) ligne
[xepd 0.1 sub 0 xepd 0.1 add 0] (-) ligne


2 setlinewidth
rouge
y1 yp1 4 ligne_pp
y2 yp2 4 ligne_pp
vert
y3 yp3 4 ligne_pp
y4 yp4 4 ligne_pp
y5 yp5 4 ligne_pp
y6 yp6 4 ligne_pp
bleu
y7 yp7 4 ligne_pp

rouge
y1 yp1 4 point_ep
y2 yp2 4 point_ep
vert
y3 yp3 4 point_ep
y4 yp4 4 point_ep
y5 yp5 4 point_ep
y6 yp6 4 point_ep
bleu
y7 yp7 4 point_ep

noir
4 setlinewidth
[xppd 0.4 add 0 xepg 0.4 sub 0] (->) ligne

rouge
%[0 0.3 2 0.8 4 -0.4 6 0.7] (-) ligne


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


noir




<latex>
$\underbrace{\hspace{8.5em}}$
</latex>
xppg xppd add 2 div -2.3 [2.5 dup] cctexlabel


<latex>
$\underbrace{\hspace{8.5em}}$
</latex>
xepg xepd add 2 div -2.3 [2.5 dup] cctexlabel


<latex>
Parallel Plot
</latex>
xppg xppd add 2 div -2.75 [2.5 dup] cctexlabel

<latex>
Phase space
</latex>
xepg xepd add 2 div -2.75 [2.5 dup] cctexlabel



   
%% adresse IP : 82.238.76.3