How can I speed up some calculations in maple? I have a function(adsbygoogle = window.adsbygoogle || []).push({});

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. The problem statement, all variables and given/known data

**Physics Forums | Science Articles, Homework Help, Discussion**

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Maple numerical integration and eq. solving

Can you offer guidance or do you also need help?

Draft saved
Draft deleted

**Physics Forums | Science Articles, Homework Help, Discussion**