Schiebflächen

Wenn bei einer Schiebung eine Kurve mitgenommen wird dann entsteht eine Schiebfläche: (Diese Flächen entstehen in CAD-Systemen durch den Befehl extrude)

> SF:=evalm(Schiebmatrix&*vector([1,5*cos(u)^3,3*sin(u)^2,0]));

SF := vector([1, r*t+5*cos(u)^3, q*t+3*sin(u)^2, p*...

> SF1:=subs(r=2,p=-1,q=2,op(SF));

SF1 := vector([1, 2*t+5*cos(u)^3, 2*t+3*sin(u)^2, -...

> plot3d([SF1[2],SF1[3],SF1[4]],u=0..Pi,t=-1..1,axes=FRAMED,numpoints=2000,orientation=[13,43]);

[Maple Plot]

>

> KSF:=evalm(KSchiebmatrix&*vector([1,2*cos(u)+5,sin(u)+5,0]));

KSF := vector([1, t+2*cos(u)+5, 8+t+sin(u), 1/2*t^2...

> plot3d([KSF[2],KSF[3],KSF[4]],u=0..2*Pi,t=-1..1,axes=FRAMED,numpoints=2000,orientation=[13,43]);

[Maple Plot]

>

>