I have plotted
Clear[Expr1, Expr2]
Expr1 = x*(1/Sin[Pi x/2])^α
(* x Csc[(π x)/2]^α *)
Expr2 = Normal[Series[Expr1, {x, 0, 5}]]
(* (1/
x)^α ((2/π)^α x +
1/3 2^(-3 + α) π^(2 - α) x^3 α +
1/45 2^(-7 + α) π^(4 - α)
x^5 α (2 + 5 α)) *)
Plot[
Table[{Expr1, Expr2}, {α, -1, 1, 0.25}], {x, 0, 1},
PlotLegends -> Table[α, {α, -1, 1, 0.25}]]
but all plots appeared in one color and with one legend key
how to fix?
Evaluated ->True
Option $\endgroup$ – Dr. belisarius Apr 22 '15 at 15:54