%Author: Georgios Kordas

clear
clc

%% Parameters

A = 100.0;
Fs = 5000;  
nSeconds = 5;

%% Frequency f = 5Hz

frequency1 = 5;
t1 = linspace(0, nSeconds, round(nSeconds*Fs));
y1 = A*sin(frequency1*2*pi*t1);  
aud1 = audioplayer(y1, Fs);
audiowrite('add_the_full_path\freq5Hz.wav',y1,Fs);

%% The A3 note, f = 220Hz

frequency2 = 220;
t2 = linspace(0, nSeconds, round(nSeconds*Fs));
y2 = A*sin(frequency2*2*pi*t2);  
aud2 = audioplayer(y2, Fs);
audiowrite('add_the_full_path\freq220Hz.wav',y2,Fs);

%% Plots

subplot(1,2,1);
plot(t1,y1,'b')
xlim([0 1])
xlabel('Time[sec]')
ylabel('Amplitude')
title(['Frequency ',num2str(frequency1),' Hz'])

subplot(1,2,2);
plot(t2,y2,'r')
xlim([0 1])
xlabel('Time[sec]')
ylabel('Amplitude')
title(['Frequency ',num2str(frequency2),' Hz'])
%% Sounds

sound(y1, Fs);
pause(5)  
sound(y2, Fs);