Jai une matrice dimensionnelle générale {i, x, y}, et je souhaite tracer toutes les matrices « i » {x, y} dans un graphique . Comment puis-je le faire de manière à pouvoir encore distinguer chaque « i » ème courbe de lautre (je veux dire créer des courbes avec des couleurs différentes en utilisant plot).
Voici un exemple de code que jai écrit, mais comme jai utilisé une table pour créer une boucle, je ne pouvais pas distinguer les courbes:
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}]]
Mes vraies matrices ont des dimensions plus élevées, donc je ne peux pas utiliser Plot [ {}, {}, {}, ..] pour créer les différentes couleurs.
Je serais reconnaissant si quelquun pouvait maider avec ça.
Réponse
Voici une option:
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}]]
Autre option:
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}]]
même image
Commentaires
- Merci , Je suppose que ' est ce que je veux
- Comment faire Je montre les intrigues pour différentes couleurs correspondant à différentes i " s?
- Je veux qc comme PlotLegends – > {Indice [ Ne, i]}, correspondant à chaque i
- ajout dune légende de tracé après {[ Phi], 1, 5} doesn ' t fonctionne pour moi
- @DelaramNematollahi Réponse mise à jour pour inclure PlotLegends.