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

你可以保留一个 list

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);