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.