[pstricks] Hyperbolic Paraboloidal for Rafael's Thesis

[Poul Riis]

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}

-------------- next part --------------


###########################################
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