Re: FillingStyle -> Striped ?

*To*: mathgroup at smc.vnet.net*Subject*: [mg115311] Re: FillingStyle -> Striped ?*From*: Lou <lvveen32 at xs4all.nl>*Date*: Fri, 7 Jan 2011 04:10:05 -0500 (EST)*References*: <ig0brm$saj$1@smc.vnet.net> <ig3pk1$jgi$1@smc.vnet.net>

On 6 jan, 08:05, Armand Tamzarian <mike.honeychu... at gmail.com> wrote: > On Jan 5, 10:52 am, andrius ruslan <andrius.rus... at googlemail.com> > wrote: > > > For a black/white print of a function I needed some FillingStyle like > > striped or dotted. > > > seems to be a simple task, but haven't found any hint yet. > > tnx > > I seem to remember someone posting something like this to the > group ... maybe in 2009??? A search of group posts may (?) turn > something up. > > Mike Hi, I searched and Bob Hanlon came with an example. By using this and including the dashed function you'll get dashed lines. f1[x_] = Sin[x]; f2[x_] = Cos[x]; Plot[{f1[x], f2[x], Table[x/3 + b, {b, -3, 1, .1}]}, {x, 0, 2 Pi}, PlotRange -> {-1.05, 1.05}, PlotPoints -> 100, PlotStyle -> {Automatic, Automatic, {Lighter[Green], Dashing[0.03]}}, RegionFunction -> Function[{x, y}, (f1[x] >= f2[x] && f2[x] <= y <= f1[x]) || (f2[x] >= f1[x] && f1[x] <= y <= f2[x])]] Show[Plot[Table[x/3 + b, {b, -3, 1, .1}], {x, 0, 2 Pi}, PlotRange -> {-1.05, 1.05}, PlotPoints -> 100, PlotStyle -> Lighter[Gray], RegionFunction -> Function[{x, y}, (f1[x] >= f2[x] && f2[x] <= y <= f1[x]) || (f2[x] >= f1[x] && f1[x] <= y <= f2[x])]], Plot[{f1[x], f2[x]}, {x, 0, 2 Pi}]] Kind regards, Lou