In[]:=
i=I;ρ=1000;v=10^(-6);s=20*10^-6;m=100^10^-6;a=1.02*10^-4;g=Table(r^2/(i*A))*1-2*BesselJ1,*r*A*r*A*BesselJ0,*r*A,{A,1,100},{r,1,100};b=Inverse[g];b//MatrixForm
3
2
i
3
2
i
3
2
i
--------------------------------------------------------------------------------------------------------------------------------------------------
In[]:=
func=*1-*r**r***;
r^2
i*A
2*BesselJ1,*r*
3
2
i
A
3
2
i
A
*BesselJ0,3
2
i
A
a
s*
2*Pi
-
(a^2)*(r-0.981)^2
2*s^2
--------------------------------------------------------------------------------------------------------------------------------------------------
G=Table[NIntegrate[func,{r,0,+Infinity}],{A,1,100}];