- #1
musicgirl
- 12
- 0
I've constructed a visualisation of the solution of an equation over time as a sequence of MatrixPlots and I'd like to export this as a movie for use in a presentation, but whatever file extension I try, I either get an error message
(e.g. "The Export element \!\(\"GraphicsList\"\) contains a malformed data \
structure and could not be exported to \!\(\"AVI\"\) format.")
or I get an image of the word "Null".
I've constructed an easier example to demonstrate:
s = NDSolve[{x'[t] == -y[t] - x[t]^2, y'[t] == 2 x[t] - y[t]^3,
x[0] == y[0] == 1}, {x, y}, {t, 30}]
Movie := Module[{cc, cmax, list, framerate, nn, minscale, maxscale},
nn = 100;
minscale = -1;
maxscale = 2;
framerate = 15;
cmax = 2 framerate;
list = {};
Monitor[
For[cc = 1, cc <= cmax, cc = cc + 0.5,
Pause[1/framerate];
list = Table[First[Evaluate[y[cc] /. s]], {i, n}];];,
MatrixPlot[{list}, Frame -> None, ColorFunctionScaling -> False,
ColorFunction -> (Blend[{{minscale, Black}, {maxscale,
Green}}, #] &), AspectRatio -> .1, ImageSize -> 1000]]]
Then I've been trying variants on Export["example.avi",Movie]
Thanks for your help
(e.g. "The Export element \!\(\"GraphicsList\"\) contains a malformed data \
structure and could not be exported to \!\(\"AVI\"\) format.")
or I get an image of the word "Null".
I've constructed an easier example to demonstrate:
s = NDSolve[{x'[t] == -y[t] - x[t]^2, y'[t] == 2 x[t] - y[t]^3,
x[0] == y[0] == 1}, {x, y}, {t, 30}]
Movie := Module[{cc, cmax, list, framerate, nn, minscale, maxscale},
nn = 100;
minscale = -1;
maxscale = 2;
framerate = 15;
cmax = 2 framerate;
list = {};
Monitor[
For[cc = 1, cc <= cmax, cc = cc + 0.5,
Pause[1/framerate];
list = Table[First[Evaluate[y[cc] /. s]], {i, n}];];,
MatrixPlot[{list}, Frame -> None, ColorFunctionScaling -> False,
ColorFunction -> (Blend[{{minscale, Black}, {maxscale,
Green}}, #] &), AspectRatio -> .1, ImageSize -> 1000]]]
Then I've been trying variants on Export["example.avi",Movie]
Thanks for your help