Wolfram Cloud Document

-∞

∫

0

π×r²

i×ρ×ω

1-

2×BesselJ1,

3

2

i

×

r

-6

10

ω



3

2

i

×

r

-6

10

ω

×BesselJ0,

3

2

i

×

r

-6

10

ω



×

1

0.00002×

2×π

×

-(r-0.0001)²

2×(0.00002)²



r

Syntax

:Expression cannot begin with "1-

2×BesselJ1,

3

2

i

×

r

1

2

ω



3

2

i

×

r

1

ω

×BesselJ0,

3

2

i

×

r

1

ω



×

1

0.00002×

2×π

×

-(r-0.0001)²

2×(0.00002)²



.

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

In[]:=

i=1;ρ=1;ω=1;func=Rationalize

π*r^2

i*ρ*ω

*1-

2*BesselJ1,

3

2

i

*

r

10^-6

ω



3

2

i

*

r

-6

10

ω

*BesselJ0,

3

2

i

*

r

10^-6

ω



*

1

0.00002*

2*Pi

*Exp

-(r-0.0001)^2

2*(0.00002)^2

,0

Out[]=

31489956360

-

5242879999999999

2

-

1

10000

+r

4194304



2

r

1-

BesselJ[1,1000r]

500rBesselJ[0,1000r]

502507

In[]:=

NIntegrate[func,{r,0,-Infinity}]

Out[]=

4.39578×

-22

10