foreach - 如何在 Maxima 中绘制多组参数的函数图

Question

我想针对不同的参数值多次绘制一个函数。

该函数取决于一组参数，比如 paramOne 和 paramTwo。我希望能够指定几组这些参数，并为每组绘制函数图形。

我不希望参数集的数量被硬编码，所以我想到了使用for ... in ... do 循环。这是我尝试过的方法，但它似乎不起作用:

parametersList: [
    [paramOne=valueOne, paramTwo=valueTwo],
    [paramOne=valueThree, paramTwo=valueFour],
    ]$
for parameterSet in parametersList do
    block(
       i++,
       functionList[i] : ev(function(x,paramOne,paramTwo),parameterSet),
       return functionList
       )
 wxplot2d(functionList,[x,0,1])$

有什么建议吗？

Answer 1

我从 Maxima 邮件列表得到了一个有效的答案，我想我应该把它贴在这里。 (感谢 Jaime 的回答!)

对于一个函数:

f(x,A,w) := A*sin(w*x)$
parametersList: [ [p1=1, p2=2], [p1=3, p2=4] ]$
functionList: makelist( ev(f(x,p1,p2), p), p, parametersList);
plot2d( functionList, [x, 0, 7]);

对于几个函数，每个函数都用一组不同的参数绘制:

f(x,A,w) := A*sin(w*x)$
g(x,A,w) := A*cos(w*x)$
parametersList: [ [p1=1, p2=2], [p1=3, p2=4] ]$
functionList: makelist( ev([f(x,p1,p2),g(x,p1,p2)], p), p, parametersList);
/* functionList looks like : [[f1,g1], [f2,g2],...]  */
/* Use flatten() to get : [f1,g1,f2,g2,...] */
plot2d( flatten(flist), [x, 0, 7]);