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 > >