4. Enneperova minimalna ploha

In[140]:=

xuv[u_, v_] := u - u^3/3 + u * v^2 ; yuv[u_, v_] := -v + v^3/3 - v * u^2 ; zuv[u_, v_] := u^2 ... 1, =, 2.2}], ;}] RowBox[{RowBox[{dv, =, 0.1}], ;}] f[u_, v_] := {xuv[u, v], yuv[u, v], zuv[u, v]}

In[150]:=

SZ[f][u, v]

Out[150]=

0

In[151]:=

K1[f][u, v]

Out[151]=

-2 1/(1 + u^2 + v^2)^4^(1/2)

In[152]:=

K2[f][u, v]

Out[152]=

2 1/(1 + u^2 + v^2)^4^(1/2)

In[153]:=

RowBox[{Show, [, RowBox[{RowBox[{GraphicsArray, [, RowBox[{RowBox[{Table, [, RowBox[{RowBox[{P ... wBox[{GraphicsSpacing, , RowBox[{-, 0.2}]}]}], ]}], ,, ImageSize {800, 200}}], ]}]

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

Out[153]=

⁃GraphicsArray⁃

In[154]:=

RowBox[{bojagauss[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{RowBox[{ViewPoint, , RowBox[{{, RowBox[{3, ,, RowBox[{-, 0.5}], ,, 2}], }}]}], ,, ImageSize {400, 400}}], ]}]

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

Out[154]=

⁃Graphics3D⁃

Created by Mathematica  (April 30, 2004)