From 301e9f835ebdcbeeff4c1bf55a542b9f6dade578 Mon Sep 17 00:00:00 2001
From: lbors <lucas_borges95@yahoo.com.br>
Date: Sat, 14 Jul 2018 12:00:56 -0300
Subject: [PATCH] Create lineat.m

---
 Audio/Linear Interpolation/lineat.m | 46 +++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 Audio/Linear Interpolation/lineat.m

diff --git a/Audio/Linear Interpolation/lineat.m b/Audio/Linear Interpolation/lineat.m
new file mode 100644
index 0000000..90aefa2
--- /dev/null
+++ b/Audio/Linear Interpolation/lineat.m	
@@ -0,0 +1,46 @@
+%carregando pacotes
+pkg load signal
+close all
+clear all
+
+% Abrindo arquivo de audio
+%Fs=8000;
+[audio Fs]=wavread('/home/lucas/Documentos/project-octave/Resgiter.wav');
+figure(1);
+plot(audio,'b')					%Plota grafico do audio original
+hold;
+grid;
+xlabel('Tempo');
+ylabel('Amplitude');
+title('Comparação entre amostras');
+
+%------------------------------------Downsampling-----------------------------------
+n=2;						%Fator da taxa de amostragem
+audio_down = downsample(audio,n);		%Diminui o valor da taxa de amostragem da matriz
+plot(audio_down, 'r');				%Plota grafico do audio diminuido
+
+%------------------------------------Interolacao------------------------------------
+audio_inter=interp2(audio_down, 'linear');	%Realiza a filtragem com o filtro linear
+
+figure(2);
+hold
+grid
+xlabel('Tempo');
+ylabel('Amplitude');
+title('Audio Filtrado x Audio Diminuído');
+plot(audio_inter,'g')
+plot(audio_down,'r')
+
+figure(3);
+hold;
+grid;
+xlabel('Tempo');
+ylabel('Amplitude');
+title('três audios');
+plot(audio,'r')
+plot(audio_down,'g:*')
+plot(audio_inter,'b:.')
+
+sound(audio, Fs)
+sound(audio_down, Fs)
+sound(audio_inter,Fs)