VPF::Сложение частот и вывод в *.wav фаил

ivan219

Дата 16.3.2008, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12

Создать WAV фаил с одной частотой и разными фазами можно так:
http://forum.vingrad.ru/forum/topic-200549.html

Код


.

.
.
.
      w := 2 * Pi * Freq;

      for i := 0 to (DataCount div WaveFormatEx.nBlockAlign - 1) do
      begin
        LeftCh  := trunc(Vol * sin(i * w / SampleRate + phase  * Pi / 180));
        RightCh := trunc(Vol * sin(i * w / SampleRate));
        Write(LeftCh, SizeOf(LeftCh));
        Write(RightCh, SizeOf(RightCh));
      end;
      FPlaing := True;
      Position := 0;
      SaveToFile('1.wav');
    end;

А как сделать чтобы звучало несколько частот в одном канале 1000, 2000..... и.т.д. smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Alexeis

Дата 18.3.2008, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

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

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »