Re: Hatched shading?
- 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? ADL 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