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: [mg40912] Re: Sheer frustration with integration of piecewise continuous functions
  • From: Olaf Rogalsky <Olaf.Rogalsky at physik.uni-erlangen.de>
  • Date: Thu, 24 Apr 2003 05:24:28 -0400 (EDT)
  • Organization: University of Erlangen, Germany
  • References: <b85m4u$ace$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

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



-- 
+----------------------------------------------------------------------+
I Dr. Olaf Rogalsky                         Institut f. Theo. Physik I I
I Tel.: 09131 8528440                       Univ. Erlangen-Nuernberg   I
I Fax.: 09131 8528444                       Staudtstrasse 7 B3         I
I rogalsky at theorie1.physik.uni-erlangen.de  D-91058 Erlangen           I
+----------------------------------------------------------------------+


  • Prev by Date: 3 eqns 3 unknws
  • Next by Date: troubles with Transformation Rules (Version 3)
  • Previous by thread: Sheer frustration with integration of piecewise continuous functions
  • Next by thread: Re: Sheer frustration with integration of piecewise continuous functions