plot - Maxima 中的多个绘图

Question

我正在用 Maxima 编写代码，我有三个图。我可以轻松地单独绘制这些图，但我无法弄清楚如何将它们全部放在一个图上，而不是在一个 for 循环中进行，如果不涉及太多细节，这对我的代码来说会很困难。

    for i:1 step 1 while i<=n-1 do(figgdown[i]:plot2d(
    [discrete,[xx[i], -xx[i]],[p[i],p[i]]]));
    for i:1 step 1 while i<=n-1 do(figgup[i]:plot2d(
    [discrete,[xx[i], -xx[i]],[q[i], q[i]]]));
    for i:1 step 1 while i<=n-1 do(figgmiddle[i]:plot2d(
    [discrete,[xx[i], -xx[i]],[pq[i], pq[i]]]));

有没有办法我可以在 Mathematica 中执行类似于 Show 函数的操作，其中图形一起出现？最好的，本

Answer 1

你可以保留一份清单

n: 10;
x: makelist(2*%pi*i/n, i, 0, n);

p: [];
y1: sin(x);
p: endcons([discrete, x, y1], p);

y2: cos(x);
p: endcons([discrete, x, y2], p);

/* display all plots in p */
plot2d(p);

Answer 2

狭缝维诺夫的答案很棒，但还有另一种选择。

还可以使用draw 中的多个绘图选项。然后你有一个带有几个子图的图像（情节），每个场景都有自己的轴和标题：

绘制（场景 1，场景 2，场景 3）

这是一个带有代码的示例