1945.sagews

A Maxima "vect" csomagja. (A keresztszorzás miatt hívtuk be.)

load("vect");

"/usr/local/sage/local/share/maxima/5.20.1/share/vector/vect.mac"

Adjuk meg a felületet!

r(u,v):=[u,v,u*v]

r(u,v):=[u,v,u*v]

A paramétervonal érintők:

ru:diff(r(u,v),u);
rv:diff(r(u,v),v);

[1,0,v] [0,1,u]

A paramétervonal érintők keresztszorzata:

n:express(ru~rv);

[-v,-u,1]

A felületi normális, mint a paraméterek függvénye:

n(a,b):=subst([u=a,v=b],n);

n(a,b):=subst([u=a,v=b],n)

Végül kiszámítjuk a felületi normálist a konkrét paraméterértékek mellett:

n(-1,2);

[-2,1,1]