Regelschraubflächen (bewegte Kurve ist eine Gerade)

Fall 1: Gerade schneidet Schraubachse orthogonal: Wendelfläche

> We:=evalm(A&*vector([1,u,0,0]));

> We1:=subs(p=1,op(We));

> plot3d([We1[2],We1[3],We1[4]],u=0..3,t=0..2*Pi,axes=FRAMED,orientation=[30,60]);

Fall 2: Gerade kreuzt Schraubachse orthogonal (gerade geschlossene Regelschraubfläche)

> Go:=evalm(A&*vector([1,u,1,0]));

> Go1:=subs(p=1,op(Go));

> plot3d([Go1[2],Go1[3],Go1[4]],u=0..3,t=0..2*Pi,axes=FRAMED,orientation=[30,60]);

Fall 3: Gerade schneidet Schraubachse (Schnittwinkel nicht 90, schiefe geschlossene Regelschraubfläche)

> Sg:=evalm(A&*vector([1,u,0,2*u]));

> Sg1:=subs(p=2,op(Sg));

> plot3d([Sg1[2],Sg1[3],Sg1[4]],u=-4..4,t=0..2*Pi,axes=FRAMED,numpoints=2000,orientation=[10,70]);

Fall 4: Gerade kreuzt Achse (nicht 90 Grad, schiefe, offene Regelschraubfläche)

> So:=evalm(A&*vector([1,u,3,2*u]));

> So1:=subs(p=2,op(So));

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