RE: Plot&2backgroundcolors

• To: mathgroup at smc.vnet.net
• Subject: [mg44329] RE: [mg44262] Plot&2backgroundcolors
• From: "David Park" <djmp at earthlink.net>
• Date: Wed, 5 Nov 2003 10:01:09 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Roberto,

For those who have or wish to try DrawGraphics from my web site here is the
code for making the type of plot that you describe.

Needs["DrawGraphics`DrawingMaster`"]

f[x0_][x_] := (x - x0)^2

Module[
{xmin = -1.1, xmax = 4.1,
ymin = -1.1, ymax = 7,
x0 = 1.234},
Draw2D[
{LightPink,
Rectangle[{xmin, ymin}, {x0, ymax}],
LightBlue,
Rectangle[{x0, ymin}, {xmax, ymax}],
Black, Draw[f[x0][x], {x, xmin, xmax}],
AbsoluteDashing[{5}],
Line[{{x0, ymin}, {x0, ymax}}]},

Frame -> True,
FrameTicks -> {Automatic, Automatic,
CustomTicks[# &, databased[{x0}]], Automatic},
AxesFront -> True,
PlotRange -> {{xmin, xmax}, {ymin, ymax}},
PlotLabel -> "Brambilla Type Plot",
Background -> Linen,
ImageSize -> 450]];

David Park

From: Roberto Brambilla [mailto:rlbrambilla at cesi.it]
To: mathgroup at smc.vnet.net

Hello,

I have to plot a function, let it be Sin[x] in (0-pg), then I have a
peculiar abscissa, ex. x=1.234.
I'd like to overlap to a normal grid and frame a vertical line at this
abscissa in same different style
(as dash or color or thickness, etc.) . How can I do it?
How can I have also this value explicit as a tick on the plot?
Then all this would be even better if I could have two background colors
(or gray levels),
before and after the selected abscissa.

Roberto Brambilla
CESI
Via Rubattino 54
20134 Milano
tel +39.02.2125.5875
fax +39.02.2125.5492
rlbrambilla at cesi.it

```

• Prev by Date: Re: Plot&2backgroundcolors
• Next by Date: Fw: Integrate...
• Previous by thread: Re: Plot&2backgroundcolors
• Next by thread: AW: New Plot output in version 5