Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- clear all; clc; close all;
- disp('Di "queso" en voz alta');
- %Alarma para que el programa empiece a grabar
- bip= audioread('Sonido1.mp3');
- sound(bip, 44100);
- n = 0.5;
- pause(n);
- % % Grabación de NARANJA % %
- anaranja= audiorecorder;
- recordblocking(anaranja, 1.5);
- disp('Ok! Naranja grabado');
- play(anaranja);
- naranja= getaudiodata(anaranja);
- n = 1;
- pause(n);
- bip= audioread('Sonido1.mp3');
- sound(bip, 44100);
- n = 1;
- pause(n);
- % % Grabación de GRIS % %
- agris = audiorecorder;
- recordblocking(agris, 1.5);
- disp('Ok! Gris grabado');
- play(agris);
- gris = getaudiodata(agris);
- n = 1;
- pause(n);
- bip= audioread('Sonido1.mp3');
- sound(bip, 44100);
- n = 1;
- pause(n);
- % % Grabación de VERDE % %
- averde = audiorecorder;
- recordblocking(averde, 1.5);
- disp('Ok! Verde grabado');
- play(averde);
- verde = getaudiodata(averde);
- n = 1;
- pause(n);
- bip= audioread('Sonido1.mp3');
- sound(bip, 44100);
- n = 1;
- pause(n);
- % % Sumatoria de valores internos de los vectores % %
- convnarnar = conv(naranja, naranja);
- convnargri = conv(gris, gris);
- convnarver = conv(verde, verde);
- sumnarnar= sum(convnarnar);
- sumnargri= sum(convnargri);
- sumnarver= sum(convnarver);
- % % Display de valores internos de los vectores % %
- disp('Esta es la sumatoria de convolución naranja-naranja');
- disp(abs(sumnarnar));
- disp('Esta es la sumatoria de convolución naranja-gris');
- disp(abs(sumnargri));
- disp('Esta es la sumatoria de convolución naranja-verde');
- disp(abs(sumnarver));
- % % Escuchar convolución % %
- %bip= audioread('Sonido2.mp3');
- %sound(bip, 44100);
- %n = 5;
- %pause(n);
- %play(w);
- % %Graficar Funciones%%
- subplot(6,1,1);
- plot(naranja);
- title('Naranja');
- xlabel('Tiempo(s)');
- ylabel('Amplitud');
- subplot(6,1,2);
- plot(gris);
- title('Gris');
- xlabel('Tiempo(s)');
- ylabel('Amplitud');
- subplot(6,1,3);
- plot(verde);
- title('Verde');
- xlabel('Tiempo(s)');
- ylabel('Amplitud');
- subplot(6,1,4);
- plot(convnarnar);
- title('Naranja-Naranja');
- xlabel('Tiempo(s)');
- ylabel('Amplitud');
- subplot(6,1,5);
- plot(convnargri);
- title('Naranja-Gris');
- xlabel('Tiempo(s)');
- ylabel('Amplitud');
- subplot(6,1,6);
- plot(convnarver);
- title('Naranja-Verde');
- xlabel('Tiempo(s)');
- ylabel('Amplitud');
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement