druhakvadrforma.mws

L, M, N - koeficienty druhé kvadratické formy plochy

D2      -diskriminant druhé kvadratické formy

Calling Sequence

LMN(X(u,v),u,v)

D2(X(u,v), u,v)

L(X(u,v), u,v), l([x(u,v), y(u,v), z(u,v)], u,v)

M(X(u,v), u,v), m([x(u,v), y(u,v), z(u,v)], u,v)
N(X(u,v), u,v), n([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);

[AsymptoticDir, D1, D2, E, EFG, F, G, GaussCurvature, L, LMN, M, MeanCurvature, N, PrincipalMatrix, arclength, arclengthNumeric, curvature, dp, dupin, frenet, l, m, n, normalize, nrm, revolve, screw, t...
[AsymptoticDir, D1, D2, E, EFG, F, G, GaussCurvature, L, LMN, M, MeanCurvature, N, PrincipalMatrix, arclength, arclengthNumeric, curvature, dp, dupin, frenet, l, m, n, normalize, nrm, revolve, screw, t...

Výpočet koeficientů druhé 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)]

>    [L(S,u,v),M(S,u,v),N(S,u,v)];LMN(S,u,v);diskriminant:=D2(S,u,v);

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

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

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

>   

See Also

plot3d , det , EFG , plots[display]