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

entrez la description de limage ici

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.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *