% Emacs mode header: -*-Octave-*- source. %
% function F int wave len
%  

%SCRIPT function [list, len_l, len_r] = F_int_wave_len(rh,ih,x)


% yy obtained as:x
% yy=abs(rh-ih);

N = 10000;
list = []; ilist = [];

for iter = 1:1:(N-2)
xL=yy(iter); xM=yy(iter+1); xR=yy(iter+2);
if ( (xL > xM) & (xR > xM))
 list = [list xM];
 ilist = [ilist iter];
end
endfor

% len_l = 2.*atan2(rh,ih);
% len_r = atan2(rh,ih);

%%% endfunction
