Re: Filling question
- To: mathgroup at smc.vnet.net
- Subject: [mg124492] Re: Filling question
- From: Gabriel Landi <gtlandi at gmail.com>
- Date: Sat, 21 Jan 2012 05:19:24 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <7BB0E96E72E84E41B24A1FF8ED13F5E61569CE122A@IE2RD2XVS581.red002.local>
Thanks everyone for the tips.
Gabriel
On Jan 20, 2012, at 6:44 AM, Alexei Boulbitch wrote:
> Hi, Gabriel,
> Try this and play with the PlotStyle:
>
> Show[{
> Plot[{Exp[-(x - 3)^2], Exp[-(x - 5)^2]}, {x, 0, 10}],
> RegionPlot[
> y <= Exp[-(x - 5)^2] && x >= 2.5 && x < 4, {x, 0, 10}, {y, 0, 1},
> PlotPoints -> 180, PlotStyle -> LightRed],
> RegionPlot[
> y <= Exp[-(x - 3)^2] && x >= 4 && x < 5.5, {x, 0, 10}, {y, 0, 1},
> PlotPoints -> 180, PlotStyle -> LightBlue]
>
> }]
>
>
> Here is a silly question: How to fill the region between two overlapping
> curves? e.g., the region near x=4 in
>
> Plot[{Exp[-(x - 3)^2], Exp[-(x - 5)^2]}, {x, 0, 10}
>
> Thanks in advance,
>
> Gabriel Landi
>
> Alexei BOULBITCH, Dr., habil.
> IEE S.A.
> ZAE Weiergewan,
> 11, rue Edmond Reuter,
> L-5326 Contern, LUXEMBOURG
>
> Office phone : +352-2454-2566
> Office fax: +352-2454-3566
> mobile phone: +49 151 52 40 66 44
>
> e-mail: alexei.boulbitch at iee.lu
>
>