Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Problem in Solving Double Integral for PDF transformation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg80893] Problem in Solving Double Integral for PDF transformation
  • From: "Negede Abate" <negedea at googlemail.com>
  • Date: Wed, 5 Sep 2007 02:46:50 -0400 (EDT)

Could any one kindly help me solve the following Integral using Mathematica?
I tried the Integrate command  in different forms but I failed to succeed. I
really got staked.
*

f1 = 1/(3*E^((-42.13+t2)^2/18)*Sqrt[2*Pi]);

f2= (5.778367760333042*^-19*(11.12+t3)^12.13)/E^(4.4008893833458054*^-20*(
11.12+t3)^13.13);

f3 = Abs[Cot[0.017453292519943295*t2]];

f4=0.0037739313253375532/E^(0.000044744314476429635*(
449.96310600570723-55.69524532558123*t3+1.*t*Cot[0.017453292519943295*t
2])^2);

f5= (7.133612341840616*^-13*(-18.963106005707232+55.69524532558123*t3-1.*t
*Cot[0.017453292519943295*t2])^3.8)/E^(1.4861692378834617*^-13*(-
18.963106005707232+55.69524532558123*t3-1.*t*Cot[0.017453292519943295*t2])^
4.8);

Int1=f1 f2 f3 f4 //FullSimplify//InputForm
*

2.899933125405506*^-22*

E^(-0.05555555555555555*(-42.13 + t2)^2 -

4.4008893833458054*^-20*(11.12 + t3)^13.13 -

0.000044744314476429635*(449.96310600570723 -

55.69524532558123*t3 +

1.*t*Cot[0.017453292519943295*t2])^2)*

(11.12 + t3)^12.13*

Abs[Cot[0.017453292519943295*t2]]
*

Int2=f1 f2 f3 f5 //FullSimplify//InputForm
*

5.481551451404547*^-32*

E^(-0.05555555555555555*(-42.13 + t2)^2 -

4.4008893833458054*^-20*(11.12 + t3)^13.13 -

1.4861692378834617*^-13*(-18.963106005707232 +

55.69524532558123*t3 -

1.*t*Cot[0.017453292519943295*t2])^4.8)*

(11.12 + t3)^12.13*

Abs[Cot[0.017453292519943295*t2]]*

(-18.963106005707232 + 55.69524532558123*t3 -

1.*t*Cot[0.017453292519943295*t2])^3.8
*

Integrate[Int1,{t2,35,50},{t3,10,23}]

Integrate[Int2,{t2,35,50},{t3,10,23}]



Thanks a lot for your help!



Negede
*


  • Prev by Date: Re: Unevaluated hypergeometric functions
  • Next by Date: Re: making a fast projection of a crytsallographic unit cell
  • Previous by thread: Re: Exporting images without white borders
  • Next by thread: Re: Problem in Solving Double Integral for PDF transformation