[pstricks] Hyperbolic Paraboloidal for Rafael's Thesis

[Rafael Castro Triguero]

Poul Riis escribió:
> Well, the following is probably somewhat closer to what you want.
>
> Yours,
> Poul Riis
>
> \documentclass[a4paper]{article}
>
> % \usepackage{pst-all} % Para trabajar con Pstricks
> % \usepackage{pdftricks}
>  \usepackage{pst-3dplot}
> % \usepackage{pst-vue3d}
> % \usepackage{pst-math} % Permite trabajar con funciones matemáticas
> % \usepackage{pst-infixplot} % Permite trabajar con fórmulas igual que
> MATLAB
> % \usepackage{pst-poly} % Para trabajar con polígonos
> % \usepackage{pst-blur} % Para dibujar sombras más suaves
> % \usepackage{pst-circ} % Permite trabajar con circuitos eléctricos
> % \usepackage{pst-grad} % Permite dibujar con estilos gradiente
>
> \begin{document}
> \begin{pspicture}(-1,3)(-1,3)
> \psset{THETA=60,PHI=10,Dobs=60,Decran=40,dLight=1e9,Alpha=30,Beta=10}%Alpha=90-THETA,Beta=PHI
>    \pstThreeDCoor[xMin=-1,xMax=4,yMin=-1,yMax=4,zMin=-1,zMax=3.5]
> \parametricplotThreeD[xPlotpoints=10,yPlotpoints=10,linecolor=green,linewidth=0.25pt,plotstyle=curve](-2,2)(-2,2){t
> u -1}
> \parametricplotThreeD[xPlotpoints=10,yPlotpoints=10,linecolor=green,linewidth=0.25pt,plotstyle=curve](-2,2)(-2,2){u
> t -1}
> \parametricplotThreeD[xPlotpoints=10,yPlotpoints=10,linecolor=blue,linewidth=0.5pt,plotstyle=curve](-2,2)(-2,2){t
> u t dup mul u dup mul sub 5 div}
> \parametricplotThreeD[xPlotpoints=10,yPlotpoints=10,linecolor=blue,linewidth=0.5pt,plotstyle=curve](-2,2)(-2,2){u
> t u dup mul t dup mul sub 5 div}
>
>  \end{pspicture}
>
> \end{document}
>
>   
> ------------------------------------------------------------------------
>
>
>
> ###########################################
> Denne meddelelse med evt. vedlæg  er scannet af SkoleKom ved hjælp af F-Secure virusscanner.
>
> For yderligere information,
> http://forside.skolekom.dk/indhold/punkt1/viruspolitik
>   
> ------------------------------------------------------------------------
>
> _______________________________________________
> pstricks mailing list
> pstricks at tug.org
> http://tug.org/mailman/listinfo/pstricks
>   
 I have tried this and I get something like I was looking for but the 
parametric formulas are

x = u + t
y = u - t
z = u * t

and with those I can't get good results. Where is the error?

 \begin{pspicture}(-3,-3)(3,3)
 \psset{Dobs=60,Decran=40,Alpha=30,Beta=10}%Alpha=90-THETA,Beta=PHI
 \parametricplotThreeD[xPlotpoints=10,yPlotpoints=10,linecolor=blue,linewidth=0.25pt,plotstyle=curve](0,3)(0,3){t
 u t u mul 0.2 mul}
 \parametricplotThreeD[xPlotpoints=10,yPlotpoints=10,linecolor=blue,linewidth=0.25pt,plotstyle=curve](0,3)(0,3){u
 t u t mul 0.2 mul}
 \pstThreeDCoor[xMin=-1,xMax=4,yMin=-1,yMax=4,zMin=-1,zMax=3.5]
 \end{pspicture}

-- 
-----------------------------------------------------
PhD. Student Rafael Castro Triguero
University of Córdoba
Polithecnical School
Menéndez Pidal Avenue
14004 Córdoba
Spain

University:
      Tel  : +34-957-218329
      Fax  : +34-957-218316
      E-Mail: me1catrr at uco.es

Home:
     Santa Ana de la Albaida nº 14
     Villa Mª José
     Urbanización Olivar Viejo
     14011 Córdoba
     Spain
     Tel.: +34-957-403398
     Mobile : +34-699-039885
----------------------------------------------------