%control 03 pregunta02
clearvars;
clc;

%lectura del archivo de audio
[x,Fs] = audioread("marimba.wav");
N = length(x);

%lectura de variables del delay
G = input('ingrese ganancia de Distorsión G = ');

%aplicamos distorsion
xDistorsion = (pi/2)*atan(G*x);

%%creamos nuevo arreglo estereo
y = zeros(N,2);

%%copiamos el audio original sin modificar
y(:,1) = x;

%o usando un ciclo for
for i=1:N
  y(i,1) = x(i);
end

%copiamos el arreglo del audio con delay
y(:,2) = xDistorsion;

%o usando un ciclo for
for i=1:N
  y(i,2) = xDistorsion(i);
end

t = (0:N-1)/Fs;

%guardamos el archivo
audiowrite('marimbaDistorsionEstereo.wav',y,Fs)