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