MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • Prev by Date: RE: Tick labels in Traditional Form
  • Next by Date: Re: Something strange with Show.
  • Previous by thread: Re: Sheer frustration with integration of piecewise continuous functions
  • Next by thread: Re: Sheer frustration with integration of piecewise continuous functions