x[a_,b_,t_]:=(a+b)*Cos[t]-b*Cos[(a+b)/b*t]
y[a_,b_,t_]:=(a+b)*Sin[t]-b*Sin[(a+b)/b*t]
z[a_,b_,t_]:=Sqrt[b^2-((b+a)-Sqrt[x[a,b,t]^2+y[a,b,t]^2])^2]*If[EvenQ[Floor[(a t)/(b Pi)]],1,-1]
e=ParametricPlot[{x[1/2,17/14,t],y[1/2,17/14,t]},{t,0,34Pi}]

ParametricPlot3D[{x[1/2,17/14,t],y[1/2,17/14,t],z[1/2,17/14,t]},{t,0,34Pi}]

Clear[x,y,z]

Plot3D[Sin[(x^2)*y],{x,0,Pi},{y,0,Pi}]

ParametricPlot3D[{u*Sin[t],u*Cos[t],t/3},{t,0,12},{u,-1,1},Ticks->None]

ParametricPlot3D[{4 Sin[t],2 Sin[2 t] Sin[u],2 Sin[2 t] Cos[u]},{t,-Pi/2,Pi/2},{u,0,2 Pi},Ticks->None]

Show[%,%%,%%%]