S3.nb

$f[t_] := 2 + Sin[t] ; g[t_] := t a := 0 ; b := 2 Pi ; c := 0 ; d := 2 Pi ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}]$

[Graphics:HTMLFiles/index_3.gif]

$f[t_] := 2 + Sin[t] ; g[t_] := 2 t a := 0 ; b := 1.85 Pi ; c := 0 ; d := 2 Pi ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}]$

[Graphics:HTMLFiles/index_7.gif]

$f[t_] := 2 + Sin[t] ; g[t_] := 0.1 t^2 a := 0 ; b := 2.85 Pi ; c := 0 ; d := 2 Pi ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}]$

[Graphics:HTMLFiles/index_11.gif]

$f[t_] := 0.2 (1 - t + 3 t^2 - 2 t^4) ; g[t_] := t a := -1.44 ; b := 1.19 ; c := 0 ; d := 2 Pi ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}]$

[Graphics:HTMLFiles/index_15.gif]

[Graphics:HTMLFiles/index_20.gif]

Converted by Mathematica (May 15, 2004)