Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Integrate a Piecewise funition, stange behaviour

• To: mathgroup at smc.vnet.net
• Subject: [mg53851] Re: Integrate a Piecewise funition, stange behaviour
• From: rik <rikypi_CREPA_SPAMMONE at libero.it>
• Date: Sun, 30 Jan 2005 03:18:12 -0500 (EST)
• References: <200501280743.CAA00286@smc.vnet.net> <ctfvgo$pi8$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

DrBob ha scritto:
> Try posting in InputForm, so that the code isn't so garbled.
> 
> http://www.eclecticdreams.net/DrBob/copy_as_inputform.htm
> 
> Bobby
> 
> On Fri, 28 Jan 2005 02:43:42 -0500 (EST), rik <rikypi_CREPA_SPAMMONE at libero.it> wrote:
> 
> 


i've followed the instruction, and this's the result. I hope that source 
is more readable now.

f = Piecewise[{{2/355, Inequality[2, LessEqual, w[2], LessEqual, 8] && 
Inequality[4, LessEqual, w[2] + w[3], LessEqual, 12] &&
      Inequality[5, LessEqual, w[1] + w[2], LessEqual, 10] && w[1] <= 0 
&& w[3] <= 0}}, 0]

int1 = Integrate[f, {w[2], -Infinity, Infinity}]

red1 = Reduce[Inequality[2, LessEqual, w[2], LessEqual, 8] && 
Inequality[4, LessEqual, w[2] + w[3], LessEqual,
     12] && Inequality[5, LessEqual, w[1] + w[2], LessEqual, 10] && w[1] 
<= 0 && w[3] <= 0]

int2 = Integrate[(2/355)*Boole[red1], {w[2], -Infinity, Infinity}]

thanks a lot!

• References:
  • Integrate a Piecewise funition, stange behaviour
    • From: rik <rikypi_CREPA_SPAMMONE@libero.it>