[Date Index]
[Thread Index]
[Author Index]
Re: filled plot on part of x-interval
*To*: mathgroup at smc.vnet.net
*Subject*: [mg44625] Re: [mg44599] filled plot on part of x-interval
*From*: "Bruce W. Colletti" <bcolletti at compuserve.com>
*Date*: Tue, 18 Nov 2003 06:41:55 -0500 (EST)
*References*: <200311170838.DAA01205@smc.vnet.net>
*Sender*: owner-wri-mathgroup at wolfram.com
Murray
The notebook below points to a solution. Run it and then modify to suit.
Bruce
Needs["Statistics`"];
Needs["Graphics`FilledPlot`"];
Clear[jpdf, m, f, x, y];
jpdf = PDF[NormalDistribution[2, 1], x];
f[y_] := (jpdf /. x -> y) /; 1 <= y <= 3
f[y_] := 0 /; y < 1 || y > 3
m[y_] := (jpdf /. x -> y) /; y < 1 || y > 3
m[y_] := 0 /; 1 <= y <= 3
SetOptions[FilledPlot, DisplayFunction -> Identity,
Ticks -> {Range[-1, 6], None}, Axes -> {True, False},
Fills -> GrayLevel[0.7], PlotRange -> {0, f[2]}];
(* remember : FilledPlot shades region between curves *)
g = FilledPlot[{f[x], jpdf}, {x, -1, 6}];
h = FilledPlot[{m[x], jpdf}, {x, -1, 6}];
xlabel = TableForm[
Map[StyleForm[#, FontFamily -> "Arial", FontWeight -> "Bold",
FontSize -> 12] &, {"Centered Line 1", "Centered Line 2"}],
TableAlignments -> Center];
Show[GraphicsArray@{h, g}, Frame -> True, PlotLabel -> xlabel,
ImageSize -> {300, 100}];
----- Original Message -----
From: "Murray Eisenberg" <murray at math.umass.edu>
To: mathgroup at smc.vnet.net
Subject: [mg44625] [mg44599] filled plot on part of x-interval
> How do I use a FilledPlot that fills the region under the graph of f[x]
> only, say, for x from 2 to 10 but still graphs the function itself from
> 0 to 10?
Prev by Date:
**Re: Improper integral**
Next by Date:
**Re: plotting streamlines from vector data**
Previous by thread:
**Re: filled plot on part of x-interval**
Next by thread:
**Re: filled plot on part of x-interval**
| |