parametrizacija

xuv[u_, v_] := v * Cos[u] ; yuv[u_, v_] := v * Sin[u] ; zuv[u_, v_] := v^3 Cos[u] (-1 + 2 Cos[2 u]) ; u0 = 0 ; u1 = Pi ; du = Pi/24 ; v0 = -1 ; v1 = 1 ; RowBox[{RowBox[{dv, =, 0.1}], ;}]

Created by Mathematica  (May 4, 2004)