Re: Plot Table of functions does not distinguish colors

*To*: mathgroup at smc.vnet.net*Subject*: [mg102686] Re: [mg102676] Plot Table of functions does not distinguish colors*From*: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>*Date*: Wed, 19 Aug 2009 07:00:53 -0400 (EDT)*References*: <200908181009.GAA17776@smc.vnet.net>

Hi, Table has the attribute HoldAll which means that it doesn't see from the start a list of functions. When it finally evaluates the Table to a List it is too late to paint it differently. The trick is to evaluate the Table manually: Plot[Evaluate@Table[Sin[n x], {n, 1, 3, 1}], {x, 0, 2 Pi}, PlotRange -> All, PlotStyle -> Thick] Cheers Patrick On Tue, 2009-08-18 at 06:09 -0400, fd wrote: > All, this seems like a simple question, but when I want to create a > table with different function as in the example > > Plot[Table[Sin[n x], {n, 1, 3, 1}], {x, 0, 2 Pi}, PlotRange -> All, > PlotStyle -> Thick] > > I get all three plots with the same color. If I instead write the > table manually > > Plot[{Sin[x], Sin[2 x], Sin[3 x]}, {x, 0, 2 Pi},PlotStyle->Thick] > > This gives a different plot with a different color for each plot. > > Can anyone shed some light on why this behavior? > > Best >

**References**:**Plot Table of functions does not distinguish colors***From:*fd <fdimer@gmail.com>