Отправлено SM 08 августа 2004 г. 21:39 В ответ на: А наброcочек м-скрипта можно подбросить? ;) отправлено Make_Pic 08 августа 2004 г. 21:20

TConst = 0.98;
MinLevel=100/32768;
signal = wavread('data.wav')';
level=0;
for cnt=1:length(signal)
    level=level*TConst;
    if abs(signal(cnt)) > level
        level=abs(signal(cnt));
    end
    lev(cnt)=level;
end
lev(find(lev < MinLevel))=MinLevel;
sigout = signal .* (1 ./ lev);

Тута пиковый детектор (то что в цикле). И wav-файло считается моно априори - проверок на стерео не делал (надо откоцать второй канал чтоб работало). Переделать на среднекватричный или средний пять секунд. Шумодав - ну вариантов тута море. От тупого задавливания слабых сигналов до фильтров с переменной частотой среза или шумодавления через wavelet-декомпозицию. Точнее задачку поставь, мож скриптик и родится :)))

• Thanks! На досуге все таки сбацаю на матлабе эту задачку - пригодится, может на MSP430 потом переложу (шомодав не в реалтайм) — Make_Pic   (08.08.2004 21:58, пустое)
  • Так просто вот (+) — SM   (08.08.2004 22:02, 389 байт)
• Шумодав мне в Cool-е нравился, но там не помню какой, динамические и пороговые шумодавы не проходят - шум равномерно распределенный спектр в области 300-8000 Гц. Пик на 8000 (отрезается фильтром запросто. — Make_Pic   (08.08.2004 21:44, пустое)
  • Так кулом и дави тогда. В куле и АРУ вроде было какое-то (не помню давно не юзал данный софтин) — SM   (08.08.2004 21:49, пустое)
    • Ищу его, то же давно было - вот узнал - Adobe его купил!!! — Make_Pic   (08.08.2004 21:53, пустое)
      • У меня он древний какой-то, 2000-ный... И ничего, работает даже вроде. — SM   (08.08.2004 21:56, пустое)
        • В 2003 куплен Эдобом: — Make_Pic   (08.08.2004 22:00, пустое, ссылка)
          • Да и хрен с ними :) Все равно и выкачать где найдется, и вылечить чем :)) — SM   (08.08.2004 22:04, пустое)