Question

Mathematica 图形输出

我用循环函数画了很多直线,并且起了名字,比如
a[1]=Plot[5 x +3, {x, 3, 4};
a[2]=Plot[4 x +5, {x, 2, 4};
...
a[1000]=Plot[3 x +3, {x, 2, 5};
然后我想在一幅图上显示所有直线该怎么办?
图片很少时很容易办到的.比如,三幅图时,Show[a[1],a[2],a[3]]就可以了,但是多了我不可能一个一个加啊.

Answer 1

可以用Show[Table[a[i],{i,1,1000}]]

下面附上一张例图：

Answer 2

正是我想要的,谢谢了.
我先加分到200,然后再送你以示感谢.
后面的不用再跟帖了.