Here is the frame version of video saved as .mov. You can change step size of Table in this case 30. If you want fast movie, increase stepsize.

video = Table[
   Graphics3D[ {{GrayLevel[.7], Line[space[[1 ;; t]]]}, {Red, 
      Arrowheads[.07], Arrow[Tube[{{0, 0, 0}, space[[t]]}, 0.01]]}}, 
    Axes -> True, 
    AxesStyle -> Directive[FontSize -> 17, FontFamily -> "Helvetica"],
     AxesLabel -> {"x", "y", "z"}, BoxRatios -> {1, 1, 1}, 
    ImageSize -> 400, PlotRange -> 1, SphericalRegion -> True, 
    Boxed -> False, ViewPoint -> {0, -2, 1}], {t, 1, Length@data, 30}];

Export["test.mov", video]

Attachments:

In preparing a bug report to WR I exported the video to AVI again and now don't see the rendering artifacts. I know I did earlier, but I can't recall the parameters which produced them anymore.

Abir,

I asked this as a question to Tech Support a year ago and they gave me a better explanation of the issue. I found the old email and this may help you:

I understand Export function seems to ignore the duration option in Animate function.  In Mathematica, Animate[expr, {u, umin, umax}] function does not generate frames in Kernel. Instead, the Mathematica frontend will generate the frames but other functions, like Export[], cannot use these frames. When Export takes Animate as input, it will generate frames for 4 seconds and export it. If you need to specify the duration of the exported, please manually generate all the frames, like:

In[62]:= time = 10; fps = 24; da = 0.1; a0 = da;
In[63]:= frames = Table[Plot[Sin[a x], {x, -Pi, Pi}, PlotRange -> {-Pi, Pi}], {a, a0, 0.1*time*fps, da}];
In[64]:= Export["test.mov", frames, "FrameRate" -> fps]
Out[64]= "test.mov"

Meanwhile, I understand it will be better if function Export can read the "Duration" option when the input is Animate and works as you expected. Therefore, I filed a suggestion to the development team, raising this idea to them. Thank you again for bringing this question to us and help us improving Mathematica.

Hi Mikayel,

Thanks for replying. I am using the version 11.2 on Windows as I stated earlier. I have attached the video to the previous message also (named as My_vdo). The code is:

alvar = Flatten[ Import["C:\\Users\\Abir\\Documents\\code\\forplot.mat"]];
mx = Take[alvar, {1, Length[alvar]/4}];
my = Take[alvar, {Length[alvar]/4 + 1, Length[alvar]/2}];
mz = Take[alvar, {Length[alvar]/2 + 1, Length[alvar]/4 * 3}];
time = Take[alvar, {Length[alvar]/4* 3 + 1, Length[alvar]}];
mmm = Thread[{mx, my, mz}];
data = Thread[{time, mx, my, mz}];
space = data[[All, 2 ;; 4]];

Manipulate[

 Graphics3D[
  Dynamic@{{GrayLevel[.7], Line[space[[1 ;; t]]]}, {Red, Arrowheads[.07], Arrow[Tube[{{0, 0, 0}, space[[t]]}, 0.01]]}}, 
  Axes -> True, AxesStyle -> Directive[FontSize -> 17, FontFamily -> "Helvetica"], 
  AxesLabel -> {"x", "y", "z"}, BoxRatios -> {1, 1, 1}, 
  ImageSize -> 400, PlotRange -> 1, SphericalRegion -> True, 
  Boxed -> False, ViewPoint -> {0, -2, 1}],

 Row[{Control[{t, 1, Length[data], 1, Animator, ImageSize -> Small, 
     AnimationRunning -> True, AnimationRepetitions -> 1, 
     AnimationRate -> 500}], Spacer[10], 
   Dynamic["second"       data[[t, 1]]]}]
 ]

Export["test.mov", %]

This code takes a .mat file (forplot.mat) as input. The mat file is also attached. It has data for three axes and time.

I'll look forward to you or any other person's reply in this regard. I'll much appreciate that.

Best,

Abir

Attachments: