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
>
>