26 lines
707 B
Matlab
26 lines
707 B
Matlab
function res = calculateNormalizedResiduals(~,psi,Params,Transf,VDk,V,muchem)
|
|
|
|
KEop = 0.5*(Transf.KX.^2+Transf.KY.^2+Transf.KZ.^2);
|
|
|
|
% DDIs
|
|
frho = fftn(abs(psi).^2);
|
|
Phi = real(ifftn(frho.*VDk));
|
|
|
|
Eddi = Params.gdd*Phi.*psi;
|
|
|
|
% Kinetic energy
|
|
Ekin = ifftn(KEop.*fftn(psi));
|
|
|
|
% Potential energy
|
|
Epot = V.*psi;
|
|
|
|
% Contact interactions
|
|
Eint = Params.gs*abs(psi).^2.*psi;
|
|
|
|
% Quantum fluctuations
|
|
Eqf = Params.gammaQF*abs(psi).^3.*psi;
|
|
|
|
% Total energy
|
|
res = sum(abs(Ekin(:) + Epot(:) + Eint(:) + Eddi(:) + Eqf(:) - muchem*psi(:))*Transf.dx*Transf.dy*Transf.dz)/sum(abs(muchem*psi(:))*Transf.dx*Transf.dy*Transf.dz);
|
|
|
|
end |