[pstricks] surface plot

[Herbert Voss]

here is the example from Aydın as a parameter plot.
x=u+5
y=v+5
z=(-u*u+v*v)/6+5

Herbert

\documentclass[12pt]{article} % A. Ustun 09.01.2011
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}

\psset{arrowlength=3,arrowinset=0}
\psset{viewpoint=50 30 25 rtp2xyz,Decran=50}
\psset{lightsrc=viewpoint}

\begin{pspicture}(-7,-8)(7,8)
\axesIIID[linecolor=gray](0,0,0)(7,7,7)
\psSolid[ngrid=.4 .4,object=grille,base=1.5 6.5 1.5
6.5,linewidth=0.5\pslinewidth,linecolor=gray,action=draw]%
\psPoint(4,4,4 5 sub 2 exp 4 5 sub 2 exp sub 6 div 5 add){P}
\psPoint(4,4,0){Po}
\pcline[linecolor=red,linestyle=dashed](P)(Po)\Aput{$z=f(x,y)$}
\iffalse
\psSurface[ngrid=.4 .4,fillcolor=green!50,incolor=gray!50,
  intersectiontype=0,
  intersectionplan={
   [0 0 1 -6.5]
   [0 0 1 -6.1]
   [0 0 1 -5.7]
   [0 0 1 -5.3]
   [0 0 1 -4.9]
   },
  intersectioncolor=(bleu),
  intersectionlinewidth=1,
   linewidth=0.5\pslinewidth,%axesboxed,
   algebraic](1.5,1.5)(6.5,6.5){((y-5)^2-(x-5)^2)/6+5}
\fi
% the original function as a parameter equation
\defFunction[algebraic]{F_uv}(u,v){u+5}{v+5}{(-u*u+v*v)/6+5}
\psSolid[object=surfaceparametree,linecolor=blue,
  linewidth=0.05,
  base=-3.5 1.5 -3.5 1.5,function=F_uv]
\defFunction[algebraic]{F_uv}(u,v){u+5}{v+5}{0}
\psSolid[object=surfaceparametree,linecolor=blue,
  linewidth=0.05,
  base=-3.5 1.5 -3.5 1.5,function=F_uv]
%
\psdot[linecolor=red,dotscale=0.7](P)
\psdot[dotscale=0.7](Po)
\psPoint(6,6,0){D}\uput[0](D){$D$}
\psPoint(2,6,6 5 sub 2 exp 2 5 sub 2 exp sub 6 div 5 add){S}\uput[0](S){$S$}
\end{pspicture}
\end{document}
-------------- next part --------------
A non-text attachment was scrubbed...
Name: x.png
Type: image/png
Size: 23402 bytes
Desc: not available
URL: <http://tug.org/pipermail/pstricks/attachments/20110111/06174221/attachment-0001.png>