% Control 02 Pregunta 01

clearvars;
close all;
clc;

%lectura de datos
[x,Fs] = audioread('violin_sin_normalizar.wav');

%variables relativas al audio
N = length(x); %largo en muestras
dur = N/Fs; %largo en segundos
t = (0:N-1)/Fs; %vector de tiempo

%graficamos audio sin normalizar
figure(1)
plot(t,x)
title('violin.wav sin normalizar')
axis([0 t(end) -1.1 1.1])
xlabel('tiempo (s)')
ylabel('amplitud')
grid on;

%normalizamos
%buscamos el valor absoluto máximo del arreglo
valorMax = max(x);
valorMin = min(x);

if abs(valorMax) >= abs(valorMin)
  factorNormalizacion = abs(valorMax);
else
  factorNormalizacion = abs(valorMin);
end

y = x/factorNormalizacion; %dividimos ya que asi el valor máximo será igual a 1
fprintf('el factor de normalizacion es %f',1/factorNormalizacion)

%graficamos audio con normalización aplicada
figure(2)
plot(t,y)
title('violin.wav normalizado')
axis([0 t(end) -1.1 1.1])
xlabel('tiempo (s)')
ylabel('amplitud')
grid on;