Mehr Unterstützung für die Legended-Option 

Umhüllen Sie eine Funktion mit Legended, damit sich diese von den Approximationen durch die Taylor-Reihen abhebt.

In[1]:=

X curves = Append[ Table[Normal@Series[Sin[x], {x, 0, n}], {n, 1, 25, 2}], Legended[Style[Sin[x], Red], Placed[Sin[x], Below]]];

In[2]:=

X Plot[curves, {x, 0, 10}, PlotStyle -> GrayLevel[0.67], PlotRange -> {-2, 2}, ImageSize -> 300]

Out[2]=