parametrizacija

xuv[u_, v_] := 5/2 * Sin[v] * Cos[u] ; yuv[u_, v_] := 4 * Sin[v] * Sin[u] ; zuv[u_, v_] := 2Co ... wBox[{RowBox[{v0, =, 0.01}], ;}] RowBox[{RowBox[{v1, =, RowBox[{Pi, -, 0.01}]}], ;}] dv = Pi/48 ;


Created by Mathematica  (May 4, 2004)