Литература по ЦОС и алгоритмам

uses dtmfw;
 
 public
    procedure DTMF1TriggerOff(Sender: TObject; onoff: boolean);
    procedure DTMF1GetTone(Sender: TObject; asum: integer;
                           noise_level, a0, f0: Double);
    procedure DTMF1Key(Sender: TObject; key: String; a1, a2, f1,f2: Double);
    procedure DTMF1Spektra(Sender: TObject; 
                           series: TXYSeries; noise_level: Double);
    procedure DTMF1DataOsc(Sender: TObject; series: TYSeries);
    procedure DTMF1RecordSound(Sender: TObject; 
                               size_kb: integer; status: string);
    procedure DTMF1GenRandom_NoiseSoundCard_Data(Sender:TObject;
                                                 sa, 
                                                 dispers_sm, 
                                                 disters_ne, 
                                                 koef_asim, 
                                                 pic,
                                                 crit_serial_correlation, 
                                                 raspred: string;
                                                 series: TBSeries);
    procedure DTMF1TriggerOffGSA(Sender:TObject;
                                 full_answer_google,         // полная строка ответа от сервиса
                                 recognize_flag,             // признак распознавания
                                 recognize_text: pansichar;  // распознанный текст
                                 recognize_accuracy: integer // достоверность распознавания, %
                                 );
    // экспериментальная функция отслеживания допплеровского сдвига излучаемой частоты (прием на микрофон) 
    procedure DTMF1Doppler(Sender: TObject; f0, a0, fleft, aleft, fright, aright: double; direction: string);
  end;
 
var DTMF1  : TDTMF;
    GraphM1: TGraphM;     // GraphicsM (альтернатива TChart)
    mig: boolean = false; // флаг псевдо-индикатора
    freq: integer = 100;  // начальная частота качания 
 
 
{ инициализация }
 
begin
 GraphM1:= TGraphM.Create(nil);
 // добавляем три серии для визуализации
 GraphM1.Curves.Add;
 GraphM1.Curves.Add;
 GraphM1.Curves.Add;
 // настройки отображения
 GraphM1.MinXValue := 0;
 GraphM1.MinYValue := -1;
 GraphM1.MaxYValue := 100;
 GraphM1.Scale := 100;
 GraphM1.Parent:= form1;
 GraphM1.Align:= alclient;
 GraphM1.Navigator:= true;
 GraphM1.DoubleBuffered:= true;
 
 DTMF1:= TDTMF.Create(nil);
 dtmf1.TriggerOff_Time_ms:= 2000; // задержка отключения триггера-детектора звука
 dtmf1.FFT_noise  := 0; // уровень шума = 0 дб
 dtmf1.TriggerOff := DTMF1TriggerOff;
 dtmf1.GetTone    := DTMF1GetTone;
 dtmf1.Key        := DTMF1Key;
 dtmf1.Spektra    := DTMF1Spektra;
 dtmf1.DataOsc    := DTMF1DataOsc;
 dtmf1.GenRandom_NoiseSoundCard_Data:= DTMF1GenRandom_NoiseSoundCard_Data;
 dtmf1.RecordSound:= DTMF1RecordSound;
 dtmf1.TriggerOffGSA:= DTMF1TriggerOffGSA;
...
 
{ деинициализация }
 
begin
 dtmf1.free;
 GraphM1.Free
...
 
{ примеры использования }
 
// срабатывание триггера тишины (превышение порогового уровня)
procedure TForm1.DTMF1TriggerOff(Sender: TObject; onoff: boolean);
begin
 if onoff then ;
...
 
// событие выдачи текущей амплитуды сигнала, среднего уровня шума и обнаруженного основного тона
procedure TForm1.DTMF1GetTone(Sender: TObject; asum: integer; noise_level, a0, f0: Double);
begin
 level.Caption:= format('%d',[asum]) + ' %';
 sb.panels[0].text:= 'Амплитуда сигнала ' + level.Caption + format(', уровень шума %.2n dB',[noise_level]);
 sb.panels[2].text:= format('Основной тон: %.1n dB',[a0]) +
                     formatfloat(' [0 Hz]',f0);
...
 
// запуск кодера DTMF
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then dtmf1.DTMF_keys:= edit1.Text
...
 
// событие обнаружения DTMF-последовательностей в сигнале
procedure TForm1.DTMF1Key(Sender: TObject;
 key: String; a1, a2, f1, f2: Double);
begin
 memo1.Lines.add(key +
                 format(' | A1= %.2n',[a1])+ formatfloat(' [0 Hz] ',f1) +
                 format('A2= %.2n',[a2])+ formatfloat(' [0 Hz]',f2);
                );
...
 
// событие выдачи спектра сигнала
procedure TForm1.DTMF1Spektra(Sender: TObject; series: TXYSeries; noise_level: Double);
var i: integer;
begin
 if rb1.Checked then begin
  if checkbox4.Checked then GraphM1.minyValue:= -1
   else GraphM1.minyValue:= -120;//round(noise_level -10);
 
  GraphM1.Curves[1].ClearPoints;
  GraphM1.Curves[0].ClearPoints;
  GraphM1.Curves[2].ClearPoints;
 
  GraphM1.Curves[0].ColorGraph:= rgb(255, 0, 0);
  GraphM1.Curves[2].ColorGraph:= rgb(0, 255, 0);
 
  for I := 0 to length(series.dx)-1 do
   try
    GraphM1.Curves[0].AddPoint(series.dx[i], series.dy[i]);
    GraphM1.Curves[2].AddPoint(series.dx[i], noise_level);
   except end
 end
...
 
// событие выдачи сырых отсчетов сигнала
procedure TForm1.DTMF1DataOsc(Sender: TObject; series: TYSeries);
var i: integer;
begin
 if rb2.Checked or rb3.Checked then begin
  GraphM1.MaxxValue := dtmf1.FFT_point;
  GraphM1.Curves[0].ClearPoints;
  GraphM1.Curves[2].ClearPoints;
  GraphM1.Curves[1].ClearPoints;
  GraphM1.Curves[1].ColorGraph:= rgb(0, 0, 255);
  for I := 0 to length(series.dy)-1 do
   try GraphM1.Curves[1].AddPoint(i, series.dy[i])
   except end
 end
...
 
// активация режима записи аудио-фрагментов в файл WAV PCM
// при срабатывании триггера тишины
procedure TForm1.CheckBox5Click(Sender: TObject);
begin
 dtmf1.TriggerOff_Record_Sound:= checkbox5.Checked
...
 
// событие выдачи статуса режима записи и размера аудио-фрагментов
procedure TForm1.DTMF1RecordSound(Sender: TObject;
 size_kb: integer; status: string);
begin
 sb.panels[3].text:= status 
...
 
// выдача характеристик по накопленному дампу ГСЧ realtime со звуковой карты с анализатора
// и самих данных ГСЧ (при желании)
 
  TStat = record
   sa,              // cреднее арифметическое
   dispers_sm,      // дисперсия смещ.
   disters_ne,      // дисперсия несм.
   koef_asim,       // коэффициент ассиметрии
   pic,             // острота пика
   crit_serial_correlation, // критерий сериальной корреляции - Д.Кнут
   raspred: string; // тип распределения в дампе
  end;
 
procedure TForm1.DTMF1GenRandom_NoiseSoundCard_Data(Sender:TObject;
 sa, dispers_sm, disters_ne, koef_asim, pic, crit_serial_correlation, raspred: string;
 series: TBSeries);
var i: integer;
begin
 if rb3.Checked then begin
  memo1.Clear;
  //
  memo1.Lines.Add(sa);
  memo1.Lines.Add(dispers_sm);
  memo1.Lines.Add(disters_ne);
  memo1.Lines.Add(koef_asim);
  memo1.Lines.Add(pic);
  memo1.Lines.Add(crit_serial_correlation);
  memo1.Lines.Add(raspred);
  memo1.Lines.Add(format('Количество отсчетов c аудиокарты: %d', [length(series.dy)]));
  //for i:= 0 to length(series.dy)-1 do ;
 end
...
 
// задание размера буфера для накопления ГСЧ
procedure TForm1.spChange(Sender: TObject);
begin
 dtmf1.GenRandom_NoiseSoundCard_BufSize:= 50000
...
 
// активация режима сохранения накопленных дампов с ГСЧ в файл
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
 dtmf1.GenRandom_NoiseSoundCard_SaveToFile:= checkbox3.Checked
...
 
// активация и изменение частоты генерации синусоидального сигнала
// задание нулевой паузы эквивалентно непрерывной генерации
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 dtmf1.GenSinus_Freq := 100;
 dtmf1.GenSinus_Start:= checkbox1.Checked;
 timer1.Enabled:= checkbox1.Checked
...
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 dtmf1.GenSinus_Freq := freq;
 
 freq:= freq + 10;
 if freq > 10000 then begin
  freq:= 100;
  timer1.Enabled:= false
 end
...
 
// задание порогового уровня срабатывания триггера тишины, %
procedure TForm1.trChange(Sender: TObject);
begin
 dtmf1.TriggerOff_Threshold_Sound:= tr.Position
...
 
// отключение режима визуализации realtime 
// и загрузка файла данных для анализа в offtime
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
 dtmf1.StartRealTime:= not checkbox2.Checked;
 if (checkbox2.Checked)and(od.Execute) then
  dtmf1.LoadWavMp3Sharc_path:= od.FileName
...
 
// событие распознавания
procedure TForm1.DTMF1TriggerOffGSA(Sender:TObject;
 full_answer_google,      
 recognize_flag,            
 recognize_text: pansichar; 
 recognize_accuracy: integer
 );
begin
 memo1.Clear;
 memo1.Lines.Add(format('%s', [full_answer_google]));
 memo1.Lines.Add(format('%s', [recognize_flag]));
 memo1.Lines.Add(format('Текст: %s', [recognize_text]));
 memo1.Lines.Add(format('Достоверность: %d', [recognize_accuracy]) + '%');
...
 
// событие отслеживания допплеровского сдвига
procedure TForm1.DTMF1Doppler(Sender: TObject;
 f0, a0, fleft, aleft, fright, aright: double; direction: string);
var s: string;
begin
 memo1.Clear;
 memo1.Lines.add('DOPPLER [' + format('%.2n',[a0]) + formatfloat(' /0 Hz]:', f0));
 memo1.Lines.add(direction);
 s:= format('AL= %.2n',[aleft]) + formatfloat(' [0 Hz] ', fleft) +
     format('AR= %.2n',[aright]) + formatfloat(' [0 Hz] ', fright);
 memo1.Lines.add(s);
...