Доброго всем времени суток!

возник вопрос: как с микрофона снять тон, тембр и амплитуду звука?

Заранее всем спасибо!

Читай в DRKB "Как считать сигнал с микрофона"
Добавлено @ 09:21
И еще в FAQ:
http://forum.vingrad.ru/index.php?act=modu...el&article=1515

Код

var    WaveIn: hWaveIn;    hBuf: THandle;    BufHead: TWaveHdr;    bufsize: integer;    Bits16: boolean;    p: PPointArr;    stop: boolean = false;  procedure TForm1.Button1Click(Sender: TObject);  var    header: TWaveFormatEx;    BufLen: word;    buf: pointer;  begin    BufSize := TrackBar1.Position * 500 + 100; { Размер буфера }    Bits16 := CheckBox1.Checked;    with header do begin      wFormatTag := WAVE_FORMAT_PCM;      nChannels := 1;  { количество каналов }      nSamplesPerSec := 22050; { частота }      wBitsPerSample := integer(Bits16) * 8 + 8; { 8 / 16 бит }      nBlockAlign := nChannels * (wBitsPerSample div 8);      nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;      cbSize := 0;    end;    WaveInOpen(Addr(WaveIn), WAVE_MAPPER, addr(header),      Form1.Handle, 0, CALLBACK_WINDOW);    BufLen := header.nBlockAlign * BufSize;    hBuf := GlobalAlloc(GMEM_MOVEABLE and GMEM_SHARE, BufLen);    Buf := GlobalLock(hBuf);    with BufHead do begin      lpData := Buf;      dwBufferLength := BufLen;      dwFlags := WHDR_BEGINLOOP;    end;    WaveInPrepareHeader(WaveIn, Addr(BufHead), sizeof(BufHead));    WaveInAddBuffer(WaveIn, addr(BufHead), sizeof(BufHead));    GetMem(p, BufSize * sizeof(TPoint));    stop := true;    WaveInStart(WaveIn);  end;

тогда кто-нибудь может пояснить, как из этого можно извлечь нужную информацию...Потому что я, из этого, почти ничего не понял

в FAQ конкретно на этот вопрос не отвечает, там как считать и записать этот звук в файл или может я чего не догоняю...

если кто знает поясните пожалуйста

Я так полагаю, вам придется раскладывать полученый оцифрованный сигнал на составляющие. Методы разложения звука есть, но я не возьмусь их объяснять потому что не соображаю в этом ничего. Примеров тоже, к сожалению, не имею. Кроме того, вопрос поставлен не совсем корректно. Тон, тембр и амплитуда на одном и том же микрофоне будут у всех разные. Думаю, можно будет попробовать изменить их значения но не измерить. Это все имхо, вопросом особенно не владею, а хотелось бы.
И вот от меня вопрос: как записать звук с микрофона в файл wav. Не ругайтесь пожалуйста, но с приведенным в DRKB примером я чего-то справиться не могу. Все дороги туда ведут, а я чего-то не догоняю. Создаю пустой файл в "Звукозапись" с параметрами из примера. Потом записываю в него данные сигнала:

Код

//------фрагмент--------------  if Bits16 then begin     data16 := PData16(PWaveHdr(Msg.lParam)^.lpData);     YScale := h / (1 shl 16);     for i := 0 to BufSize - 1 do       p^[i] := Point(round(i * XScale),         round(h / 2 - data16^[i] * YScale));     WavFile.Write(data16^,SizeOf(TData16)); //это звуковые данные?   end else begin     Data8 := PData8(PWaveHdr(Msg.lParam)^.lpData);     YScale := h / (1 shl 8);     for i := 0 to BufSize - 1 do     begin       p^[i] := Point(round(i * XScale),         round(h - data8^[i] * YScale));     end;     WavFile.Write(data8^,SizeOf(TData8)); //это звуковые данные? .......

Потом пытаюсь проиграть в винампе. Результат очень далек от оригинала. Причем понятно что это именно моя запись - только на большой/маленькой скорости. Почему-то скорость воспроизводимого звука зависит от размера буфера BufSize. Для 8-ми битного получалось рычание как из ужастиков... В общем помогите разобраться.

Цитата(Albinos_x @ 11.7.2005, 18:03)

тон, тембр и амплитуду звука?

Что есть в твоем понимании "тон, тембр"?

Те же отсчеты сигнала, что ты получишь со звуковой карточки и есть "амплитуда".

Цитата

Что есть в твоем понимании "тон, тембр"?

тон - частота сигнала (количество циклов в секунду)
амплитуда - сила сигнала
тембр - качественная характеристика. Думаю правильнее сказать, что она определяется корреляцией между чистой синусуидальной волной и издаваемой. Например настроенный камертон даёт почти чистую синусоидальную волну, а флейта на той же волне даёт звук более сложного состава.

Цитата

Думаю, можно будет попробовать изменить их значения но не измерить.

Мне нужно, именно измерить.

Цитата

Те же отсчеты сигнала, что ты получишь со звуковой карточки и есть "амплитуда".

если не сложно - можно поподробнее...

Убийственная терминология.

Похоже, что использована та, которая применятся музыкантами. Я не музыкант и догадаться о соотвествии твоих терминов с общепринятыми не в силах.

Если хочешь, все-таки, получить реальную помошь объясни обычным русским языком, что ты хочешь сделать.
Или приведи формулы вычисления твоих терминов.

По поводу амплитуды (мгновенный уровень величины сигнала): на входе звуковой карточки ты имеешь непрерывный сигнал в вольтах, после АЦП ты имешь уже сигнал дискретизованый как по времени, так и по амплитуде, вот эти циферки ты уже и имешь в своей программе (получаешь которые при помощи MultimeAPI, DirectX, OpenAL или еще чего).

Бог мог, да почитай какую-нибудь популярную книжку по "программированию звука" - этого добра навыпускали сейчас выше крыши. Лекции здесь читать я не собираюсь по основам ЦОС (их дают во всех технических вузах).

Добавлено @ 22:29
Под тоном, я видел только следующие определения (если можно так сказать)ю
Добавлено @ 22:32
Под тоном, я видел только следующие определения (если можно так сказать).

Речевой сигнал, под тоном понимают частоту колебания головых связок, ее и называют основным тоном.
В музыке (могу и ошибиться, подправьте, если есть более четкое определение), первую гармонику в спектре сигнала музыкального инструмента.

Цитата

Под тоном, я видел только следующие определения (если можно так сказать). Речевой сигнал, под тоном понимают частоту колебания головых связок, ее и называют основным тоном. В музыке (могу и ошибиться, подправьте, если есть более четкое определение), первую гармонику в спектре сигнала музыкального инструмента.

определения взяты из технической литературы...

Цитата

Если хочешь, все-таки, получить реальную помошь объясни обычным русским языком, что ты хочешь сделать. Или приведи формулы вычисления твоих терминов.

надо распознать голос, по контрольным данным в частности тембору и частоте сигнала
амплитуда собираюсь использовать для создания порогового значения, начиная с которого будет распознаваться голос.

Цитата

Бог мог, да почитай какую-нибудь популярную книжку по "программированию звука" - этого добра навыпускали сейчас выше крыши. Лекции здесь читать я не собираюсь по основам ЦОС (их дают во всех технических вузах).

поисковики по этому поводу ничего толкового не выдали, а купить книгу не могу, т.к. мои выходние не совпадают с рабочими днями крупных книжных магазинов(работаю далеко от города, да и живу не близко).

Цитата

надо распознать голос, по контрольным данным в частности тембору и частоте сигнала амплитуда собираюсь использовать для создания порогового значения, начиная с которого будет распознаваться голос.

Ну вот так чуть получше. Но подход не верный и термин "тембр" а данном варианте не применяется в ЦОС, он используется в лингвистике.
Если же тебе нужно только определить наличие голоса в сигнале, то это VAD-voice activity detection (красивого русского термина не знаю), но по этой аббревиатуре любой поисковик выдаст тучу ссылок. И конечно, спасибо Евгению Машерову за подборку, dsp-book.narod.ru.
Теперь дальше, не хочу много раз писать одно и тоже (а еще учитывая, что в распознавании речевых образов ты еще практически ноль) вот ссылка http://forum.sources.ru/index.php?showtopic=64693? для начала хватит, а потом сам поймешь где и что искать и как делать.

Как совет: сделай сам распознавалку, для начала на MFCC or LPCC + DTW (по ссылкам все там это есть, и даже переведенное на русский).

И еще, есть очень хороший учебник по ЦОС: Баскаков С.И. Радиотехнические цепи и сигналы: Учебник. - М.:Высш. школа., 1983. - это для начала.
А потом литература на dsp-book.narod.ru.

P.S.

Цитата

определения взяты из технической литературы...

- очень прикольно, дай ссылки, что же там написано, почитать, ну очень интересно.

Во... другое дело...

СПАСИБО!

Цитата

- очень прикольно, дай ссылки, что же там написано, почитать, ну очень интересно.

"Turbo Paskal" Учебник, С.А. Немнюгин изд. Питер
раздел "Урок 8. Программирование звука" тема: "Программирование SoundBlaster" п. "Звук и его своиство"

Какой вопрос - такой ответ. Или по другому, правильная постановка вопроса - половина ответа

Цитата(Albinos_x @ 14.7.2005, 23:37)

"Turbo Paskal"  Учебник, С.А. Немнюгин изд. Питер раздел "Урок 8. Программирование звука" тема: "Программирование SoundBlaster" п. "Звук и его своиство"

Да это круто... Теперь понимаю, откуда такой кошмар. Но книжки же в библиотеке должны быть нормальные. Не читал, на паскале не пишу, но предполагаю, что и остальные у него части ничем не лучше.
Классику по ЦОС (DSP), практически всю найдешь на dsp-book.narod.ru.

P.S. Ты же делал программку осциллографа, а задаешь такие вопросы. Что показывает осциллограф на своем экране?

Это сообщение отредактировал(а) Vzhyk - 14.7.2005, 23:50

Цитата

P.S. Ты же делал программку осциллографа, а задаешь такие вопросы. Что показывает осциллограф на своем экране?

делал осцилограф для входных цепей (с антены) приёмной аппаратуры. И я всего лишь моделировал сигнал по входным(заданным) параметрам и выводил это на свой осцилограф. А здесь мне моделировать ничего не надо, надо снять сигнал со звуковой карты, замерить частоту (это вроде не сложно), снять апмлитуду (это думую тоже не сложно, хотя пока ещё не догнал как), снять гармоники с сигнала и сравнить и с исходними (со сравнением проблем нет, а вот на счёт гармоник, пока работаем)

Цитата(Albinos_x @ 18.7.2005, 19:45)

А здесь мне моделировать ничего не надо, надо снять сигнал со звуковой карты, замерить частоту (это вроде не сложно), снять апмлитуду (это думую тоже не сложно, хотя пока ещё не догнал как), снять гармоники с сигнала и сравнить и с исходними (со сравнением проблем нет, а вот на счёт гармоник, пока работаем)

Так отсчеты сигнала и есть его амплитуда, или нет?
А для получения спектра сигнала преобразование фурье не подходит? (чтобы самому время на отладку не терять бери FFTW или IT++).

Цитата

Так отсчеты сигнала и есть его амплитуда, или нет?

что есть - отсчеты?

Цитата

А для получения спектра сигнала преобразование фурье не подходит?

возможно именно его я и буду использовать..

Цитата

(чтобы самому время на отладку не терять бери FFTW или IT++).

???????? не понял... ?????

Дискретные значения величины сигнала в дискретные моменты, которые ты получаешь с АЦП платы.
Это свободные библиотеки для преобразования фурье и не только.