% Generazione di sette file audio contenenti le sette
% note dell'ottava centrale.
%
% 02/03/06
%
% Plinio Gatto - pli@autistici.org

f_la=440;   % Frequenza del LA dell'ottava centrale

f_do=2^(-9/12)*f_la;
f_re=2^(-7/12)*f_la;
f_mi=2^(-5/12)*f_la;
f_fa=2^(-4/12)*f_la;
f_sol=2^(-2/12)*f_la;
f_si=2^(2/12)*f_la;

% Per avere una frequenza di campionamento a 44100 Hz
% si deve avere T=1/fc

fc=44100;
T=1/fc;

t=0:T:10-T; % Base dei tempi di 10 secondi

do=sin(2*pi*f_do*t);
re=sin(2*pi*f_re*t);
mi=sin(2*pi*f_mi*t);
fa=sin(2*pi*f_fa*t);
sol=sin(2*pi*f_sol*t);
la=sin(2*pi*f_la*t);
si=sin(2*pi*f_si*t);

wavwrite(do,fs,'do.wav');
wavwrite(re,fs,'re.wav');
wavwrite(mi,fs,'mi.wav');
wavwrite(fa,fs,'fa.wav');
wavwrite(sol,fs,'sol.wav');
wavwrite(la,fs,'la.wav');
wavwrite(si,fs,'si.wav');