%***************************************%
% wavファイル処理                       %
% 疑似ステレオ化                        %
%         by Arata Kawamura (2021.05.27)%
%***************************************%
clear;
% 音声信号(s)とサンプリング周波数(Fs)を読み込む
[s, Fs] = audioread("speech.wav"); 
L = length(s);
y = zeros(L,2);
D = 80;
for n=D+1:L
    y(n,1) = s(n) + s(n-D);
    y(n,2) = s(n) - s(n-D);
end
% wavを書き出す
audiowrite("output.wav", y, Fs);
