       • To: mathgroup at smc.vnet.net
• Subject: [mg17021] Re: [mg17004] shading in area
• From: BobHanlon at aol.com
• Date: Wed, 14 Apr 1999 02:11:44 -0400
• Sender: owner-wri-mathgroup at wolfram.com

```In a message dated 4/10/99 6:51:31 AM, dgrover1 at maine.rr.com writes:

>I have a function f[x_] := (x^4-9)/(3x-8) and Plot[f[x], {x,-1,1.5}];
>I'm
>looking for the area from -1 to 1.5 and would like to color in the area
>under the curve from where the function crosses the x-axis to 1.5.  Is
>there
>a command in mathematica that will do this?
>

Tim,

f[x_] := (x^4-9)/(3x-8);

Plot[f[x], {x,-1,1.5}];

Note that f[x] does not cross the x-axis (y=0).
The x-axis shown is offset and crosses at y= 1.

With the axes at the origin, the curve looks like

Plot[{f[x], 0}, {x,-1,1.5}];

Filled plots are done using the standard package Graphics`FilledPlot`

Needs["Graphics`FilledPlot`"]

FilledPlot[f[x], {x, -1, 1.5}];

If you really want the shading above y=1 then use

g[x_] := f[x] /; f[x] < 1;
g[x_] := 1 /; f[x] >= 1;

FilledPlot[{f[x], g[x]}, {x, -1, 1.5}];

FilledPlot[{f[x], g[x], 0}, {x, -1, 1.5},
Fills -> {Hue[1/2], RGBColor[1, 1, 1]}];

Bob Hanlon

```

• Prev by Date: Re: Problems with Solve
• Next by Date: Re: Matrix manipulation