6. Bourova minimalna ploha

In[171]:=

xuv[u_, v_] := u * Cos[v] - 1/2 * u^2 * Cos[2 * v] ; yuv[u_, v_] := -u * Sin[v] - 1/2 * u^2 * ... =, 0.1}], ;}] v0 = -2Pi ; v1 = 2Pi ; dv = Pi/64 ; f[u_, v_] := {xuv[u, v], yuv[u, v], zuv[u, v]}

In[181]:=

SZ[f][u, v]

Out[181]=

0

In[182]:=

K1[f][u, v]

Out[182]=

-1/(u (1 + u)^4)^(1/2)

In[183]:=

K2[f][u, v]

Out[183]=

1/(u (1 + u)^4)^(1/2)

In[184]:=

RowBox[{ploha[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{ViewPoint, , RowBox[{{, RowBox[{RowBox[{-, 0.5}], ,, RowBox[{-, 1.5}], ,, 1.5}], }}]}], ]}]

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

Out[184]=

⁃Graphics3D⁃

In[185]:=

RowBox[{ploha[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{AxesNone, ,, BoxedF ... 54;, RowBox[{{, RowBox[{RowBox[{-, 0.5}], ,, RowBox[{-, 1.5}], ,, RowBox[{-, 1.5}]}], }}]}]}], ]}]

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

Out[185]=

⁃Graphics3D⁃

In[186]:=

RowBox[{ploha[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{AxesNone, ,, BoxedF ... ,, RowBox[{ViewPoint, , RowBox[{{, RowBox[{0, ,, 0.5, ,, RowBox[{-, 1.5}]}], }}]}]}], ]}]

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

Out[186]=

⁃Graphics3D⁃

In[187]:=

RowBox[{Show, [, RowBox[{RowBox[{GraphicsArray, [, RowBox[{{%, %%}, ,, RowBox[{GraphicsSpacing, , RowBox[{-, 0.4}]}]}], ]}], ,, ImageSize {600, 250}}], ]}]

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

Out[187]=

⁃GraphicsArray⁃

Created by Mathematica  (April 30, 2004)