(New page: % Adam Siembida % adam (dot) siembida (at) gmail (dot) com % asiembid (at) purdue (dot) edu % ECE301 - HW1.4 % 6/24/2009 % Reset workspace clear all; format compact; clc % Using the fact...)
 
 
(3 intermediate revisions by the same user not shown)
Line 1: Line 1:
% Adam Siembida
+
==Adam Siembida - HW1.4==
% adam (dot) siembida (at) gmail (dot) com
+
% asiembid (at) purdue (dot) edu
+
% ECE301 - HW1.4
+
% 6/24/2009
+
  
% Reset workspace
+
[[Media:AdamSiembida_Ece301_hw1_4.pdf‎]]
clear all;
+
format compact;
+
clc
+
  
% Using the fact that A = 440
+
--[[User:Asiembid|Asiembid]] 12:08, 24 June 2009 (UTC)
%                and A = (5*x)/3
+
x = 440*3/5;
+
 
+
% Three octaves of notes
+
uB = 15*(2*x)/8;
+
uA = 5*(2*x)/3;
+
uAsharp = uA*(2^(1/12));
+
uG = 3*(2*x)/2;
+
uF = 4*(2*x)/3;
+
uE = 5*(2*x)/4;
+
uD = 9*(2*x)/8;
+
uC = (2*x);
+
 
+
mB = 15*x/8;
+
mA = 5*x/3;
+
mAsharp = mA*(2^(1/12));
+
mG = 3*x/2;
+
mF = 4*x/3;
+
mE = 5*x/4;
+
mD = 9*x/8;
+
mC = x;
+
 
+
lB = 15*(x/2)/8;
+
lA = 5*(x/2)/3;
+
lAsharp = lA*(2^(1/12));
+
lG = 3*(x/2)/2;
+
lF = 4*(x/2)/3;
+
lE = 5*(x/2)/4;
+
lD = 9*(x/2)/8;
+
lC = (x/2);
+
 
+
%rest
+
r = 0;
+
 
+
%note durations
+
speed = 3; %higher number increases note duration
+
w = 1*speed; %whole note
+
h = (1/2)*speed; %half note
+
q = (1/4)*speed; %quarter note
+
e = (1/8)*speed; %eight note
+
s = (1/16)*speed; %sixteenth note
+
ds= (3/32)*speed; %dotted sixteenth note
+
 
+
 
+
%====================SONG DATA====================
+
%the first row holds the frequencies as notes
+
%the second row holds the duration of the notes as defined above
+
SongData = [mE,mE,mE,r,mC,mE,mG,lG, mC,lG,r,lE,r,lA,lB,r,lAsharp,lA;
+
            s, e, s,s, s, e, q, q,e+s, s,e, e,s, e, s,s,      s, e];
+
%          ^1st meas              ^2nd meas
+
 
+
SongData2 = [lG,mE,mG,mA,mF,mG,r,mE,mC,mD, lB;
+
            ds,ds, s, e, s, s,s, e, s, s,e+s];
+
%          ^3rd meas
+
 
+
% put first part and second part of song together
+
SongData = [SongData, SongData2];
+
%==================END SONG DATA==================
+
 
+
 
+
% Find out how many notes the song is
+
SongLength = size(SongData);
+
SongLength = SongLength(1,2);
+
 
+
% inital values of for loop
+
y=[];
+
t = 0.0001;
+
del = 0.0001;
+
 
+
% builds the notes into a single signal
+
for index = 1:1:SongLength
+
    % start and end times of the note
+
    start_time = t;
+
    end_time = start_time + SongData(2,index);
+
   
+
    % create time interval over which to play the note
+
    T = start_time:del:end_time;
+
   
+
    % time that the next note will start at
+
    t = end_time;
+
   
+
    % add the frequency data for the time interval
+
    % there arent many loops so it doesnt matter that y is not predefined
+
    y = [y, sin(2.*pi.*SongData(1,index).*T)];
+
   
+
end
+
 
+
% plays the song
+
sound(y,1/del);<nowiki>Insert non-formatted text here</nowiki>
+

Latest revision as of 07:09, 24 June 2009

Adam Siembida - HW1.4

Media:AdamSiembida_Ece301_hw1_4.pdf‎

--Asiembid 12:08, 24 June 2009 (UTC)

Alumni Liaison

Correspondence Chess Grandmaster and Purdue Alumni

Prof. Dan Fleetwood