Re: Filling question

*To*: mathgroup at smc.vnet.net*Subject*: [mg124462] Re: Filling question*From*: Peter Breitfeld <phbrf at t-online.de>*Date*: Fri, 20 Jan 2012 01:53:48 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <jf8vdp$5p3$1@smc.vnet.net>

Gabriel Landi wrote: > 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 > You may use a RegionPlot: f[x_] = Exp[-(x - 3)^2]; g[x_] = Exp[-(x - 5)^2]; {xs, ys} = {x, f[x]} /. First@Solve[f[x] == g[x], x] // Quiet region = y <= f[x] && x >= xs || y <= g[x] && x <= xs ; Show[Plot[{f[x], g[x]}, {x, 0, 10}], RegionPlot[region, {x, 0, 10}, {y, 0, 10}]] -- _________________________________________________________________ Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de