crtanje

f[u_, v_] := {xuv[u, v], yuv[u, v], zuv[u, v]}

GZ[f][u, v]

-(Cos[u]^2 Sin[u]^2)/((-1 + v)^2 Cos[u]^2 + Sin[u]^2 + Sin[u]^4)^2

SZ[f][u, v]

((-1 + v) (1 + (2 + Cos[2 u]) Sin[u]^2))/(2 ((-1 + v)^2 Cos[u]^2 + Sin[u]^2 + Sin[u]^4)^(3/2))

RowBox[{prvo[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{RowBox[{ViewPoint, ->, RowBox[{{, ... wBox[{-, 1.1}], ,, 1.1}], }}], ,, {-2, 2}, ,, RowBox[{{, RowBox[{-1, ,, 2.1}], }}]}], }}]}]}], ]}]

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

Prikaz plohe f(u,v) u podrucju [ u , u ]×[ v , v ] 0 1 0 1

(⁃Graphics3D⁃) &&Null

RowBox[{drugo[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{PlotPoints100, ,, AxesLabel ... , π/2, π, (3 π)/2, 2 π}, Automatic, Automatic}, ,, FaceGridsAll}], ]}]

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

Graf funkcije Gussove zakrivljenosti plohe f(u,v) nad podrucjem [ u , u ]×[ v , v ] 0 1 0 1

(⁃SurfaceGraphics⁃) &&Null

RowBox[{trece[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{RowBox[{ViewPoint, ->, RowBox[{{ ... , RowBox[{{, RowBox[{-1, ,, 2.1}], }}]}], }}]}], ,, AxesNone, ,, BoxedFalse}], ]}]

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

Prikaz plohe f(u,v) u podrucju [ u , u ]×[ v , v ] obojan bojom Hue(GZ) 0 1 0 1

(⁃Graphics3D⁃) &&Null

RowBox[{cetvrto[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{PlotPoints100, ,, AxesLab ... , π/2, π, (3 π)/2, 2 π}, Automatic, Automatic}, ,, FaceGridsAll}], ]}]

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

Graf funkcije srednje zakrivljenosti plohe f(u,v) nad podrucjem [ u , u ]×[ v , v ] 0 1 0 1

(⁃SurfaceGraphics⁃) &&Null

RowBox[{peto[f][u, v][u0, u1, du][v0, v1, dv], [, RowBox[{RowBox[{ViewPoint, ->, RowBox[{{, ... , RowBox[{{, RowBox[{-1, ,, 2.1}], }}]}], }}]}], ,, AxesNone, ,, BoxedFalse}], ]}]

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

Prikaz plohe f(u,v) u podrucju [ u , u ]×[ v , v ] obojan bojom Hue(SZ) 0 1 0 1

(⁃Graphics3D⁃) &&Null

Created by Mathematica  (May 4, 2004)