• To: mathgroup at smc.vnet.net
• Subject: [mg111132] Re: Hatched shading?
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Wed, 21 Jul 2010 07:14:00 -0400 (EDT)

```I see similar artifacts on a Mac. Playing with PlotPoints can stop this

\$Version

7.0 for Mac OS X x86 (64-bit) (February 19, 2009)

f[x_] := Sin[x];

Plot[{
Table[(x - k)/3, {k, -3, 3, .10}],
f[3 x]},
{x, 0, 3},
PlotRange -> {0, 1},
RegionFunction ->
Function[{x, y}, 0 < y <= f[3 x]],
PlotStyle -> {
Directive[AbsoluteThickness[4], Red],
Directive[Thick, Blue]},
PlotPoints -> 40]

Bob Hanlon

---- ADL <alberto.dilullo at tiscali.it> wrote:

=============
Following what Bob brilliantly suggested, I found a possible bug in
Mathematica 7.0.1 for Windows.
If you type the following, you will get a couple of red lines getting
out of their boundary:

f[x_] := Sin[x];

Plot[
{Table[(x - k)/3, {k, -3, 3, .10}],    f[3x]},
{x, 0, 3},
PlotRange -> {0, 1},
RegionFunction ->  Function[{x, y}, 0 < y <= f[3x]],
PlotStyle -> {
Directive[ AbsoluteThickness[4], Red],
Directive[ Thick,  Blue]
}
]

Does anybody else confirms this?

On 18 Lug, 07:06, Bob Hanlon <hanl... at cox.net> wrote:
> I forget to copy the definition of f[x] that I was using as an example
>
> f[x_] = Exp[-x]
>
> Bob Hanlon

```

• Prev by Date: Re: A Question About Directive
• Next by Date: Re: A ODE I need to solve
• Previous by thread: Re: Hatched shading?
• Next by thread: Re: Hatched shading?