Needs["PlotLegends`"] f[x_, m_, ss_] := 1/Sqrt[2Pi ss] Exp[-(x-m)^2/(2ss)]; Plot[ {f[x, 4-1, 1], f[x, 4-0.5, 0.5], f[x, 4-0.2, 0.2], f[x, 4-0.1, 0.1], f[x, 4-0.0001, 0.0001]}, {x, 1, 6}, PlotRange -> {All, {0, 1.5}}, PlotStyle -> Thick, PlotLegend -> {"\!\(\*SubscriptBox[\"T\", \"1\"]\)", "\!\(\*SubscriptBox[\"T\", \"2\"]\)", "\!\(\*SubscriptBox[\"T\", \"3\"]\)", "...", "\!\(\*SubscriptBox[\"T\", \"\[Infinity]\"]\)" }, LegendPosition -> {-0.8, 0}, LegendSize -> 0.6, LegendShadow -> {0.02, -0.02} ] Export["c:/consistency.svg",%] 

Dieses Werk wurde von seinem Urheber Stpasha als gemeinfrei veröffentlicht. Dies gilt weltweit. In manchen Staaten könnte dies rechtlich nicht möglich sein. Sofern dies der Fall ist: Stpasha gewährt jedem das bedingungslose Recht, dieses Werk für jedweden Zweck zu nutzen, es sei denn, Bedingungen sind gesetzlich erforderlich.

Übertragen aus en.wikipedia nach Commons mithilfe des For the Common Good.