> x:=(1+cos(t))*cos(t)*t; > y:=(1-cos(t))*sin(t)*t; > z:=48*Pi-t; x := (1 + cos(t)) cos(t) t y := (1 - cos(t)) sin(t) t z := 48 Pi - t > with(plots): > spacecurve([x,y,z],t=0..48*Pi,numpoints=1000, > axes='NORMAL');
> x:=(1+cos(t))*cos(t)*t; > y:=(1-cos(t))*sin(t)*t; > z:=(48*Pi-t)*sin(t); x := (1 + cos(t)) cos(t) t y := (1 - cos(t)) sin(t) t z := (48 Pi - t) sin(t) > with(plots): > spacecurve([x,y,z],t=0..48*Pi,numpoints=1000, > axes='NORMAL');