minimalne1.nb

ploha

In[217]:=

$xuv[u_, v_] := u - Sin[u] Cosh[v] ; yuv[u_, v_] := 1 - Cos[u] Cosh[v] ; zuv[u_, v_] := -4Sin[u ... = -2 ; v1 = 2 ; RowBox[{RowBox[{dv, =, 0.1}], ;}] f[u_, v_] := {xuv[u, v], yuv[u, v], zuv[u, v]}$

In[227]:=

Out[227]=

In[228]:=

Out[228]=

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

In[229]:=

Out[229]=

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

In[230]:=

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

Out[230]=

Created by Mathematica (April 30, 2004)