[pstricks] I need a little help

Juergen Gilg gilg at acrotex.net
Wed Dec 19 12:46:16 CET 2012


Dear Cyrille,

here a try for the green intersecting curve:

\documentclass{article}
\usepackage{pst-solides3d}

\begin{document}
  \begin{center}
  \psset{lightsrc=viewpoint,viewpoint=40 30 16 rtp2xyz,Decran=20}
  \begin{pspicture}(-4,-4)(4,4)
  \psSurface[fillcolor=cyan!10,%algebraic,%axesboxed,
   ngrid=.25 .25,incolor=yellow,linewidth=0.125\pslinewidth,grid,
   intersectionplan={[0 0 1 -8.4] [0 0 1 -3.6] },
   intersectioncolor=(bleu) (rouge),
   intersectionlinewidth=1  1,
   intersectiontype=0,](-3,-3)(15,15){ x 4 sub dup mul y 4 sub dup mul 
add -5 div 10 add
     dup -2 lt {pop -2}if }
%  {-((x-4)^2+(y-4)^2)*0.2+10}
  \axesIIID[linecolor=gray,linewidth=0.4pt,labelsep=18pt](0,0,0)(13,13,12)
\psLineIIID[linecolor=blue, linewidth=0.1pt,linearc=0.,
  doubleline=false](0,0,0)(6,0,0)(6,6,0)(6,6,8.4)
\psLineIIID[linecolor=blue, linewidth=0.1pt,linearc=0.,
  doubleline=false](0,0,0)(0,6,0)(6,6,0)
\psLineIIID[linecolor=red, linewidth=0.1pt,linearc=0.,
  doubleline=false](0,0,0)(8,0,0)(8,8,0)(8,8,3.6)
\psLineIIID[linecolor=red, linewidth=0.1pt,linearc=0.,
  doubleline=false](0,0,0)(0,8,0)(8,8,0)
\defFunction[algebraic]{inter}(t){t}{t}{-(t-4)^2*0.4+10}
\psSolid[object=courbe,r=0,linecolor=green,linewidth=1pt,range=3 9, 
ngrid=.15 .15,
         function=inter,grid,action=draw]
%\pscurve[linecolor=green](-0.32,0.45)(-0.33,.9)(-0.6,2.4)
\rput(-1.8,-.2){\tiny $x_1$}
\rput(-1,-.1){\tiny $x_0$}
\rput(.8,-0.2){\tiny $y_0$}
\rput(1.2,-.5){\tiny $y_1$}
\rput(-2.5,.4){\tiny $U_0$}
  \end{pspicture}
  \end{center}
\end{document}

Hope this helps!

Regards,

Jürgen



More information about the PSTricks mailing list