ploha

In[91]:=

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

In[101]:=

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

Out[101]=

0

In[102]:=

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

Out[102]=

-a^2/(a^2 + u^2)^2^(1/2)

In[103]:=

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

Out[103]=

a^2/(a^2 + u^2)^2^(1/2)

In[104]:=

RowBox[{RowBox[{RowBox[{RowBox[{RowBox[{bojagauss, [, RowBox[{f, [, 0.75, ]}], ]}], [, u, v, ]}], [, u0, u1, du, ]}], [, v0, v1, dv, ]}], [, ImageSize {300, 450}, ]}]

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

Out[104]=

⁃Graphics3D⁃

In[105]:=

RowBox[{Show, [, RowBox[{RowBox[{GraphicsArray, [, RowBox[{RowBox[{{, RowBox[{RowBox[{RowBox[{ ... , }}]}]}], ]}], ,, DisplayFunction$DisplayFunction, ,, ImageSize {600, 300}}], ]}]

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

Out[105]=

⁃GraphicsArray⁃

Created by Mathematica  (April 30, 2004)