Skip to content
Snippets Groups Projects
Commit 8d3a6356 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

update script (+test gitlab)

parent 0b5d00c4
No related branches found
No related tags found
No related merge requests found
......@@ -18,22 +18,37 @@ w_ky = zeros(sum(ikynz),ite-its);
ce = zeros(sum(ikynz),ite-its);
is = 1;
% for it = its+1:ite
% phi_n = phi(:,:,:,it);
% phi_nm1 = phi(:,:,:,it-1);
% dt = t(it)-t(it-1);
% ZS = sum(sum(phi_nm1,2),3);
%
% wl = log(phi_n./phi_nm1)/dt;
% w_ky(:,is) = squeeze(sum(sum(wl.*phi_nm1,2),3)./ZS);
%
% for iky = 1:numel(w_ky(:,is))
% ce(iky,is) = abs(sum(sum(abs(w_ky(iky,is)-wl(iky,:,:)).^2.*phi_nm1(iky,:,:),2),3)./ZS(iky,:,:));
% end
% is = is + 1;
% end
%no sum over kx version
ikx = 1;
for it = its+1:ite
phi_n = phi(:,:,:,it);
phi_nm1 = phi(:,:,:,it-1);
phi_n = squeeze(phi(:,ikx,:,it));
phi_nm1 = squeeze(phi(:,ikx,:,it-1));
dt = t(it)-t(it-1);
ZS = sum(sum(phi_nm1,2),3);
ZS = sum(phi_nm1,2); %sum over z
wl = log(phi_n./phi_nm1)/dt;
w_ky(:,is) = squeeze(sum(sum(wl.*phi_nm1,2),3)./ZS);
w_ky(:,is) = squeeze(sum(wl.*phi_nm1,2)./ZS);
for iky = 1:numel(w_ky(:,is))
ce(iky,is) = abs(sum(sum(abs(w_ky(iky,is)-wl(iky,:,:)).^2.*phi_nm1(iky,:,:),2),3)./ZS(iky,:,:));
ce(iky,is) = abs(sum(abs(w_ky(iky,is)-wl(iky,:)).^2.*phi_nm1(iky,:),2)./ZS(iky,:));
end
is = is + 1;
end
[kys, Is] = sort(DATA.ky(ikynz));
linear_gr.OPTIONS.TRANGE = t(its:ite);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment