解决初等数学问题的动态演示,需要生成GIF动画;
在设置透明背景时, Mathematica的Export函数中的选项颇多,用法诡异,下面例子供参考
ClearAll["`*"];
xmin = -3;
xmax = 4;
ymin = -10;
ymax = 3;
line1 = Line[{{xmin, ymin}, {xmin, ymax}}];
line2 = Line[{{xmax, ymin}, {xmax,
ymax}}]; slides = 8; cmin = -10; cmax = 5/2; v =
Table[Manipulate[
Plot[{1/3 x^3 + x^2 + x - (2 x^2 + 4 x), c}, {x, xmin, xmax},
PlotStyle -> {Blue, Red}, AspectRatio -> GoldenRatio,
PlotRange -> {{xmin, xmax}, {ymin, ymax}},
Epilog -> {Directive[{Green, Green}], line1, line2},
Background -> None], {{c, k/slides, "Constant:"}, cmin,
cmax}], {k, cmin*slides, cmax*slides}]; v =
Join[v[[1 ;; Dimensions[v][[1]] - 1]], Reverse[v]];
Export["vTest.gif", v, "TransparentColor" -> White,
"TransitionEffect" -> Background]