-1

我创建了一个名为 Theta 的数组,它有 100 行和 400 列。每个条目都是一个数字。我想要做的是绘制的图表

0.01 与第 1 行中的每个数字

0.02 与第 2 行中的每个数字

...

1 与第 100 行中的每个数字

所以基本上每条线都是垂直绘制的。

我可以为每一行执行此操作,但我不知道如何同时为所有行执行此操作。并且手工完成所有 100 行肯定不是要走的路。

到目前为止,我的代码是:

data = Table[Theta[i][j], {i, 100}, {j, 400}];

Line1 = Table[data[[1, i]], {i, 1, 400}];

ListPlot[{MapIndexed[{0.01, #} &, Line1]]

编辑:好的,我终于做到了。

如果有人有兴趣,这里是:

data = Table[Theta][i][j], {i, 100}, {j, 400}];
final = {};
For[g = 1, g < 100, g++,
    Line[g] = MapIndexed[{0.01*g, #} &, Table[data[[g, i]], {i, 1, 400}]];
    final = Join[final, Line[g]];
]
ListPlot[final]
4

1 回答 1

0

这是一个示例答案,它使用了一组稍小的 10 行 40 列随机数,以 0.1、0.2、0.3、...、1 而不是 0.01 间隔绘制。

data = Table[x + RandomReal[5], {x, 1, 10}, {y, 1, 40}];

这是绘制的数据:

ListPlot[ MapThread[ Function[x, {#2, x}] /@ #1 &, {data, Range[0.01, 1, .1]}]]

数学图形

于 2012-10-19T08:30:52.483 回答