Van egy általános {i, x, y} dimenziós mátrixom, és az összes “i” {x, y} mátrixot egy grafikonba szeretném ábrázolni . Hogyan tehetem meg úgy, hogy még mindig meg tudjam különböztetni az egyes “i” görbéket a másiktól (mármint különböző színű görbék létrehozását ábrázolással).

Ez egy példa egy általam írt kódra, de mivel a táblázat segítségével hurkot hoztam létre, nem tudtam megkülönböztetni a görbéket:

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}]] 

Az igazi mátrixaimnak nagyobb méretei vannak, ezért nem tudom használni a {}, {}, {}, ..] a különböző színek létrehozásához.

Hálás lennék, ha valaki tudna ebben segíteni.

Válasz

Itt van egy lehetőség:

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}]] 

írja ide a kép leírását

Egy másik lehetőség:

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}]] 

ugyanaz a kép

Megjegyzések

  • Köszönöm , Azt hiszem, hogy ' amit akarok
  • Hogyan kell bemutatni a különböző színekhez tartozó plotlegendákat, amelyek megfelelnek a i " s?
  • Olyan sth-t szeretnék, mint a PlotLegends – > {Subscript Ne, i]}, mindegyik i-nek megfelel
  • a cselekmény jelmagyarázatának hozzáadása {[ Phi] után, 1, 5} nem ' nem működik nekem
  • @DelaramNematollahi Frissített válasz a PlotLegends felvételére.

Vélemény, hozzászólás?

Az email címet nem tesszük közzé. A kötelező mezőket * karakterrel jelöltük