MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: uniquely change curve colors and make them darker

  • To: mathgroup at smc.vnet.net
  • Subject: [mg49778] Re: uniquely change curve colors and make them darker
  • From: BobHanlon at aol.com
  • Date: Sat, 31 Jul 2004 03:13:58 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

The parameter for Hue must be between 0 and 1 or it will cycle.   For four 
plots, {k, 4},

     (k + 2)/6

runs from 1/2 to 1.   If you have n plots (n>1) and want the colors to run 
from Hue[1/2] to Hue[1] then use

PlotStyle -> Table[Hue[(k+n-2)/(2(n-1)), {k, n}]

or more generally to run the colors from Hue[m] to Hue[u] where 0<m<u<=1

PlotStyle -> Table[(k-1)(u-m)/(n-1)+m, {k, n}]


Bob Hanlon

> <BR>In a message dated Fri, 30 Jul 2004 10:38:36 +0000 (UTC), 
> sean_incali at yahoo.com writes:<BR><BR>http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&;
> threadm=bvfvtb%24qeu%241%40smc.vnet.net&rnum=1&
> prev=/groups%3Fhl%3Den%26lr%3D%26ie%3DUTF-8%26selm%3Dbvfvtb%2524qeu%25241%2540smc.vnet.net
> 
> has a one liner for labeling and changing the curve colors 
> automatically.
> namely 
> 
> PlotLegend -> (#[[1]] & /@ sol)
> 
> PlotStyle -> Table[Hue[(k + 2)/6], {k, 4}]
> 
> but with say... 10 variable system, the code seems to repeat the
> colors even if i use,
> 
> PlotStyle -> Table[Hue[(k + 2)/4], {k, 10}]
> 
> 
> so...
> 
> how do i ensure all 10 variables are of different and unique colors? 
> 
> and how do i add grey levels to the unique colors so that yellow,
> cyan, green show up darker?
> 
> I'm not sure if i'm making myself clear... 
> 


  • Prev by Date: Re: Combining 2D graphs into a 3D graph
  • Next by Date: Re: Question on Compile[]
  • Previous by thread: uniquely change curve colors and make them darker
  • Next by thread: DiscreteDelta Evaluation Question