%programacion 20230623
clearvars;
close all;
clc;

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

N = length(x); %largo en muestras
duracion = N/Fs; %duracion en segundos del audio
dt = 1/Fs;
t = (0:N-1)*dt;

%revertir el audio
xRevertido = zeros(N,1);

fprintf("Revirtiendo violin.wav...\n")
for k=1:N
  %fprintf("k = %d, j = %d\n",k,N+1-k)
  xRevertido(k) = x(N+1-k); %esto permite revertir el arreglo
  %pause(0.05);
end

%revertir violin.wav
sound(xRevertido,Fs)

figure(1)
subplot(1,2,1)
plot(t,x)
title('violin.wav')
xlabel('tiempo (s)')
ylabel('Amplitud')
axis([0 duracion -1.1 1.1])
grid on

subplot(1,2,2)
plot(t,xRevertido)
title('violin.wav Revertido')
xlabel('tiempo (s)')
ylabel('Amplitud')
axis([0 duracion -1.1 1.1])
grid on