pkg load signal
clear all
close all

[y,fs]=audioread('modulator22.wav');

t=0:1/fs:length(y)/fs-1/fs;

figure;
set(gcf, 'name','Signal of origin');
plot(t,y);
xlabel('time(s)');
ylabel('amplitude(n.u.');


audiowrite('modulator22_speedown.wav', y , fs/2);
[y_speedown,fs_speedown]=audioread('modulator22_speedown.wav');
t_speedown=0:1/fs_speedown:length(y_speedown)/fs_speedown-1/fs_speedown;

figure;
set(gcf, 'name','Speed down of the signal of origin');
plot(t_speedown,y_speedown);
xlabel('time(s)');
ylabel('amplitude(n.u.');