minimalne1.nb

10. Richmondova minimalna ploha

In[252]:=

In[253]:=

$richmondmincurve[n_][z_] := {-1/(2z) - z^(2n + 1)/(4n + 2) - I/(2z) + I z^(2n + 1)/(4n + 2), z^n/n} ;$

In[254]:=

$richmondpolar[n_][t_][r_, theta_] := {-Cos[t + theta]/(2r) - (r^(1 + 2n) Cos[t - (1 + 2n) thet ... -Sin[t + theta]/(2r) + (r^(1 + 2n) Sin[t - (1 + 2n) theta])/(2 + 4n), (r^n Cos[t - n theta])/n} ;$

In[255]:=

Out[255]=

In[256]:=

RowBox[{ParametricPlot3D, [, RowBox[{Append[richmondpolar[1] [0] [r, theta], Hue[GZ[richmondpo ... 2754;None, ,, BoxedFalse, ,, LightingFalse, ,, ImageSize {400, 400}}], ]}]

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

Out[256]=

In[257]:=

$xuv[n_][t_][u_, v_] := -Cos[t + u]/(2v) - (v^(1 + 2n) Cos[t - (1 + 2n) u])/(2 + 4n) ; yuv[n_][ ... wBox[{dv, =, 0.05}], ;}] f[n_][t_][u_, v_] := {xuv[n][t][u, v], yuv[n][t][u, v], zuv[n][t][u, v]}$