This is bad idea - rename standard imaginary unit!
Parameters ρ , m and v are not needed, are’nt they?
And some values should be named as parameters.
Parameters ρ , m and v are not needed, are’nt they?
And some values should be named as parameters.
In[]:=
s=2.10^-5;a=0.000102;d=0.981;minA=0.4444444444;stepA=0.03591470258;maxA=4.;minr=0.5;maxr=1.5;stepr=0.010101010101;
You can use space instead of `*`:
You can use space instead of `*`:
g=TableN(r^2/(IA))*1-2BesselJ1,rArABesselJ0,rA,50,{A,minA,maxA,stepA},{r,minr,maxr,stepr};
3
2
I
3
2
I
3
2
I
We can calculate some values only once:
In[]:=
a1=;a2=;
a
s
2π
(a^2)
2s^2
Function definition needs some special code:
In[]:=
Clear[func];func[r_,A_]:=a11-rr;
r^2
IA
2BesselJ1,r
3
2
I
A
3
2
I
A
BesselJ0,3
2
I
A
-a2(r-d)^2
No problem with G:
In[]:=
G=Table[N[NIntegrate[func[r,A],{r,0,+Infinity}],50],{A,minA,maxA,stepA}];
But dot product of g and G is complex!
So we can try this:
So we can try this:
In[]:=
ComplexListPlot[Inverse[g].G/stepr]
Out[]=
