minA=0.4444444444;​​stepA=0.03591470258;​​maxA=4.;​​minr=0.5;​​maxr=1.5;​​stepr=0.010101010101;​​g=TableSetPrecision(r^2/(IA))*1-2BesselJ1,
3
2
I
rA
3
2
I
rABesselJ0,
3
2
I
rA,20,{A,minA,maxA,stepA},{r,minr,maxr,stepr};​​​​​​​​
Out[]=
-4.0777898399712764011×
-1414
10
-8.1876288782584198406×
-1414
10
