Hatched shading?
in [Mathematica]
|
Prev: MathLink error
Next: Integration by part
From: Alexei Boulbitch on 23 Jul 2010 07:14 Playing with PlotPoints stops this for a certain ImageSize but may fail for a different one, while playing with both PlotPoints and AbsoluteThickness may help to stop it, if the imageSize is changed. Manipulate[ f[x_] := Sin[x]; Plot[{Table[(x - k)/3, {k, -3, 3, .3}], f[3 x]}, {x, 0, 3}, PlotRange -> {0, 1}, RegionFunction -> Function[{x, y}, 0 < y <= f[3 x]], PlotStyle -> {Directive[AbsoluteThickness[m], Red], Directive[Thick, Blue]}, PlotPoints -> n, ImageSize -> 250], {{m, 1.36}, 0.1, 5}, {{n, 46}, 10, 100, 2}] Alexei 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 -- Alexei Boulbitch, Dr. habil. Senior Scientist Material Development IEE S.A. ZAE Weiergewan 11, rue Edmond Reuter L-5326 CONTERN Luxembourg Tel: +352 2454 2566 Fax: +352 2454 3566 Mobile: +49 (0) 151 52 40 66 44 e-mail: alexei.boulbitch(a)iee.lu www.iee.lu -- This e-mail may contain trade secrets or privileged, undisclosed or otherwise confidential information. If you are not the intended recipient and have received this e-mail in error, you are hereby notified that any review, copying or distribution of it is strictly prohibited. Please inform us immediately and destroy the original transmittal from your system. Thank you for your co-operation.
From: Murray Eisenberg on 23 Jul 2010 07:15
The thickness has nothing to do with it, as the behavior is readily reproducible without it. But using an option such as PlotPoints -> 100 seems to avoid the behavior. On 7/21/2010 7:10 AM, Alexey Popkov 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.dilullo(a)tiscali.it> news:i23k1u$eqc$1(a)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 >> >> >> >> On 18 Lug, 07:06, Bob Hanlon<hanl...(a)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 >> > > > -- Murray Eisenberg murray(a)math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305 |