3D parametric curve

t=-50*%pi:0.1:50*%pi;
x=t.*sin(t);y=t.*cos(t);z=t.*abs(t)/(50*%pi);
param3d(x,y,z,45,60);
title='parametric curves in R3 (t.sin(t),t.cos(t),t.|t|/50.%pi)';
xtitle(title,' ',' ');