Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

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





  • Prev by Date: How can I connect MS Visual C++ 5.0 or Delphi witch Mathematica 3.0 ?
  • Next by Date: Re: graphing implicit function
  • Previous by thread: Re: How can I connect MS Visual C++ 5.0 or Delphi witch Mathematica 3.0 ?
  • Next by thread: Math3.0/Win98: SaveSelectionAs->Metafile clips the image?