0
$\begingroup$

How can I export this code:

Manipulate[Plot[a*Cos[2 Pi*x]*Exp[-(10^2)/x^2], {x, 0, 10}], {a, 1, 10}]

As a .gif that walks trough the values for $a$?

$\endgroup$
0
0
$\begingroup$

Do something like this

pe = Flatten@
       Table[Manipulate[
         Plot[a*Cos[2 Pi*x]*Exp[-(10^2)/x^2], {x, 0, 10}], {{a, m1}, 1, 
          10}], {m1, 1, 10}];

Export["C:/tcdata/file.gif", pe]
$\endgroup$
3
  • $\begingroup$ And how can I export it to a .avi video format with high quality? $\endgroup$ – Looper Apr 17 '18 at 13:11
  • $\begingroup$ @Looper Export["C:/tcdata/file.avi", pe] $\endgroup$ – zhk Apr 17 '18 at 13:12
  • $\begingroup$ @Looper type "avi" + hit F1. And so on. $\endgroup$ – Kuba Apr 17 '18 at 13:21

Not the answer you're looking for? Browse other questions tagged or ask your own question.