Assignment 26

5

ParametricPlot3D[{(u^2) + 1,  (v^3) + 1,  u  +  v}, {u, -1, 
        1}, {v, -1, 1}]

9

ParametricPlot3D[{Cos[u] Sin[2  v],  Sin[u] Sin[2  v], Sin[v]}, {u, 
        0, π}, {v, 0, 2  π}, PlotPoints -> 50]

11

ParametricPlot3D[{Cos[v], Sin[v], u}, {u, -1, 1}, {v, 0, 
        2  π}]

12

ParametricPlot3D[{u Cos[v], u Sin[v], u}, {u, -1, 1}, {v, 0, 
        2  π}]

13

ParametricPlot3D[{u Cos[v], u Sin[v], v}, {u, -1, 1}, {v, 0, 
        2  π}]

14

ParametricPlot3D[{(u^3), u Sin[v], u Cos[v]}, {u, -1, 1}, {v, 0, 
        2  π}]

15

ParametricPlot3D[{(u  -  Sin[u]) Cos[v], (1 - Cos[u]) Sin[v], 
        u}, {u, 0, 2  π}, {v, 0, 2  π}]

16

ParametricPlot3D[{(1 - u) (3 + Cos[v]) 
          Cos[4  π u], (1 - u) (3 + Cos[v]) Sin[4  π u],  
        3  u  +  (1 - u) Sin[v]}, {u, 0, 1}, {v, 0, 2  π},  
      PlotPoints -> 30]

26

ParametricPlot3D[{u,  (E^(-u)) Cos[t],  (E^(-u)) 
          Sin[t]},  {u, 0, 3}, {t, 0, 2  π}]

28

ParametricPlot3D[{2  Cos[t]  +  r Cos[t/2],  
        2  Sin[t]  +  r Cos[t/2],  r Sin[t/2]}, {r, - .5,  .5}, {t, 
        0, 2  π}, ViewPoint -> {2.632,  1.598,  -1.403}]

ParametricPlot3D[{2  Cos[t]  +  r Cos[t/2],  
        2  Sin[t]  +  r Cos[t/2],  r Sin[t/2]}, {r, - .5,  .5}, {t, 
        0, 2  π}, ViewPoint -> {-1.002,  2.404,  2.160}]

ParametricPlot3D[{2  Cos[t]  +  r Cos[t/2],  
        2  Sin[t]  +  r Cos[t/2],  r Sin[t/2]}, {r, - .5,  .5}, {t, 
        0, 2  π}, ViewPoint -> {3.288,  0.084,  0.796}]