ploha

In[108]:=

xuv[a_][u_, v_] := a * Cosh[v/a] * Cos[u] ; yuv[a_][u_, v_] := a * Cosh[v/a] * Sin[u] ; zuv[u_ ... Pi/24 ; v0 = -2 ; v1 = 2 ; dv = Pi/24 ; f[a_][u_, v_] := {xuv[a][u, v], yuv[a][u, v], zuv[u, v]}

In[118]:=

SZ[f[a]][u, v]

Out[118]=

0

In[119]:=

K1[f[a]][u, v]

Out[119]=

-Sech[v/a]^4/a^2^(1/2)

In[120]:=

K2[f[a]][u, v]

Out[120]=

Sech[v/a]^4/a^2^(1/2)

In[121]:=

bojagauss[f[1]][u, v][u0, u1, du][v0, v1, dv][AxesNone, BoxedFalse]

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

Out[121]=

⁃Graphics3D⁃

In[122]:=

RowBox[{Show, [, RowBox[{RowBox[{Table, [, RowBox[{RowBox[{ParametricPlot3D, [, RowBox[{RowBox ... Box[{-, 2.1}], ,, , 1.}], }}]}], ,, LightingFalse, ,, ImageSize {400, 400}}], ]}]

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

Out[122]=

⁃Graphics3D⁃

Created by Mathematica  (April 30, 2004)