1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
\documentclass{article}
\usepackage{pstricks}
\usepackage{pst-3dplot}
\pagestyle{empty}
\begin{document}
\begin{pspicture}(-1,-5)(15,2.5)
\psset{Alpha=20}
\pstThreeDCoor[yMax=25]
\parametricplotThreeD[xPlotpoints=200,%
linecolor=blue,linewidth=1.5pt,linestyle=solid,plotstyle=curve](0,720)%
{ 0 t 180 div 6 mul t sin 2.5 mul }
\parametricplotThreeD[xPlotpoints=200,linecolor=red,linewidth=1.5pt,%
linestyle=solid,plotstyle=curve](0,720)%
{ t sin 2.5 mul t 180 div 6 mul 0 }
\psset{arrows=->,arrowscale=1.5,linewidth=0.5pt}
\parametricplotThreeD[yPlotpoints=44,linecolor=red](0,2.5)(15,720)%
{ u sin t mul u 180 div 6 mul 0 }
\parametricplotThreeD[linecolor=blue,yPlotpoints=44](0,2.5)(0,720)%
{ 0 u 180 div 6 mul u sin t mul }
\end{pspicture}
\end{document}
|