Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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!


  • Prev by Date: Re: Re: A question about pattern
  • Next by Date: Re: Cannot plot this functions
  • Previous by thread: Re: Integrate a Piecewise funition, stange behaviour
  • Next by thread: Cannot plot this functions