Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

Re: Amazing backgrounds

  • To: mathgroup at smc.vnet.net
  • Subject: [mg25222] Re: [mg25196] Amazing backgrounds
  • From: BobHanlon at aol.com
  • Date: Fri, 15 Sep 2000 02:21:54 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 9/12/2000 9:37:13 PM, moonbloody at lycos.com writes:

>Using Background option in Plot we can obtain monocromatic background only.
>Is there a way to draw a plot over a shaded background ? It' s to say over
>a background, as an example, spamming from red on the left to yellow on
>the rigth.
>

n = 30; xmin = 0; xmax = 2Pi; ymin = -1; ymax = 1;

Show[Graphics[
      Table[Flatten[
          {Hue[.1(k - 1)/n], 
            Rectangle[{xmin + (k - 1)(xmax - xmin)/n, 
                ymin}, {xmin + k(xmax - xmin)/n, ymax}]}, 1], 
        {k, 1, n}]], 
    Plot[Sin[x], {x, xmin, xmax}, PlotStyle -> AbsoluteThickness[2], 
      DisplayFunction -> Identity], 
    Axes -> False, Frame -> True, ImageSize -> {500, 310}];

Show[Graphics[
      Table[Flatten[
          {Hue[.1(k - 1)/n], 
            Rectangle[{xmin, ymin + (k - 1)(ymax - ymin)/n}, {xmax, 
                ymin + k(ymax - ymin)/n}]}, 1], 
        {k, 1, n}]], 
    Plot[Sin[x], {x, xmin, xmax}, PlotStyle -> AbsoluteThickness[2], 
      DisplayFunction -> Identity], 
    Axes -> False, Frame -> True, ImageSize -> {500, 310}];


Bob Hanlon


  • Prev by Date: Re: Re: mathlink
  • Next by Date: Re: Mapping down two lists
  • Previous by thread: Re:Amazing backgrounds
  • Next by thread: RE: Amazing backgrounds