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.