tw2.tex

\documentclass[a4paper]{article}
\usepackage[margin=1cm]{geometry}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Jean-Paul Vignault et Thierry Wibrecht
%% Sujet d'un post sur la liste syracuse - avril 2008
 
\begin{pspicture}(-7,-8)(7,8)
\psset[pst-solides3d]{viewpoint=20 20 10,Decran=60,%
          lightsrc=20 10 5} 
\psset{solidmemory}
\psSolid[object=grille,base=-3 3 -3 3,ngrid=50 50,
    RotX=-90,linewidth=0.2\pslinewidth,
    action=none,
    name=spl1,](0,1,0)
% Parametric Surfaces
\defFunction{cone}(u,v){u v Cos mul}{u v Sin mul}{u}
\psSolid[object=surfaceparametree, base=-2.5 2.5 0 2 pi
    mul,fillcolor=yellow!50,incolor=green!50,
    function=cone,linewidth=0.2\pslinewidth,ngrid=50 120,
    action=none,
    name=spl2]%
\defFunction[algebraic]{fu}(t){t}{1.05}{sqrt(t^2+1.21)}
\defFunction[algebraic]{fu'}(t){1}{0}{(2*t+1)/(2*sqrt(t^2+1.21))}
\defFunction[algebraic]{fu2}(t){t}{1.05}{-sqrt(t*t+1.21)}
\defFunction[algebraic]{fu2'}(t){1}{0}{-(2*t)/(2*sqrt(t*t+1.21))}
\defFunction[algebraic]{fu3}(t){t}{1.1}{t}
\defFunction[algebraic]{fu3'}(t){1}{0}{1}
\defFunction[algebraic]{fu4}(t){t}{1.1}{-t}
\defFunction[algebraic]{fu4'}(t){1}{0}{-1}
\psSolid[object=courbe,
     range=-3 3,
     r=0.05,
     ngrid=50 8,
%     linecolor=red,opacity=.6,
     fillcolor=red,
     action=none,
     function=fu3,
     name=crb3]
\psSolid[object=courbe,
     range=-3 3,
     r=0.05,
     ngrid=50 8,
%     linecolor=red,opacity=.6,
     fillcolor=red,
     action=none,
     function=fu4,
     name=crb4]
\psSolid[object=courbe,
    range=-2.6 2.6,
    r=.05,
    ngrid=150 8,
%    linewidth=.1,
%    linecolor=blue,opacity=.6,
    fillcolor=blue,
    action=none,
    function=fu,
    name=crb1]
\psSolid[object=courbe,
    range=-2.6 2.6,
    r=.05,
    ngrid=150 8,
    linewidth=.1,
%    linecolor=blue,
    fillcolor=blue,
    action=none,
    opacity=.6,
    function=fu2,
    name=crb2]
\psSolid[object=fusion,
    base=spl1 spl2 crb1 crb2 crb3 crb4,
     opacity=.6,
     linewidth=.01,
     action=draw**,
     name=inters]%
\composeSolid
      \end{pspicture}
 
\end{document}