- #1
bayes
- 6
- 0
Hi,
Can anybody with a powerful computer help me compute numerically the following integral:
1) k[x_, y_] :=
Exp[-Integrate[(Cosh[2 t] Cos[
2 t (ArcSinh[Cot[x]] - ArcSinh[Cot[y]])/Pi] - 1) Exp[
t]/(t Sinh[2 t] Cosh[t]), {t, 0, Infinity}]]
2) NIntegrate[k[x, y], {x, -PI, 0}, {y, -PI, 0}]
I'm using the notation of mathematica. I am interested in in the integral defined in 2)
This is extremely important to me and any help is highly appreciated.
Thanks
Can anybody with a powerful computer help me compute numerically the following integral:
1) k[x_, y_] :=
Exp[-Integrate[(Cosh[2 t] Cos[
2 t (ArcSinh[Cot[x]] - ArcSinh[Cot[y]])/Pi] - 1) Exp[
t]/(t Sinh[2 t] Cosh[t]), {t, 0, Infinity}]]
2) NIntegrate[k[x, y], {x, -PI, 0}, {y, -PI, 0}]
I'm using the notation of mathematica. I am interested in in the integral defined in 2)
This is extremely important to me and any help is highly appreciated.
Thanks