ploha

In[192]:=

xuv[u_, v_] := 2 Cos[u] Cosh[v] + (2 Cos[3 u] Cosh[3 v])/3 ; yuv[u_, v_] := 2 Cosh[v] Sin[u] - ... , =, 0.4}], ;}] RowBox[{RowBox[{dv, =, 0.04}], ;}] f[u_, v_] := {xuv[u, v], yuv[u, v], zuv[u, v]}

In[202]:=

SZ[f][u, v]

Out[202]=

0

In[203]:=

K1[f][u, v]

Out[203]=

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

In[204]:=

K2[f][u, v]

Out[204]=

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

In[205]:=

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

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

Out[205]=

⁃Graphics3D⁃

In[206]:=

RowBox[{RowBox[{v0, =, RowBox[{-, 0.67}]}], ;}] RowBox[{RowBox[{v1, =, 0.67}], ;}]

In[208]:=

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

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

Out[208]=

⁃Graphics3D⁃

In[209]:=

v0 = -1 ; v1 = 1 ;

In[211]:=

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

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

Out[211]=

⁃Graphics3D⁃

Created by Mathematica  (April 30, 2004)