Deutsch: zugeordnete Laguerre-Polynome
erstellt mit Mathematica 8:
Needs["PlotLegends`"]
Export["Laguerre2.svg",
Plot[{LaguerreL[0, 0, x], LaguerreL[1, 0, x], LaguerreL[1, 1, x],
LaguerreL[2, 0, x], LaguerreL[2, 1, x], LaguerreL[2, 2, x],
LaguerreL[3, 0, x], LaguerreL[3, 1, x], LaguerreL[3, 2, x],
LaguerreL[3, 3, x]}, {x, -2, 10}, PlotRange -> {-5, 10},
PlotStyle -> {{Orange, Thick}, {Thick, Blue}, {Blue, Dashed,
Thick}, {Red, Thick}, {Red, Dashed, Thick}, {Red, Dotted,
Thick}, {Darker[Green], Thick}, {Darker[Green], Dashed,
Thick}, {Darker[Green], Dotted, Thick}, {Darker[Green],
DotDashed, Thick}}, GridLines -> Automatic,
GridLinesStyle -> Dashed, Frame -> True,
FrameLabel -> {x,
Row[{Subsuperscript[L, n, k], Style["(x)", Italic]}],
Style["zugeordnete Laguerre-Polynome", "Section"]},
PlotLegend -> {Style["n=0 k=0", FontSize -> 12,
FontFamily -> Arial],
Style["n=1 k=0", FontSize -> 12, FontFamily -> Arial],
Style["n=1 k=1", FontSize -> 12, FontFamily -> Arial],
Style["n=2 k=0", FontSize -> 12, FontFamily -> Arial],
Style["n=2 k=1", FontSize -> 12, FontFamily -> Arial],
Style["n=2 k=2", FontSize -> 12, FontFamily -> Arial],
Style["n=3 k=0", FontSize -> 12, FontFamily -> Arial],
Style["n=3 k=1", FontSize -> 12, FontFamily -> Arial],
Style["n=3 k=2", FontSize -> 12, FontFamily -> Arial],
Style["n=3 k=3", FontSize -> 12, FontFamily -> Arial]},
LegendPosition -> {-0.2, 0.1}, LegendShadow -> None,
LegendSize -> {0.25, 0.4}], ImageSize -> 800,
CharacterEncoding -> "ASCII"]
und nachbearbeitet mit Inkscape (falsch dargestellt Zeichen korrigieren, Leinwandgröße anpassn)