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

Re: Hatched shading?

• To: mathgroup at smc.vnet.net
• Subject: [mg111167] Re: Hatched shading?
• From: annetts729 <annetts729 at gmail.com>
• Date: Thu, 22 Jul 2010 05:44:30 -0400 (EDT)
• References: <i1u25i$80d$1@smc.vnet.net> <i23k1u$eqc$1@smc.vnet.net>

On Jul 21, 7:10 pm, "Alexey Popkov" <lehi... at gmail.com> wrote:
> Hello,
>
> I confirm this behavior on Windows XP SP3 with Mathematica 7.0.1. All the
> red lines get out of the region defined by RegionFunction.
>
> "ADL" <alberto.dilu... at tiscali.it>  news:i23k1u$eqc$1 at smc.vnet.net...
>
> > 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?
>
> > ADL

Yeah -- there are red lines.

But I'd suggest it's an artifact of plotting rather than a bug per se.

Look at

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 -> #, ImageSize -> 500] & /@ {25, 50, 75, 100}

Regards,

Dave.