zavojnica

In[88]:=

RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{2 * Cos[u], ,, 2 Sin[u], ,, RowBox[{0.5, u}], ,, {AbsoluteThickness[2], Hue[1]}}], }}], ,, {u, 0, 6Pi, Pi/72}}], ]}]

[Graphics:../HTMLFiles/index_18.gif]

Out[88]=

⁃Graphics3D⁃

In[89]:=

RowBox[{Show, [, RowBox[{ParametricPlot3D[{2 * Cos[u], 2 Sin[u], v}, {u, 0, 2Pi}, {v, 0, 2Pi}, ... ;Olive, ,, DisplayFunction$DisplayFunction, ,, Axes->None, ,, BoxedFalse}], ]}]

[Graphics:../HTMLFiles/index_21.gif]

Out[89]=

⁃Graphics3D⁃

In[90]:=

RowBox[{Show, [, , RowBox[{RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{2 * ... }}]}], ,, DisplayFunction$DisplayFunction, ,, Axes->None, ,, BoxedFalse}], ]}]

[Graphics:../HTMLFiles/index_24.gif]

Out[90]=

⁃Graphics3D⁃

Created by Mathematica  (April 30, 2004)