clear  ridge z dilat_number brol dilat;
for i=1:n1;
   [z(i),dilat_number(i)]=max(abs(wave(1:J,i)));
end;
for i=1:n1;
ridgeg(i)=real(wave(dilat_number(i),i));
end;
%for i=1:n1;
 %  brol=dilat_number(i);
  % dilat(i)=period(brol);
%end;
%[truc,time]=max(abs(cor));
%time=time-13;
%coeff=cor(time);



  



