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?
- References:
- filled plot on part of x-interval
- From: Murray Eisenberg <murray@math.umass.edu>
- filled plot on part of x-interval