Rotationskörper - weitere Beispiele

> f:=x->1-x^2;

> plot3d([f(s)*sin(t),s,f(s)*cos(t)],t=0..2*Pi,s=-1..1,style=patch,axes=normal);

> f:=x->1/x;

> plot3d([f(s)*sin(t),s,f(s)*cos(t)],t=0..2*Pi,s=1..2,style=patch,axes=normal);

> f:=x->x^2;

> plot3d([f(s)*sin(t),s,f(s)*cos(t)],t=0..2*Pi,s=-1..1,style=patch,axes=normal);

Auch der Rotationskörper stückweise definierter Funktionen läßt sich beschreiben. Hier besteht der Funktiongraph aus einem Kreisbogensegment mit Tangente.

> f:=x->piecewise(-5<=x and x<=3,0.5*sqrt(25-x^2),3<x and x<=25/3,-(3/8)*x+25/8);

> plot3d([f(s)*sin(t),s,f(s)*cos(t)],t=0..2*Pi,s=-5..25/3,style=patch,axes=normal);