RE: how to plot 2 functions in different colors?

*To*: mathgroup at smc.vnet.net*Subject*: [mg33605] RE: [mg33583] how to plot 2 functions in different colors?*From*: David.Annetts at csiro.au*Date*: Wed, 3 Apr 2002 01:13:34 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Hi Guojun, > I can plot two functions in one diagram with > plot[{fa[x],fb[x]},{x,1,100}], > but they are in same color and hard to seperated. Is there > any way to make them in different colors? Yes there is. Just supply a list of plot styles, and plot functions are cycled with plot styles. For two functions, you can define:- myStyle = {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1]}; then Plot[{x, 2x, 3x}, {x, 1, 100}, PlotStyle -> myStyle]; Or, with Graphics`Colors` loaded, you can use:- Plot[{Sin[x], Cos[x]}, {x, -Pi, Pi}, PlotStyle -> {Red, Blue}, FrameTicks -> {PiScale, Automatic, None, None}]; IMHO, it's usually easier to define a list of styles and use the list rather than specify individual colours by their names. One way of defining such a list is:- maxNumberOfCurves = 12; lst = Range[maxNumberOfCurves]/(maxNumberOfCurves + 1.) myStyle2 = Hue[#] & /@ lst There are other methods. Regards, Dave. -------------------------------------------------------- Dr. David Annetts EM Modelling Analyst Tel: (+612) 9490 5416 CSIRO DEM, North Ryde Fax: (+612) 9490 5467 David.Annetts at csiro.au Include "usual_disclaimers" --------------------------------------------------------