The Electric Field is orange, the Magnetic field is blue, and the light is propagating upward, in the z-direction. (E x B is the direction of propagation.)

ParametricPlot3D[{{a Sin[z], 0, z}, {0,a Sin[z], z}}, {a, 0, 1}, {z, 0, 4 Pi}, Mesh->{0, 31},PlotRange ->{{-4,4}, {-4,4}, {0, 4 Pi}}, AxesLabel ->{x,y,z}, ViewPoint -> {2.5, 4, 2.2},PreserveImageOptions->False, Lighting -> {"Ambient", White}]

ParametricPlot3D[{{a Sin[z], 0, z}, {0,a Sin[z], z}}, {a, 0, 1}, {z, 0,2 Pi}, Mesh->{0, 15},PlotRange ->{{-2,2}, {-2,2}, {0, 2 Pi}}, AxesLabel ->{x,y,z}, ViewPoint -> {2.5, 4, 2.2},PreserveImageOptions->False, Lighting -> {"Ambient", White}]

Now make a list of frames, to make an animation.

frames = {};
nFrames =80;
dt = 2Pi/nFrames;  (* time step between frames *)
Do[
frame = ParametricPlot3D[{{a Sin[z-t], 0, z}, {0,a Sin[z-t], z}}, {a, 0, 1}, {z, 0,2 Pi}, Mesh->{0, 15},PlotRange ->{{-2,2}, {-2,2}, {0,2 Pi}}, AxesLabel ->{x,y,z}, ViewPoint -> {2.5, 4, 2.2},PreserveImageOptions->False, Lighting -> {"Ambient", White}];
AppendTo[frames, frame],
{t, 0, 2 Pi -dt , dt}]

To see the animation, take out the comment lines (* and *) and run the next cell

(*
ListAnimate[frames]
*)

This next cell makes an animated gif with my iMac at home.  You can change the file name by selecting “Insert” - “File Path ...” with the drop-down menu.

Export["/Users/jimswift/Dropbox/classes/MAT 661 2018.7/linearlyPolarizedLight.gif", frames, "AnimationRepetitions" -> Infinity(*,"DisplayDurations" -> 1*)]

This next cell makes an animated gif with my laptop.

Export["/Users/jimswift/Dropbox/classes/MAT 661 2018.7/linearlyPolarizedLight.gif", frames, "AnimationRepetitions" -> Infinity(*,"DisplayDurations" -> 1*)]

The next cell makes an animated gif on my office desktop Windows machine

Export["C:\\Users\\jws8\\Dropbox\\classes\\MAT 661 2020.7\\linearlyPolarizedLight.gif", frames, "AnimationRepetitions" -> Infinity(*,"DisplayDurations" -> 1*)]