RE: Filled Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg25910] RE: [mg25884] Filled Plot
- From: "David Park" <djmp at earthlink.net>
- Date: Tue, 7 Nov 2000 23:04:57 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Pedro, Needs["Statistics`ContinuousDistributions`"] Needs["Graphics`FilledPlot`"] f[x_] := PDF[NormalDistribution[0, 3], x] Block[{$DisplayFunction = Identity}, plota = Plot[f[x], {x, -3, 3}]; plotb = FilledPlot[f[x], {x, 0, 3}]]; Show[plota, plotb, AxesFront -> True, PlotRange -> All]; Here is a somewhat fancier plot using the DrawingPaper package available at my web site. Needs["Graphics`DrawingPaper`"] Needs["Graphics`FilledDrawing`"] Show[Graphics[ {Draw[f[x], {x, -7, 7}], FilledDraw[f[x], {x, 0, 3}, Fills -> LightBlue], Text[SequenceForm["mu = ", 0], {-6.7, 0.12}, {-1, 0}], Text[SequenceForm["sigma = ", 3], {-6.7, 0.11}, {-1, 0}]}], AspectRatio -> 1/GoldenRatio, PlotRange -> All, Background -> Linen, {Frame -> True, FrameLabel -> {x, p}, PlotLabel -> "Normal Distribution and\n One Standard Deviation", ImageSize -> 450}]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ > -----Original Message----- > From: Pedro Ferreira [mailto:pjmferreira at hotmail.com] To: mathgroup at smc.vnet.net > Hi, > > Can I plot de Normal density function Plot[dist,{x,-3,3}] and then fill > only a region under that curve, for example {x,0,3}? > > Thank you.