Wolfram Cloud Document

i=I;ρ=1000;v=10^(-6);s=20*10^-6;m=100^10^-6;a=1.02*10^-4;g=NTable(r^2/(i*A))*1-2*BesselJ1,

3

2

i

*r*A

3

2

i

*r*A*BesselJ0,

3

2

i

*r*A,{A,0.4444444444,4,0.03591470258},{r,0.5,1.5,0.010101010101},50;

Out[]=

{100,100}

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

In[]:=

func=

r^2

i*A

*1-

2*BesselJ1,

3

2

i

*r*

A



3

2

i

*r*

A

*BesselJ0,

3

2

i

*r*

A



*

a

s*

2*Pi

*

-

(a^2)*(r-0.981)^2

2*s^2



;

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

G=N[Table[NIntegrate[func,{r,0,+Infinity}],{A,0.4444444444,4,0.03591470258}],50];ListPlot

Inverse[g].G

0.010101010101



Out[]=

100

Inverse

:Result for Inverse of badly conditioned matrix {{0.00780974-0.000144623,0.00845996-0.000163058,0.00914994-0.00018341,0.00988126-0.000205835,0.0106555-0.0002305,0.0114744-0.000257579,0.0123395-0.000287258,37,0.0990069-0.00654053,0.103291-0.00697022,0.107711-0.00742311,0.112271-0.00790016,0.116972-0.0084024,0.121818-0.00893087,50},{1},{1},46,{1},50} may contain significant numerical errors.

Out[]=