MathGroup Archive 2010

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

Search the Archive

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




  • 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?