- 18

- 0

## Main Question or Discussion Point

How can I speed up some calculations in maple? I have a function

f(A)=A*I_0(A)/I_1(A)-c0*log(A/I_1(0))-1

I_0(A)=NInt(exp(A*c1*cos(x)*cos(y)*cos(z)), 0..2*Pi)

I_1(A)=NInt(cos(x)*cos(y)*cos(z)*exp(A*c1*cos(x)*cos(y)*cos(z)), 0..2*Pi)

c0 and c1 are known constants.

I need to solve the equation f=0. for this I am using the command fsolve(f=0,A). The 1D version is quite fast, but when I am in 3D the numerical integration takes for ever. Is there any way to speed up the calculations?

f(A)=A*I_0(A)/I_1(A)-c0*log(A/I_1(0))-1

I_0(A)=NInt(exp(A*c1*cos(x)*cos(y)*cos(z)), 0..2*Pi)

I_1(A)=NInt(cos(x)*cos(y)*cos(z)*exp(A*c1*cos(x)*cos(y)*cos(z)), 0..2*Pi)

c0 and c1 are known constants.

I need to solve the equation f=0. for this I am using the command fsolve(f=0,A). The 1D version is quite fast, but when I am in 3D the numerical integration takes for ever. Is there any way to speed up the calculations?

**1. Homework Statement**