Ho una matrice dimensionale {i, x, y} generale e desidero tracciare tutte le matrici “i” {x, y} in un grafico . Come posso farlo in modo da poter ancora distinguere ogni curva “i” dallaltra (intendo creare curve con colori diversi usando la trama).
Questo è un esempio di un codice che ho scritto, ma poiché ho usato table per creare un loop non sono riuscito a distinguere le curve:
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}]] Le mie matrici reali hanno dimensioni maggiori, quindi non posso usare Plot [ {}, {}, {}, ..] per creare i diversi colori.
Sarei grato se qualcuno potesse aiutarmi in questo.
Risposta
Ecco unopzione:
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}]] 
Unaltra opzione:
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}]] stessa immagine
Commenti
- Grazie , Immagino che ' sia quello che voglio
- Come faccio a mostrare le legende della trama per colori diversi corrispondenti a i " s?
- Voglio cose come PlotLegends – > {Subscript [ Ne, i]}, corrispondente a ciascuna i
- aggiunta della legenda della trama dopo {[ Phi], 1, 5} non ' t funziona per me
- @DelaramNematollahi Risposta aggiornata per includere PlotLegends.