Добавил:
KaFaka
t.me
Инфо для ГУАП студентов от меня: https://kafaka.notion.site/99e6d9b70ca74f7baef3daea17839e5a
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:LR2 / Generate
.m clc, clear, close all %очистка памяти
Fd = 44100; % задаем стандартную частоту дискретизации в Гц
Td = 1./Fd; % период дискретизации – обратный частоте
Ts = 5; % задаем длительность формируемого сигнала в секундах
N = Fd*Ts; % количество дискретных отсчетов
f = [1000 2500 4000 5500 7000]; % частоты компонентов
A = (zeros(1,5) + 30)/100 * 32768; % амплитуды компонентов в процентах от максимума
step = int32(N / length(f));
y=zeros(N,2);
for n=1:N-1
nt = 2*pi*n*Td;
y(n, 1) = A(idivide(n, step) + 1) * sin(f(idivide(n, step) + 1) * nt);
y(n,2) = y(n,1); % формируем второй "стерео" канал звука
end
output_signal = int16(y); %задание разрядности данных
% записываем новый аудиофайл:
audiowrite('out_audio.wav', output_signal, Fd)
Fd = 44100; % задаем стандартную частоту дискретизации в Гц
Td = 1./Fd; % период дискретизации – обратный частоте
Ts = 5; % задаем длительность формируемого сигнала в секундах
N = Fd*Ts; % количество дискретных отсчетов
f = [1000 2500 4000 5500 7000]; % частоты компонентов
A = (zeros(1,5) + 30)/100 * 32768; % амплитуды компонентов в процентах от максимума
step = int32(N / length(f));
y=zeros(N,2);
for n=1:N-1
nt = 2*pi*n*Td;
y(n, 1) = A(idivide(n, step) + 1) * sin(f(idivide(n, step) + 1) * nt);
y(n,2) = y(n,1); % формируем второй "стерео" канал звука
end
output_signal = int16(y); %задание разрядности данных
% записываем новый аудиофайл:
audiowrite('out_audio.wav', output_signal, Fd)