Re: Sheer frustration with integration of piecewise continuous functions
- To: mathgroup at smc.vnet.net
- Subject: [mg40982] Re: Sheer frustration with integration of piecewise continuous functions
- From: Madhusudan Singh <spammers-go-here at yahoo.com>
- Date: Sat, 26 Apr 2003 03:27:18 -0400 (EDT)
- References: <b85m4u$ace$1@smc.vnet.net> <b88apf$h0n$1@smc.vnet.net>
- Reply-to: spammers-get-bounced at yahoo.com
- Sender: owner-wri-mathgroup at wolfram.com
On Thursday 24 April 2003 05:29, Olaf Rogalsky (Olaf.Rogalsky at physik.uni-erlangen.de) held forth in comp.soft-sys.math.mathematica (<b88apf$h0n$1 at smc.vnet.net>): > box[x_] := UnitStep[x]UnitStep[1 - x]; > Plot[box[x], {x, -1, 2}]; > f[x_, L_, > fpeak_] := (fpeak/L)(box[x/(0.6L)](x/0.6) + box[(x - 0.6L)/(0.3L)]L > + > box[(x - 0.9L)/(0.1L)]((L - x)/(0.1))); > Plot[f[x, 10, 1], {x, 0, 10}]; > Integrate[f[x, L, fpeak], {x, 0, L}, Assumptions -> {L > 0}] > > yields > > 0.65 fpeak L > > > Thanks for the alternative solution. I will try it immediately. However, I am still curious why my original attempt did not work.