Minulla on yleinen {i, x, y} -matriisi ja haluan piirtää kaikki ”i” {x, y} -matriisit yhteen kaavioon . Kuinka voin tehdä sen tavalla, että voin silti erottaa kukin ”i” käyrän toisesta (tarkoitan eri väreillä varustettujen käyrien luomista juovan avulla).
Tämä on esimerkki kirjoittamastani koodista, mutta koska käytin taulukkoa silmukan luomiseen, en pystynyt erottamaan käyriä:
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}]] Oikealla matriisilla on suuremmat mitat, joten en voi käyttää Plot [ {}, {}, {}, ..] luoda eri värit.
Olisin kiitollinen, jos joku voisi auttaa minua tässä.
Vastaa
Tässä on yksi vaihtoehto:
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}]] 
Toinen vaihtoehto:
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}]] sama kuva
kommentit
- kiitos , Luulen, että ' on mitä haluan
- Kuinka teen, näytän juonittelut eri väreille, jotka vastaavat erilaisia i " s?
- Haluan sellaista kuin PlotLegends – > {Tilaus [ Ne, i]}, joka vastaa kutakin i
- lisäämällä juoni-selitteen {[ Phi] jälkeen, 1, 5} ei ' ei toimi minulle
- @DelaramNematollahi Päivitetty vastaus sisällyttämään PlotLegends.