unit SGFreq;
{------------  Проект "Маленькие программы помощники"  -----------------------
   1. Массивы предпочтительных рядов частот для звуковых измерений
      (на основе ГОСТ 12090-80, МЭК-1, ИСО 266).
   2. Массивы частот звучания открытых струн музыкальных инструментов.
         Copyright (C) ZHarns58.  Условия использования: бесплатно.
                  http://ZHarns58.La-Ser.ru
------------------------------------------------------------------------------}
interface

const
  //  измерительный 1/3 октавы
  Freq_oct3 : array[0..30] of real =
    ( 20, 25, 31.5, 40, 50, 63, 80, 100, 125, 160,
      200, 250, 315, 400, 500, 630, 800, 1000, 1250, 1600,
      2000, 2500, 3150, 4000, 5000, 6300, 8000, 10000, 12500, 16000,
      20000 );

  //  измерительный 1/6 октавы
  Freq_oct6 : array[0..60] of real =
    ( 20, 22.4, 25, 28, 31.5, 35.5, 40, 45, 50, 56,
      63, 71, 80, 90, 100, 112, 125, 140, 160, 180,
      200, 224, 250, 280, 315, 355, 400, 450, 500, 560,
      630, 710, 800, 900, 1000, 1120, 1250, 1400, 1600, 1800,
      2000, 2240, 2500, 2800, 3150, 3550, 4000, 4500, 5000, 5600,
      6300, 7100, 8000, 9000, 10000, 11200, 12500, 14000, 16000, 18000,
      20000 );
  DefFreq_oct = 1000;

  //  музыкальный равномерно темперированный
  Freq_mus : array[0..84] of real =
  // До      До-диез   Pe      Ре-диез    Ми      Фа      фа-диез  Соль    Соль-диез  Ля      Ля-диез   Си
{к}(32.70,   34.65,   36.71,   38.89,   41.20,   43.65,   46.25,   49.00,   51.91,   55.00,   58.27,   61.74,
{б} 65.41,   69.30,   73.42,   77.78,   82.41,   87.31,   92.50,   98.00,   103.83,  110.00,  116.54,  123.47,
{м} 130.81,  138.59,  146.83,  155.56,  164.81,  174.61,  185.00,  196.00,  207.65,  220.00,  233.08,  246.94,
{1} 261.63,  277.18,  293.66,  311.13,  329.63,  349.23,  369.99,  392.00,  415.30,  440.00,  466.16,  493.88,
{2} 523.25,  554.37,  587.33,  622.25,  659.26,  698.46,  739.99,  783.99,  830.61,  880.00,  932.33,  987.77,
{3} 1046.50, 1108.73, 1174.66, 1244.51, 1318.51, 1396.91, 1479.98, 1567.98, 1661.22, 1760.00, 1864.66, 1975.53,
{4} 2093.00, 2217.46, 2349.32, 2489.02, 2637.02, 2793.83, 2959.96, 3135.96, 3322.44, 3520.00, 3729.31, 3951.07,
{5} 4186.01 );
  DefFreq_mus = 440;

  //  гитара 6-ти струнная классическая(испанская)
  Freq_git6c : array[0..6] of real =
  //  6       5        4        3        2        1      5-й лад п.
  //ми б.   ля б.    ре м.    соль м.  си м.    ми п.    ля п.
  ( 82.41,  110.00,  146.83,  196.00,  246.94,  329.63,  440.00 );

  //  гитара 6-ти струнная пониженная DROP D
  Freq_git6dd : array[0..6] of real =
  //Шестая     Пятая      Четвёртая  Третья       Вторая     Первая     5-й лад первой
  //ре б.окт.  ля б.окт.  ре м.окт.  соль м.окт.  си м.окт.  ми п.окт.  ля п.окт.
  ( 73.42,     110.00,    146.83,    196.00,      246.94,    329.63,    440.00 );

  //  гитара 6-ти струнная пониженная DOUBLE DROP D
  Freq_git6dd2 : array[0..6] of real =
  //  6       5        4        3        2        1      7-й лад п.
  //ре б.   ля б.    ре м.    соль м.  си м.    Ре п.    ля п.
  ( 73.42,  110.00,  146.83,  196.00,  246.94,  293.66,  440.00 );

  //  гитара 6-ти струнная пониженная DROP C
  Freq_git6dc : array[0..6] of real =
  //  6       5        4        3        2        1      7-й лад п.
  //до б.   соль б.  до м.    фа м.    ля м.    ре п.    ля п.окт.
  ( 65.41,  98.00,   130.81,  174.61,  220.00,  293.66,  440.00 );

  //  гитара 6-ти струнная пониженная OPEN C
  Freq_git6oc : array[0..6] of real =
  //  6       5        4        3        2        1      5-й лад п.
  //до б.   соль б.  до м.    Соль м.  До п.    Ми п.    ля п.окт.
  ( 65.41,  98.00,   130.81,  196.00,  261.63,  329.63,  440.00 );

  //  гитара 7-ми струнная классическая(русская)
  Freq_git7c : array[0..7] of real =
  //  7      6        5        4         3        2        1      7-й лад
  //Ре б.   Соль б.  Си б.    Ре м.    Соль м.  Си м.    Ре п.    Ля п.
  ( 73.42,  98.00,   123.47,  146.83,  196.00,  246.94,  293.66,  440.00 );

  //  гитара 7-ми струнная пониженная(цыганская)
  Freq_git7cg : array[0..7] of real =
  //  7        6       5          4        3       2          1      7-й лад
  //ре б.    соль б. си-б б.    ре м.    соль м. си-б м.    ре п.    ля п.
  ( 73.42,   98.00,  116.54,    146.83,  196.00, 233.08,    293.66,  440.00 );

  //  гитара-бас 4-х струнная
  Freq_gitb4 : array[0..3] of real =
  //  4        3        2        1
  //ми к.    ля к.    ре б.    соль б.
  ( 41.20,   55.00,   73.42,   98.00 );

  //  гитара-бас 6-ти струнная
  Freq_gitb6 : array[0..5] of real =
  //  6         5        4        3        2       1
  //си ск.    ми к.    ля к.    ре б.    соль б. До м.
  ( 30.87,    41.20,   55.00,   73.42,   98.00,  130.81 );

  //  мандолина, скрипка, четырёхструнная домра
  Freq_mand : array[0..3] of real =
  //  4        3        2       1
  //соль м.  ре п.    ля п.    ми в.
  ( 196.00,  293.66,  440.00,  659.26 );

  //  альт
  Freq_alt : array[0..3] of real =
  //  4        3        2       1
  //До м.    Соль     Ре п.    Ля п.
  ( 130.81,  196.00,  293.66,  440.00 );

  //  виолончель
  Freq_viol : array[0..3] of real =
  //  4        3       2        1
  //До б.    Соль    Ре м.    Ля м.
  ( 65.41,   98.00,  146.83,  220.00 );

  //  домра малая
  Freq_dom : array[0..2] of real =
  //  3        2        1
  //Ми п.    ля п.    Ре в.
  ( 329.63,  440.00,  587.33 );

  //  домра альт
  Freq_domalt : array[0..2] of real =
  //  3        2        1
  //Ми м.    ля м.    Ре п.
  ( 164.81,  220.00,  293.66 );

  //  домра бас
  Freq_domb : array[0..2] of real =
  //  3        2        1
  //Ми б.    ля б.    Ре м.
  ( 82.41,  110.00,  146.83 );

  //  домра контрабас
  Freq_domkb : array[0..2] of real =
  //  3        2        1
  //Ми к.    ля к.    Ре б.
  ( 41.20,   55.00,   73.42 );

implementation

end.