%Estas dos líneas son encabezados que borran todas las variables y limpian
%pantalla.
clear all
clc

%Se lee el archivo de audio y se lo guarda en "x". 
[x, fs]=audioread('crespin.wav');

%Se grafica la señal "x" con el comando stem, que muestra señales
%discretas.
stem(x(1500:1600,:))
hold on %comando para sobreescribir el gráfico con otra imagen.
%Se grafica "x" con el comando plot, que muestra una señal continua
%(hipotética)
plot(x(1500:1600,:),'r')
legend('Señal discreta original','Señal analógica')
ylabel('Amplitud')
xlabel('N° de muestras')
title('Señal discreta y señal analógica')
%El comando "sound" reproduce la variable "x" a una tasa de muestreo determinada.
sound(x,fs)