%Control 03 pregunta 03
clearvars;
close all;
clc;

%leemos los archivos
[metalFatigue,Fs] = audioread('MetalFatigue.wav');
[guitarraStereo,Fs2] = audioread('guitarraStereo.wav');

%variables para graficar
Nmt = length(metalFatigue);
dt = 1/Fs;
tMt = (0:Nmt-1)*dt;
AmtMin = min(min(metalFatigue)); %graficamos el minimo de entre los dos canales
AmtMax = max(max(metalFatigue)); %graficamos el máximo de entre los dos canales

Ngs = length(guitarraStereo);
tGs = (0:Ngs-1)*dt;
AgsMin = min(min(guitarraStereo)); %graficamos el minimo de entre los dos canales
AgsMax = max(max(guitarraStereo)); %graficamos el máximo de entre los dos canales

%graficamos
figure(1)
subplot(2,1,1)
plot(tMt,metalFatigue)
title('MetalFatigue.wav')
xlabel('tiempo (s)')
ylabel('Amplitud')
axis([tMt(1) tMt(end) AmtMin*1.1 AmtMax*1.1])
legend('Canal Izquierdo','Canal Derecho')
grid on
box on

subplot(2,1,2)
plot(tGs,guitarraStereo)
title('guitarraStereo.wav')
xlabel('tiempo (s)')
ylabel('Amplitud')
axis([tGs(1) tGs(end) AgsMin*1.1 AgsMax*1.1])
legend('canal Izquierdo','Canal Derecho')
grid on
box on

%separamos canales
N5segundos = 5*Fs;

canalIzquierdo = zeros(N5segundos,1);
canalDerecho = zeros(N5segundos,1);

for i=1:N5segundos
  canalIzquierdo(i) = metalFatigue(i);
  canalDerecho(i) = guitarraStereo(i);
end

%juntamos los dos canales
mezclaEstereo = [canalIzquierdo, canalDerecho];

%o bien
mezclaEstereo(:,1) = canalIzquierdo;
mezclaEstereo(:,2) = canalDerecho;

%por ultimo utilizando ciclo for
mezclaEstereo = zeros(N5segundos,2);

for i=1:N5segundos
  mezclaEstereo(i,1) = metalFatigue(i);
  mezclaEstereo(i,2) = guitarraStereo(i);
end

%graficamos
tMezcla = (0:N5segundos-1)/Fs;

figure(2)
subplot(2,1,1)
plot(tMezcla,mezclaEstereo(:,1))
title('mezcla Estereo canal Izquierdo')
xlabel('tiempo (s)')
ylabel('Amplitud')
axis([tMezcla(1) tMezcla(end) 1.1*min(mezclaEstereo(:,1)) 1.1*max(mezclaEstereo(:,1))])
grid on
box on

subplot(2,1,2)
plot(tMezcla,mezclaEstereo(:,2))
title('mezcla Estereo canal Derecho')
xlabel('tiempo (s)')
ylabel('Amplitud')
axis([tMezcla(1) tMezcla(end) 1.1*min(mezclaEstereo(:,2)) 1.1*max(mezclaEstereo(:,2))])
grid on
box on

%guardamos en archivo de audio
audiowrite('mezclaEstereo.wav',mezclaEstereo,Fs)