Tengo una matriz dimensional {i, x, y} general y quiero trazar todas las matrices «i» {x, y} en un gráfico . ¿Cómo puedo hacerlo de manera que pueda distinguir cada curva «i» de la otra (me refiero a crear curvas con diferentes colores usando la gráfica)?
Este es un ejemplo de un código que escribí, pero como usé la tabla para crear un bucle no pude «distinguir las curvas:
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}]] Mis matrices reales tienen dimensiones más altas, así que no puedo usar Plot [ {}, {}, {}, ..] para crear los diferentes colores.
Estaría agradecido si alguien pudiera ayudarme con esto.
Responder
Aquí hay una opción:
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}]] 
Otra opción:
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}]] misma imagen
Comentarios
- Gracias , Supongo que ' es lo que quiero
- Cómo se muestra las leyendas del gráfico para diferentes colores correspondientes a diferentes i " s?
- Quiero algo como PlotLegends – > {Subscript [ Ne, i]}, correspondiente a cada i
- agregando una leyenda de la trama después de {[ Phi], 1, 5} doesn ' no me funciona
- @DelaramNematollahi Respuesta actualizada para incluir PlotLegends.