Torsen

Als Beispiel nehmen wir die Schraubtorse (Tangentenfläche einer Schraublinie, im plot ist die Schraublinie rot eingetragen!)

> TO:=[sin(t)+lambda*cos(t),cos(t)-sin(t)*lambda,t+lambda];

> pto:=plot3d(TO,t=-Pi..Pi,lambda=-3..3):

> sch:=spacecurve([sin(t),cos(t),t],t=-Pi..Pi,color=red,thickness=4):

>

> display3d({pto,sch});