-∞
∫
0
π×r²
i×ρ×ω
2×BesselJ1,×
3
2
i
r
-6
10
ω
3
2
i
r
-6
10
ω
3
2
i
r
-6
10
ω
1
0.00002×
2×π
-(r-0.0001)²
2×(0.00002)²
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
i=I;ρ=1000;v=10^(-6);m=10^(-4);s=2*10^(-5);func=Rationalize*1-**BesselJ0,***Exp,0
π*r^2
i*ρ*A
2*BesselJ1,*
3
2
i
r
v
A
3
2
i
r
v
A
3
2
i
r
v
A
1
s*
2*Pi
-(r-m)^2
2*(s)^2
Out[]=
-5975370041+BesselJ1,
1
9535311A
-
5242879999999999
2
-+r
1
10000
4194304
2
r
1/4
(-1)
1
A
1000r
3/4
(-1)
1
A
500rBesselJ0,
1000r
3/4
(-1)
1
A
In[]:=
LogLogPlot[Abs[NIntegrate[func,{r,0,+Infinity}]],{A,0.0001,10000000},PlotRangeAll]
Out[]=
