parametarski

In[231]:=

xuv[u_, v_] := u ; yuv[u_, v_] := v ; zuv[u_, v_] := Log[Cos[u]/Cos[v]] ; RowBox[{RowBox[{u0, ... -, 0.1}]}], ;}] RowBox[{RowBox[{dv, =, 0.1}], ;}] f[u_, v_] := {xuv[u, v], yuv[u, v], zuv[u, v]}

In[241]:=

SZ[f][u, v]

Out[241]=

0

In[242]:=

K1[f][u, v]

Out[242]=

-(Sec[u]^2 Sec[v]^2)/(Sec[u]^2 + Tan[v]^2)^2^(1/2)

In[243]:=

K2[f][u, v]

Out[243]=

(Sec[u]^2 Sec[v]^2)/(Sec[u]^2 + Tan[v]^2)^2^(1/2)

In[244]:=

RowBox[{ploha[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{RowBox[{ViewPoint, , RowBox[{{, RowBox[{3, ,, 2.4, ,, 2}], }}]}], ,, AxesNone, ,, BoxedFalse}], ]}]

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

Out[244]=

⁃Graphics3D⁃

Created by Mathematica  (April 30, 2004)