Enter each of the following procedures into MATHEMATICA, then interpret what the output shows. You can (and should) incorporate some of these display options into your MATHEMATICA Assignment #6.

Movie #1:

Table[Plot[Abs[Zeta[x+k*I]],{x,0,1}, PlotRange -> {0,3},
      Background -> Hue[.14], PlotLabel -> k"=k"]
,{k,0,35,.2}];

Movie #2:

Table[
    Plot[{Abs[Zeta[y*I]],Abs[Zeta[.5+y*I]]},{y,nn,nn+25},
        PlotStyle -> {RGBColor[0, .5, 0],RGBColor[1, .5, 0]},
        Background -> GrayLevel[0.827451], Axes -> {Automatic,False},
        PlotPoints -> 100, PlotRange -> {0,6}];
    ,{nn,0,100}];

Movie #3:

Table[Plot[Abs[Zeta[Cos[Theta]*x+Sin[Theta]*x*I]], {x,0,250},
      PlotRange -> {0,5}, Background -> Hue[.14],
      PlotLabel -> N[Theta*180/Pi" degrees"],
      Ticks -> {None,Automatic}], 
      {Theta,Pi/2-.4,Pi/2-.01,.01}];

A table of plots:

tt=Table[Plot[Abs[Zeta[k+y*I]],{y,0,35}, PlotRange -> {0,6},
        Background -> Hue[.14], PlotPoints -> 100, Frame -> True,
        FrameLabel -> {None,None,"y=|zeta(k+yi)|",k"=k"}],{k,-.2,1.2,.1}];
tt=Partition[tt,3];
Show[GraphicsArray[tt]];