解决初等数学问题的动态演示,需要生成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]