5. Hennebergova minimalna ploha

In[155]:=

xuv[u_, v_] := 2Sinh[u] * Cos[v] - 2/3  Sinh[3u] * Cos[3v] ; yuv[u_, v_] := 2Sinh[u] ... , =, 0.05}], ;}] v0 = -Pi ; v1 = Pi ; dv = Pi/72 ; f[u_, v_] := {xuv[u, v], yuv[u, v], zuv[u, v]}

In[165]:=

SZ[f][u, v]

Out[165]=

0

In[166]:=

K1[f][u, v]

Out[166]=

-Sech[u]^4/(-Cos[4 v] + Cosh[4 u])^(1/2)/(2 2^(1/2))

In[167]:=

K2[f][u, v]

Out[167]=

Sech[u]^4/(-Cos[4 v] + Cosh[4 u])^(1/2)/(2 2^(1/2))

In[168]:=

RowBox[{ploha[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{AxesNone, ,, BoxedF ... RowBox[{{, RowBox[{0.2, ,, RowBox[{-, 2.}], ,, 2}], }}]}], ,, ImageSize {400, 400}}], ]}]

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

Out[168]=

⁃Graphics3D⁃

In[169]:=

RowBox[{RowBox[{u0, =, 0.55}], ;}]

In[170]:=

RowBox[{ploha[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{AxesNone, ,, BoxedF ... nt, , RowBox[{{, RowBox[{0.2, ,, -2, ,, 2}], }}]}], ,, ImageSize {400, 400}}], ]}]

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

Out[170]=

⁃Graphics3D⁃

Created by Mathematica  (April 30, 2004)