Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2003

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

Search the Archive

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
djmp at earthlink.net
http://home.earthlink.net/~djmp/




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.

Many thanks in advance, Roberto

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