%% 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 $\underbrace{\hspace{8.5em}}$ xppg xppd add 2 div -2.3 [2.5 dup] cctexlabel $\underbrace{\hspace{8.5em}}$ xepg xepd add 2 div -2.3 [2.5 dup] cctexlabel Parallel Plot xppg xppd add 2 div -2.75 [2.5 dup] cctexlabel Phase space xepg xepd add 2 div -2.75 [2.5 dup] cctexlabel %% adresse IP : 82.238.76.3