Présentation de cartesien3D.jps

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

<tex> 
$$
\vec{\imath}
$$ 
</tex> 
O A milieu  [1.5 1.5] ultexlabel 
<tex> 
$$
\vec{\jmath}
$$ 
</tex> 
O B milieu  [1.5 1.5] dctexlabel 
<tex> 
$$
\vec{k}
$$ 
</tex> 
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