%% auteur : gh 60 setxunit -2 5 setxrange -3 4 setyrange /coeff 0.7 def %% coefficient pour diminuer ce qui est en perspective /a {pi 4 div} def /cosa {a Cos} def /sina {a Sin} def /O {0 0} def /A {coeff 0 cosa sub mul coeff 0 sina sub mul} def /B {1 0} def %% extremites des vecteurs de base /C {0 1} def /AA {-10 cosa mul -10 sina mul} def /BB {10 0} def %% extremites des axes pour tracer 1/2 droites /CC {0 10} def 16 setfontsize setTimesItalic (O) O drtext AA A (-) line BB B (-) line CC C (-) line 2 setlinewidth O A (->) line O B (->) line O C (->) line $$ \vec{\imath} $$ O A milieu [1.5 1.5] ultexlabel $$ \vec{\jmath} $$ O B milieu [1.5 1.5] dctexlabel $$ \vec{k} $$ O C milieu [1.5 1.5] cltexlabel %% Fin tracé du repère. /Mx {O A 3 mulv addv} def /My {O B 4 mulv addv} def /Mz {O C 2.5 mulv addv} def /M {O Mx addv My addv Mz addv} def /MxOy {O Mx addv My addv} def /MxOz {O Mx addv Mz addv} def /MyOz {O My addv Mz addv} def 0.5 setlinewidth pointilles bleu M MxOy (-) line MxOy Mx (-) line MxOy My (-) line M MxOz (-) line MxOz Mx (-) line MxOz Mz (-) line M MyOz (-) line MyOz My (-) line MyOz Mz (-) line 1.5 setlinewidth continu rouge O M (->) line 16 setfontsize setTimesItalic (x) Mx ultext (y) My drtext (z) Mz ultext (M) M ultext