Removed unnecessary function.
This commit is contained in:
parent
927a6642da
commit
c039356cc2
@ -1,26 +0,0 @@
|
|||||||
function [ret] = find_nk_fit(~,VParams)
|
|
||||||
|
|
||||||
Lz = 20;
|
|
||||||
Nz = 4000;
|
|
||||||
normfac = Lz/Nz;
|
|
||||||
|
|
||||||
z = linspace(-0.5*Lz,0.5*Lz-Lz/Nz,Nz);
|
|
||||||
dz = abs(z(2)-z(1));
|
|
||||||
Kmax = pi*Nz/Lz;
|
|
||||||
kz = linspace(-Kmax,Kmax,Nz+1);
|
|
||||||
kz = kz(1:end-1);
|
|
||||||
|
|
||||||
psiz = exp(-0.5*(abs(z)/VParams.ell).^VParams.nu);% VParams.nu
|
|
||||||
normz = sum(abs(psiz).^2)*dz;
|
|
||||||
psiz = psiz / sqrt(normz);
|
|
||||||
|
|
||||||
psik = fftn(psiz)*normfac/(sqrt(2*pi)); % fftshifted
|
|
||||||
nk = abs(psik).^2;
|
|
||||||
nk_forfit = ifftshift(nk);
|
|
||||||
|
|
||||||
f = fit(kz',nk_forfit','gauss1'); % f(x) = a1*exp(-((x-b1)/c1)^2)
|
|
||||||
|
|
||||||
ret.ell = VParams.ell;
|
|
||||||
ret.nu = VParams.nu;
|
|
||||||
ret.ell_eff = 1/f.c1;
|
|
||||||
end
|
|
Loading…
Reference in New Issue
Block a user