MathGroup Archive 2003

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

Search the Archive

RE: Plot&2backgroundcolors

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


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.


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

    {xmin = -1.1, xmax = 4.1,
      ymin = -1.1, ymax = 7,
      x0 = 1.234},
        Rectangle[{xmin, ymin}, {x0, ymax}],
        Rectangle[{x0, ymin}, {xmax, ymax}],
        Black, Draw[f[x0][x], {x, xmin, xmax}],
        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
djmp at

From: Roberto Brambilla [mailto:rlbrambilla at]
To: mathgroup at


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.

Many thanks in advance, Roberto

Roberto Brambilla
Via Rubattino 54
20134 Milano
tel +39.02.2125.5875
fax +39.02.2125.5492
rlbrambilla at

  • 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