Untitled (1)

>    a:=2;b:=5;c:=sqrt(a^2+b^2);t:=3*s;

>   

a := 2

b := 5

c := 29^(1/2)

t := 3*s

>    with(plots); 

Warning, the name changecoords has been redefined

[Interactive, animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, cylinderplot, densityplot, d...
[Interactive, animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, cylinderplot, densityplot, d...
[Interactive, animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, cylinderplot, densityplot, d...
[Interactive, animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, cylinderplot, densityplot, d...
[Interactive, animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, cylinderplot, densityplot, d...

>    r:=c+a*cos(t);

r := 29^(1/2)+2*cos(3*s)

>    x:=r*cos(s);y:=r*sin(s);z:=a*sin(t);

x := (29^(1/2)+2*cos(3*s))*cos(s)

y := (29^(1/2)+2*cos(3*s))*sin(s)

z := 2*sin(3*s)

>    tubeplot([x,y,z],s=0..2*Pi,radius=0.2,scaling=constrained,grid=[50,50]);

[Maple Plot]

>