Kružni heliks (na cilindru poluprečnika 30 i visine 8)

In[11]:=

g1 = ParametricPlot3D[{30Cos[t], 30Sin[t], 8 t, RGBColor[0, 1, 0]}, {t, -10, 10}, BoxedFalse, AxesFalse, PlotPoints50000, DisplayFunction$DisplayFunction] ;

[Graphics:HTMLFiles/index_2.gif]

Cilindar na kojem se nalazi gornji heliks

In[12]:=

g2 = ParametricPlot3D[{30 Cos[t], 30 Sin[t], 8 z}, {t, -10, 10}, {z, -8, 8}, BoxedFalse, AxesFalse, PlotPoints40, DisplayFunction$DisplayFunction] ;

[Graphics:HTMLFiles/index_4.gif]

Kombinacija obje slike

In[13]:=

Show[g1, g2]

[Graphics:HTMLFiles/index_6.gif]

Out[13]=

⁃Graphics3D⁃

Sfera S^2

In[10]:=

ParametricPlot3D[{Cos[u] Sin[v], Sin[u] Sin[v], Cos[v]}, {u, 0, 2 Pi}, {v, 0, Pi}, BoxedFalse, AxesFalse, PlotPoints40, DisplayFunction$DisplayFunction]

[Graphics:HTMLFiles/index_9.gif]

Out[10]=

⁃Graphics3D⁃

Helikoid (ograničen kružnim heliksom)

In[9]:=

g4 = ParametricPlot3D[{Sinh[u] Cos[v], Sinh[u] Sin[v], v}, {u, -2, 2}, {v, -8, 8}, PlotPoints70, BoxedFalse, AxesTrue]

[Graphics:HTMLFiles/index_12.gif]

Out[9]=

⁃Graphics3D⁃

Hiperboloid (jednostrani) x^2 + y^2- z^2=1

In[8]:=

g5 = ParametricPlot3D[{Cosh[u] Cos[v], Cosh[u] Sin[v], Sinh[u]}, {u, -3, 3}, {v, 0, 2 Pi}, PlotPoints50, BoxedFalse, AxesTrue]

[Graphics:HTMLFiles/index_17.gif]

Out[8]=

⁃Graphics3D⁃

Hiperboloid (dvostrani) x^2 + 4y^2- z^2=-1

In[6]:=

g61 = ParametricPlot3D[{Sinh[u] Cos[v], 1/2Sinh[u] Sin[v], Cosh[u]}, {u, -4, 4}, {v, -Pi, Pi}, ... -Cosh[u]}, {u, -4, 4}, {v, -Pi, Pi}, PlotPoints60, BoxedFalse, AxesTrue] ;

In[7]:=

Show[g61, g62] ;

[Graphics:HTMLFiles/index_23.gif]

Eliptična kupa (dvije kupe, jedna s pozitivnom, druga s negativnom visinom)

x^2 + y^2- z^2=0

In[14]:=

g7 = ParametricPlot3D[{u Cos[v], u Sin[v], u}, {u, -4, 4}, {v, -Pi, Pi}, PlotPoints70, BoxedFalse, AxesTrue]

[Graphics:HTMLFiles/index_27.gif]

Out[14]=

⁃Graphics3D⁃

Elipsoid x^2 + 9y^2+4 z^2=1

In[15]:=

g8 = ParametricPlot3D[{ Cos[u] Sin[v], 1/3Sin[u] Sin[v], 1/2Cos[v]}, {u, 0, 2 Pi}, {v, 0, Pi}, ... edFalse, AxesFalse, PlotPoints50, DisplayFunction$DisplayFunction]

[Graphics:HTMLFiles/index_32.gif]

Out[15]=

⁃Graphics3D⁃

Created by Mathematica  (November 14, 2007)