prvnikvadrforma.mws

E,F,G - koeficienty první kvadratické formy plochy

D1      -diskriminant determinant první kvadratické formy

Calling Sequence

EFG(X(u,v),u,v)

D1(X(u,v), u,v)

E(X(u,v), u,v), E([x(u,v), y(u,v), z(u,v)], u,v)

F(X(u,v), u,v), F([x(u,v), y(u,v), z(u,v)], u,v)
G(X(u,v), u,v), G([x(u,v), y(u,v), z(u,v)], u,v)

Parameters

X(u,v) - plocha daná vektorovou funkcí [x(u,v), y(u,v), z(u,v)] parametrů u, v.

u,v       - parametry plochy

Description

Examples

Nejprve je třeba nastavit cestu, kde máte uloženou knihovnu "diffgeometry", např

>    restart;

>    libname:=libname,"D:/Sarka/Maple/diffgeometry/libsarka";

libname :=

>    with(diffgeometry);

[Assmer, D1, D2, E, EFG, F, G, GK, GaussCurvature, Gaussplot, L, LMN, M, MeanCurvature, N, SK, arclength, arclengthNumeric, curvature, dp, dupin1, dupin2, frenet, hlavnimatrix, l, m, n, normalize, nrm,...
[Assmer, D1, D2, E, EFG, F, G, GK, GaussCurvature, Gaussplot, L, LMN, M, MeanCurvature, N, SK, arclength, arclengthNumeric, curvature, dp, dupin1, dupin2, frenet, hlavnimatrix, l, m, n, normalize, nrm,...

Výpočet koeficientů první kvadratické formy sféry o poloměru R

>    S:=[R*cos(u)*cos(v),R*sin(u)*cos(v),R*sin(v)];

S := [R*cos(u)*cos(v), R*sin(u)*cos(v), R*sin(v)]

>    [E(S,u,v),F(S,u,v),G(S,u,v)];EFG(S,u,v);diskriminant:=D1(S,u,v);

[R^2*cos(v)^2, 0, R^2]

[R^2*cos(v)^2, 0, R^2]

diskriminant := R^4*cos(v)^2

>