% Поиск максимума

 

 Dmax3 = max(D3)

 

 %поиск индекса

 for(i=1:iend)

     %fprintf('D3(i)=%f',D3(i));

     if (D3(i)==Dmax3)

        Imax3=i;

  end;    

 end;

 

;Imax3

  

  i2=Imax3-10;

  if (i2<1)

      i2=1;

  end;  

  

  i3=Imax3+10;

  if (i3>iend)

      i3=iend;

  end;

  

      

%  %Распознавание С

  Dmax33 = Dmax3*0.2;

  Imax33=0;

  

  for(i=i2:i3)

      if (i==Imax3)

          i=i+1; % пропустить

      end;

      

     if D3(i)>Dmax33

         Dmax33=D3(i);

         Imax33=i

     end;  

  end;

    

  Dmax33

  

 if (Imax33 >Imax3)

     Ch3=Imax3/Imax33;

 else

     Ch3=Imax33/Imax3;

 end;

 

 if (Ch3>0.63 & Ch3<0.95 & Dmax3<0.25)

 fprintf ('Фонема - С\n');

 end;