Why these functions have the same color?

Asked Mar 12 '17 at 16:50

Active Mar 12 '17 at 16:50

Viewed 29 times

I have this code

f[x_, n_] := Sum[ComplexExpand@Abs[Sin[x + k]], {k, 0, n}]
Plot[Table[f[x, n], {n, 0, 5}], {x, -Pi, Pi}]

but the graph is all of the same color instead of color differently each function. How I can change this? Thank you.

asked Mar 12 '17 at 16:50

Masacroso

3

Try this Plot[Evaluate@Table[f[x, n], {n, 0, 5}], {x, -Pi, Pi}] – zhk Mar 12 '17 at 16:54
@Maple this worked totally!!! What kind of magic is this? – Masacroso Mar 12 '17 at 17:04
1

http://mathematica.stackexchange.com/questions/1731/plot-draws-list-of-curves-in-same-color-when-not-using-evaluate – zhk Mar 12 '17 at 17:07

0 Answers0