<font color='black' size='2' face='Arial, Helvetica, sans-serif'><span id="result_box" class="short_text" lang="en"><span title="Cliquer ici pour voir d'autres traductions" class="hps">Another</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">method:</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">3D vectors</span><span class="" title="Cliquer ici pour voir d'autres traductions">, using</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">\</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">codejps<font size="2"> <font face="Arial, Helvetica, sans-serif">:<br>
<br>
\documentclass{article}<br>
\usepackage{pst-solides3d}<br>
<br>
\begin{document}<br>
\begin{center}<br>
\psset{lightsrc=viewpoint,viewpoint=50 -10 30 rtp2xyz,Decran=50}<br>
\begin{pspicture}(-5,-4)(6,3)<br>
\codejps{<br>
/a 2 def<br>
/b 1 def<br>
%<br>
/g {<br>
3 dict begin<br>
   /t exch def<br>
   t Cos a mul %% <br>
   t Sin a mul %% <br>
   3 t mul Sin b mul %%<br>
end<br>
} def<br>
%<br>
/g' {<br>
3 dict begin<br>
   /t exch def<br>
    t Sin a neg mul %% <br>
    t Cos a mul %% <br>
    3 t mul Cos 3 b mul mul %% <br>
end<br>
} def<br>
% vecteur unitaire de la tangente<br>
/uTangente {g' unitaire3d} def<br>
% tangente unitaire en un point définie par les angles<br>
/Angles {<br>
     ti uTangente /uTangenteZ exch def /uTangenteY exch def /uTangenteX exch def<br>
    /Phi uTangenteZ arcsin def<br>
    /Theta uTangenteY uTangenteX atan def<br>
     } def<br>
1 0 0 setrgbcolor<br>
0 pi 1.8 mul {g} CourbeR3<br>
% stop<br>
%<br>
1 setlinewidth<br>
% la flèche<br>
/Fleche {<br>
0 0.1 0.25 [4 8] newcone<br>
dup<br>
{0 Phi 90 sub neg Theta rotateOpoint3d} solidtransform<br>
 {ti g translatepoint3d} solidtransform<br>
dup (rouge) outputcolors<br>
drawsolid** } def<br>
% les tracés<br>
% point N°1<br>
/ti 0.1 pi mul def<br>
Angles<br>
Fleche<br>
% point N°2<br>
/ti 1.0 pi mul def<br>
Angles<br>
Fleche<br>
% point N°3<br>
/ti 1.8 pi mul def<br>
Angles<br>
Fleche<br>
}<br>
\gridIIID[Zmin=-2,Zmax=2](-2,2)(-2,2)<br>
\end{pspicture}<br>
\end{center}<br>
<br>
\end{document}<br>
<br>
M.L.<br>
</font></font></span></span><font color="black" face="Arial, Helvetica, sans-serif" size="2">

<div> <br>

</div>



<div> <br>

</div>



<div style="clear: both;"></div>



<div> <br>

</div>



<div> <br>

</div>



<div style="font-family: arial,helvetica; font-size: 10pt; color: black;"><br>
<!-- end of AOLMsgPart_4_109be55c-c924-488a-9b43-ce9c14ce948d -->

</div>

</font></font>