0
$\begingroup$
ai = Manipulate[
  Plot[A Sin[\[Omega] x + \[Phi]] + B, {x, -10, 10}, 
   PlotLabel -> 
    "f(x)=" <> ToString[A] <> "sin(" <> ToString[\[Omega]] <> "x+" <> 
     ToString[\[Phi]] <> ")+" <> ToString[B], PlotRange -> {-6, 6}, 
   Axes -> True, AxesStyle -> Arrowheads[{0.0, 0.04}], 
   AxesLabel -> {x, y}, ImageSize -> 700], {{A, 1}, -2, 5, 
   Appearance -> "Labeled"}, {{\[Omega], 1}, -3, 8, 
   Appearance -> "Labeled"}, {{\[Phi], 0}, -\[Pi], 2 \[Pi], 
   Appearance -> "Labeled"}, {{B, 0}, -1, 5, 
   Appearance -> "Labeled"}]
Export["test.mp4", ai, "ControlAppearance" -> None] // SystemOpen

enter image description here

How to export and save the animated graphics generated by the above code in the form of video files to the specified folder location?

$\endgroup$
2
  • 1
    $\begingroup$ hello. There are few question/answers on this forum showing how to save Manipulate as animation and also to mp4. check how-to-save-animation-in-mp4-format-instead-of-avi and check manipulate-to-gif $\endgroup$
    – Nasser
    Commented Jan 3 at 7:35
  • $\begingroup$ Export[SystemDialogInput["FileSave", "test1.mp4"], ai, "ControlAppearance" -> None, "FrameRate" -> 2, "AnimationDuration" -> 50] $\endgroup$
    – csn899
    Commented Jan 4 at 0:42

0

Browse other questions tagged or ask your own question.