MathGroup Archive 2005

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

Search the Archive

Re: Function Show[]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53371] Re: [mg53351] Function Show[]
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sat, 8 Jan 2005 23:02:32 -0500 (EST)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

Put the color directives in the underlying plots.

p1=Plot[Sqrt[1-x^2],{x,-1,1},
      PlotStyle->Red,DisplayFunction->Identity];

p2=Plot[-Sqrt[1-x^2],{x,-1,1},
      PlotStyle->Blue,DisplayFunction->Identity];

Show[{p1,p2},DisplayFunction->$DisplayFunction];


Bob Hanlon

> 
> From: mo.wichert at tiscalinet.ch (Moreno Wichert)
To: mathgroup at smc.vnet.net
> Date: 2005/01/08 Sat AM 02:39:18 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg53371] [mg53351] Function Show[]
> 
> Hi
> 
> I've just plotted some atomic orbitals from the hydrogen atom. Now,
> for the p-orbital I have a positive and a negative function and I
> combine this functions for a plot using the command Show[]. So my
> problem is, that I want different colors for the negative and the
> positive function but when I use Show[], Mathematica plots only one
> color for both functions. How can I define different colors in the
> command Show[]?
> 
> Thanks a lot!
> 
> Greets 
> 
> Moreno
> 
> 


  • Prev by Date: Re: Export Animation
  • Next by Date: Re: Special Prime Product
  • Previous by thread: Re: Function Show[]
  • Next by thread: Re: Function Show[]