f[t_] := Graphics3D[ Line[
                          { { Cos[t],Sin[t],0},
                            { Cos[t],Sin[t],2 Abs[Sin[t]]},
                            { Cos[t],-Sin[t],2 Abs[Sin[t]]},
                            { Cos[t],-Sin[t],0},
                            { Cos[t],Sin[t],0} 
                          }
                         ]
                   ];

a = Table[f[2 Pi i/50],{i,1,50}];
Show[a];
b = ParametricPlot3D[{Cos[t],Sin[t],0,RGBColor[1,0,0]},{t,0,2 Pi}];
c = ParametricPlot3D[{Cos[t],Sin[t],2 Abs[Sin[t]],RGBColor[0,1,0]},{t,0,2 Pi}];
d = Show[a,b,c,PlotLabel->"Page 438 Problem 56"]
Display["56.ps",d];
e = Show[d,ViewPoint->{3,0,0},PlotLabel->"ViewPoint[3,0,0]"];
f = Show[d,ViewPoint->{0,3,0},PlotLabel->"ViewPoint[0,3,0]"];
g = Show[d,ViewPoint->{0,0,3},PlotLabel->"ViewPoint[0,0,3]"];
Display["e.ps",e];
Display["f.ps",f];
Display["g.ps",g];