NLEVEL Slice virkler.mat at a given number of cycles.
Script to computer exercises 1 |
01 function C=Nlevel(v,N) 02 % NLEVEL Slice virkler.mat at a given number of cycles. 03 04 [n,m]=size(v); 05 06 C=[]; 07 08 for j=2:m 09 i = min(find(v(:,j)>=N)); 10 if ~isempty(i) 11 c = v(i,1)-(v(i,j)-N)/(v(i,j)-v(i-1,j))*(v(i,1)-v(i-1,1)); 12 C = [C c]; 13 end 14 end 15 16 return 17 18
Comments or corrections to the WAFO group