HW1.1 Ben Moeller ECE301Fall2008mboutin - Rhea

Matlab Code

% Ben Moeller
% ECE 301 Homework 1
% Beethoven's 5th

%Clear Memory
clear all;
clc;

%set loop counter
i = 1;

%Designate note frequencies according to function Freq = note x 2^(N/12)
while (i < 22)
    notes(i) = (65.41)*2^((i-1)/12)*2;
    i= i + 1;
end

%assign note frequencies accordingly (not all will be used)
c = notes(1);
cs = notes(2);
d = notes(3);
ds = notes(4);
e = notes(5);
f = notes(6);
fs = notes(7);
g = notes(8);
ab = notes(9);
a = notes(10);
as = notes(11);
b = notes(12);
c2 = notes(13);
cs2 = notes(14);
d2 = notes(15);
ds2 = notes(16);
e2 = notes(17);
f2 = notes(18);
fs2 = notes(19);
g2 = notes(20);
%rest has no frequency
r = 0;
%user enters desired playing tempo
tempo = input('Please enter a tempo: ');
%assign values accordingly for quarter and whole notes, as they are the
%only types of notes in this song.
Q = 60/tempo;
W = Q*4;

%create the numerical "score"
score = [r g g g ds r f f f d ...
         r g g g ds ab ab ab g ds2 ds2 ds2 c2 ...
         r g g g d ab ab ab g f2 f2 f2 d2 ...
         r g g f ds ds2 ds2 f2 g2 g g f ds ds2 ds2 f2 ...
         g2 g g f ds];
%designate how long each note/rest will last
time = [Q Q Q Q W Q Q Q Q W ...
        Q Q Q Q Q Q Q Q Q Q Q Q W ...
        Q Q Q Q Q Q Q Q Q Q Q Q W ...
        Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q ...
        Q Q Q Q W];
%as decided in class...     
del = 1/20000;

%reset loop counter
i = 1;

%Play at normal tempo
while (i <= length(score))
    t = 0:del:time(i);
    x = sin(2*pi*t*score(i));
    sound(x, 1/del);
    i = i + 1;
end
%reset loop counter
i = 1;

%play at 2x tempo
while (i <= length(score))
    t = 0:del:time(i);
    x = sin(2*pi*t*score(i));
    sound(x, 1/del*2);
    i = i + 1;
end
%reset loop counter
i = 1;
%play at 2x frequency
while (i <= length(score))
    t = 0:del:time(i);
    x = sin(2*2*pi*t*score(i));
    sound(x, 1/del);
    i = i + 1;
end