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: Re: filled plot on part of x-interval

  • To: mathgroup at smc.vnet.net
  • Subject: [mg44699] RE: [mg44664] Re: filled plot on part of x-interval
  • From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
  • Date: Fri, 21 Nov 2003 05:13:21 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

>-----Original Message-----
>From: AES/newspost [mailto:siegman at stanford.edu]
To: mathgroup at smc.vnet.net
>Sent: Thursday, November 20, 2003 9:16 AM
>To: mathgroup at smc.vnet.net
>Subject: [mg44699] [mg44664] Re: filled plot on part of x-interval
>
>
>I'll still assert that something like:
>
>    Needs["Graphics`Graphics`"];
>    Needs["Graphics`Colors`"];
>    Needs["Graphics`FilledPlot`"];
>
>    DisplayTogether[
>        FilledPlot[{Sin[x], Sin[x]}, {x,2,8}],
>        Plot[Sin[x], {x,0,10}, PlotStyle->Red]];
>
>is clear, simple, flexible, and readable -- and allows you to easily 
>modify the styles (linewidths, colors) of the different components of 
>the plot independently, as done here, and add additional stuff if you 
>like.
>
>DisplayTogether is your friend -- haven't run into a headache with it 
>yet.
>


Dear Professor Siegman,

my principal objection is illustrated by the (exaggerated) example:

DisplayTogether[
    FilledPlot[Sin[x], {x, 2, 8}, Fills -> {{{1, Axis}, Yellow}}, 
      PlotPoints -> 5, PlotDivision -> 2], 
    Plot[Sin[x], {x, 0, 10}, PlotStyle -> Red, PlotPoints -> 5, 
      PlotDivision -> 2]];



Compare this to:

filled = FilledPlot[Sin[t], {t, 2, 8}, Fills -> Yellow, PlotStyle -> Red, 
      PlotPoints -> 5, PlotDivision -> 2, DisplayFunction -> Identity];
plow = Plot[Sin[t], {t, 0, 2}, PlotStyle -> Red, PlotPoints -> 2, 
      PlotDivision -> 2, DisplayFunction -> Identity];
plhi = Plot[Sin[t], {t, 8, 10}, PlotStyle -> Red, PlotPoints -> 2, 
      PlotDivision -> 2, DisplayFunction -> Identity];

Show[plow, filled, plhi, DisplayFunction -> $DisplayFunction, 
    AxesFront -> True];

This effectively also is David Park proposal (packend in a convenient, yet
non standard interface)



My "cute" Theta, however, turns out to be flawed differently, as seen by:

\[Theta]1[t_, {min_, max_}] := 1 /; t < min || t > max
\[Theta]2[t_, {min_, max_}] := 1 /; min <= t <= max
\[Theta][t_, {min_, max_}] := Through[{\[Theta]1, \[Theta]2}[t, {min, max}]]
Off[Plot::"plnr"]

FilledPlot[Sin[t]*\[Theta][t, {2, 8}], {t, 0, 10}, 
  Fills -> {{{2, Axis}, Yellow}}, PlotStyle -> Red, PlotPoints -> 5, 
  PlotDivision -> 2, PlotRange -> All]

Because t=2 and t=8 are not (necessarily) sampled, but enforcing that makes
theta superfluous, Sorry.


--
Hartmut Wolf


  • Prev by Date: Re: [Integrate] Why two results of same eq. are different?
  • Next by Date: Re: Re: Improper integral
  • Previous by thread: RE: RE: filled plot on part of x-interval
  • Next by thread: RE: Re: filled plot on part of x-interval