<< Graphics`PlotField3D`

      
e = -1.602*10^-19;
m = 9.109*10^-31;
pi = N[Pi];
v0 = 10^6;
B = 0.01;
a = pi/3;
e0 = 
        8.855*10^-12;

  
r = m*v0*Sin[a]/(e*B);
w = e*B/m;
elec[t_] := {v0*Cos[a]*t, r*Sin[w*t], 
          r*Cos[w*t]};
Bv = {0.01, 0, 
          0};



stripes[f_] := 
        If[Mod[f, 1] > 0.5, RGBColor[0, 0, 0], 
          RGBColor[0, 0, 
            0]];

  
eee = {RGBColor[1, 1, 0], 
          PointSize[0.005]};
el = {RGBColor[1, 1, 0], PointSize[0.02], 
          Point[elec[
              t]]};



gifs = {};
Do[
        AppendTo[eee, 
          Point[elec[t]]]; 

gif = 
          Show[
{
                                   

  PlotGradientField3D[
                                            e/  (4*pi*e0*((v0*Cos[a]*t - x)^2 + (r*Sin[w*t] - 
                                  y)^2 + (r*Cos[w*t] - 
                                  z)^2)^2), 
                     {x, 0, 0.5*10^-2}, {y, -1.2*r, 
                  1.2*r},  {z, -1.2*r, 1.2*r}, 
                BoxRatios -> {4, 2, 
                    2}, 
PlotRange -> {{0, 
                      0.5*10^-2}, {-1.2*r, 1.2*r}, {-1.2*r, 
                      1.2*r}}, 
Background -> 
                  GrayLevel[0], 
VectorHeads -> 
                  True, 
ScaleFactor -> -1/
                    1500, 
PlotPoints -> 
                  5
                                             ] , 
              Graphics3D[{el, 
                  eee}]}, 
                                
BoxRatios -> {4, 2, 
                2}, 
PlotRange -> {{0, 
                  0.5*10^-2}, {-1.2*r, 1.2*r}, {-1.2*r, 
                  1.2*r}}, 
Background -> 
              GrayLevel[0]]; 
AppendTo[gifs, 
          gif];
, {t, 0, 10^-8, 
          10^-10}];

Directory[]

SetDirectory["z:\kawa"]

Export["rasen_denkai.gif", gifs]