Qurak

Legend specific curves

Exemple 2 étapes, exécutées dans l'ordre dans une même session. Chaque étape a été exécutée sur le moteur et la sortie ci-dessous est ce qu'elle a produit.

Étape 1
d1 = Table[PDF[NormalDistribution[0, 1], x], {x, -3, 3, 0.1}];
d2 = Table[PDF[NormalDistribution[0, 0.5], x], {x, -3, 3, 0.1}];
dm = Mean /@ Transpose[{d1, d2}];
styles = Sequence@@{PlotStyle -> {Directive[AbsoluteThickness[5], Opacity[0.5], ColorData[45][1]], Directive[AbsoluteThickness[7], ColorData[45][4]], Directive[AbsoluteThickness[5], Opacity[0.5], ColorData[45][10]]}, ImageSize -> 400, PlotRange -> All, AxesStyle -> Gray, Ticks -> None};

Pas de sortie - cette étape prépare quelque chose pour la suivante.

Étape 2
ListLinePlot[{d1, Legended[dm, "mean"], d2}, DataRange -> {-3, 3}, Evaluate@styles, Filling -> {1 -> {3}}, FillingStyle -> Opacity[0.1], PlotLegends -> LineLegend[None, LegendMarkerSize -> {40, 10}, LabelStyle -> {20, Bold, GrayLevel[0.3]}]]
Sortie
-Graphics-

Fonctions utilisées

Recettes connexes

Toutes les recettes · Référence des fonctions · Utiliser ceci depuis un client MCP