Re: shading in ImplicitPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg14304] Re: [mg14216] shading in ImplicitPlot
- From: Jurgen Tischer <jtischer at col2.telecom.com.co>
- Date: Tue, 13 Oct 1998 01:21:19 -0400
- References: <199810070700.DAA13656@smc.vnet.net.>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Wang,
the following will do what you want, but beware that it works only
because you used the "Contour form" of ImplicitPlot.
ImplicitPlot[x^2 + y^2 - 0.5==0,{x,0,1},{y,0,1},ContourShading->True,
ColorFunction->(If[#<.5,GrayLevel[.5],GrayLevel[1]]&)]
Jurgen
H.J. Wang wrote:
> Hello,
>
> I plot values of {x,y} that makes f[x,y] = 0 using ImplicitPlot:
>
> ImplicitPlot[ f[x,y] == 0, {x, 0, 1}, {y, 0,1}];
>
> For example, f[x,y] could be x^2 + y^2 - 0.5 (but my real one is much
> more complexed). Now I wish to shade the area of f[x,y]<0 with light
> gray. I tried the followings:
>
> ImplicitPlot[ f[x,y]==0, {x,0,1},{y,0,1}, ContourShading->True];
> ImplicitPlot[ f[x,y]==0, {x,0,1},{y,0,1}, ContourShading->True,
> Lighting ->False, DefalutColor->GrayLevel[0.3]];
>
> but they all yield dark black shading. I even played with ColorFunction
> without success. Could anyone enlighten me on this one? Thanks in
> advance!
>
> H.J. Wang