-1

100 行 400 列の Theta という名前の配列を作成しました。各エントリは番号です。私がやりたいのは、プロットするグラフです

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

これは、0.01 間隔ではなく 0.1、0.2、0.3、...、1 でプロットされた乱数の 40 列の 10 行のわずかに小さいセットを使用した回答の例です。

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

プロットされたデータは次のとおりです。

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

Mathematica グラフィックス

于 2012-10-19T08:30:52.483 に答える