在maxima中生成一个显式函数到一个gif文件

Question

干草伙伴我想制作GIF动画。有没有办法把它写得更短？

 draw(terminal   = animated_gif,
             delay      = 40,
             file_name  = "gifanim",
             pic_width  = 300,
             pic_height = 300,
             gr2d(explicit(x^0.1,x,0,1)),
             gr2d(explicit(x^0.2,x,0,1)),
             gr2d(explicit(x^0.3,x,0,1)),
             gr2d(explicit(x^0.4,x,0,1)),
             gr2d(explicit(x^0.5,x,0,1)),
             gr2d(explicit(x^0.6,x,0,1)),
             gr2d(explicit(x^0.7,x,0,1)),
             gr2d(explicit(x^0.8,x,0,1)),
             gr2d(explicit(x^0.9,x,0,1)),
             gr2d(explicit(x^1,x,0,1)) );

我想做这样的事......

draw(terminal   = animated_gif,
                 delay      = 40,
                 file_name  = "gifanim",
                 pic_width  = 300,
                 pic_height = 300,
 for i : 0.1 thru 1 do
    a: explicit(x^i,x,0,1);
                 gr2d(a[i])));

我只想把它缩短。亲切的问候。

Answer 1

我的建议是创建gr2d(whatever)个对象列表，将其附加到绘图选项列表中，然后将draw应用于该列表。例如。类似的东西：

makelist (gr2d (explicit (x^(i/10), x, 0, 1)), i, 1, 10);
append ([terminal   = animated_gif,
             delay      = 40,
             file_name  = "gifanim",
             pic_width  = 300,
             pic_height = 300], %);
draw (%);

可以将所有内容放入宏中 - 如果您需要帮助，请告诉我。

Answer 2

如果您正在使用wxMaxima，则可以使用with_slider_draw创建动画图：

with_slider_draw(
    d,
    makelist(i,i,0.1,1,0.1),
    explicit(x^d, x, 0, 1)
)$

现在右键单击绘图并选择＆＃34; Save Animation＆＃34;。这可以保存为动画GIF。