Refactor
This commit is contained in:
parent
df833235c8
commit
db3a9304e7
|
|
@ -37,10 +37,7 @@ function mesons!(ddu, du, u, (ρ_sp, ρ_vp, ρ_sn, ρ_vn), r)
|
||||||
ddB0 = -(2/(r + r_reg)) * dB0 + m_ρ^2 * B0 / ħc + g2_ρ * (2 * Λv * W0^2 * B0 - (ρ_vp(r) - ρ_vn(r)) / 2) / ħc
|
ddB0 = -(2/(r + r_reg)) * dB0 + m_ρ^2 * B0 / ħc + g2_ρ * (2 * Λv * W0^2 * B0 - (ρ_vp(r) - ρ_vn(r)) / 2) / ħc
|
||||||
ddA0 = -(2/(r + r_reg)) * dA0 - ρ_vp(r) / ħc # e goes here?
|
ddA0 = -(2/(r + r_reg)) * dA0 - ρ_vp(r) / ħc # e goes here?
|
||||||
|
|
||||||
ddu[1] = ddΦ0
|
ddu .= [ddΦ0, ddW0, ddB0, ddA0]
|
||||||
ddu[2] = ddW0
|
|
||||||
ddu[3] = ddB0
|
|
||||||
ddu[4] = ddA0
|
|
||||||
end
|
end
|
||||||
|
|
||||||
"Solve meson equations and return the wave functions u(r)=[Φ0(r), W0(r), B0(r), A0(r)] where
|
"Solve meson equations and return the wave functions u(r)=[Φ0(r), W0(r), B0(r), A0(r)] where
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue