一般的な{i、x、y}次元の行列があり、すべての “i” {x、y}行列を1つのグラフにプロットしたい。それぞれの「i」番目の曲線を他の曲線と区別できるようにするにはどうすればよいですか(つまり、プロットを使用して異なる色の曲線を作成することを意味します)。
これは私が書いたコードの例です。しかし、テーブルを使用してループを作成したため、曲線を区別できませんでした。
a = Table[Random[], {i, 1, 4}, {x, 1, 6}, {y, 1, 5}]; Show[Table[ aFxn = ListInterpolation[(Chop[a[[i + 1]]] - Chop[a[[i]]])]; Table[aFxn[\[Theta], \[Phi]], {\[Theta], 1, 6}, {\[Phi], 1, 5}]; Plot[Abs[aFxn[3, \[Phi]]], {\[Phi], 1, 5}, PlotLegends -> {Subscript[Ne, i]}, PlotRange -> All, AxesLabel -> {Ne, spinupcoefficient}], {i, 1, 3}]]
実際の行列の次元が高いため、Plot [を使用できません。 {}、{}、{}、..]さまざまな色を作成します。
誰かがこれを手伝ってくれたらありがたいです。
回答
1つのオプションがあります:
curves = Table[ aFxn = ListInterpolation[(Chop[a[[i + 1]]] - Chop[a[[i]]])]; Abs[aFxn[3, ϕ]] , {i, 1, 3}]; Plot[curves, {ϕ, 1, 5}, PlotLegends -> Table[Subscript[Ne, i], {i, 1, 3}]]
別のオプション:
curve[i_] := ListInterpolation[(Chop[a[[i + 1]]] - Chop[a[[i]]])] Plot[Evaluate@Table[Abs[curve[i][3, ϕ]], {i, 1, 3}], {ϕ, 1, 5}, PlotLegends -> Table[Subscript[Ne, i], {i, 1, 3}]]
同じ画像
コメント
- ありがとうございます、'が欲しいものだと思います
- さまざまな i " s?
- PlotLegendsのようなsthが欲しい-> {添え字[ Ne、i]}、各iに対応
- {[ Phi]、1、5}の後にプロットの凡例を追加する'私にはうまくいきません
- @DelaramNematollahiPlotLegendsを含むように回答を更新しました。