%% PhS + gh %% rotation %% Èchelle et Ètendue de l'image 60 setxunit -5 5 setxrange -3 2.5 setyrange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%% en vrai %%%%%%%%%%%% /ScreenDist 0.1 def /ZoomFactor_x 100 def /ZoomFactor_y 100 def 8 3 3 SetCamPos GetCamPos -1 mulv3d SetCamVec 0 0 1 SetCamUp ComputeCamera rouge /tabprov [] def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% dÈfinitions des couleurs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def /coul2 {255 255 div 240 255 div 240 255 div setrgbcolor} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% tracés %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% tracé du quadrillage 1.5 setlinewidth 17 setfontsize noir continu qplanxy /arrowscale {currentlinewidth dup} def %% Tracé de F^\perp [0 0 0 0 0 3] (-) ligne3d pointilles [0 0 0 0 0 3 neg] (-) ligne3d #latex# $D$ 0 0 2 [2.5 dup] crtexlabel3d %% Tracé de F continu 3 setlinewidth [-3 -3 0 -3 3 0 3 3 0 3 -3 0 -3 -3 0] (-) ligne3d #latex# $P$ 2.5 2.5 neg 0 [2.5 dup] cctexlabel3d % Définition de l'antécédent /x {2} def /y {0} def /z {2} def /alpha {120} def /cosa {alpha cos} def /sina {alpha sin} def % /x' {x cosa mul y sina sub} def % ça ne marche pas comme ça!!! % /y' {x sina mul y cosa add} def % j'impose à y d'être nul % /z' {z} def /x' {x cosa mul} def /y' {x sina mul} def /z' {z} def /origine {0 0 0} def /u {x y z} def /u' {x' y' z'} def /u1 {x y 0} def /u1' {x' y' 0} def rouge continu 3 setlinewidth [origine u] (->) ligne3d 1.5 setlinewidth pointilles [origine u1] (->) ligne3d [u u1] (-) ligne3d 3 setlinewidth continu [origine u'] (->) ligne3d 1.5 setlinewidth pointilles [origine u1'] (->) ligne3d [u' u1'] (-) ligne3d #latex# $x$ u [2.5 dup] dltexlabel #latex# $r(x)$ u' [2.5 dup] cltexlabel %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Pour représenter l'angle %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% on donne ici x(t) /xdet { 1 dict begin /t exch def t cos end } def %% on donne ici y(t) /ydet { 1 dict begin /t exch def t sin end } def noir continu /ahcoeff 0 def 0 alpha settrange {dup xdet exch ydet 0 CamView pop} {dup xdet exch ydet 0 CamView exch pop} (->) courbeparam #latex# $\alpha$ alpha 2 div dup cos sin 0 [2.5 dup] drtexlabel