Line 6: Line 6:
 
clear;
 
clear;
 
clc;
 
clc;
scale=1; %initialize scale
+
% PART A
t=[];
+
delta = 0.0005;
delta=0.0005;
+
H=0:delta: 1;
%define frequencies for each tone
+
Q=0:delta:0.5;
for n=1:19
+
DQ_time=0:delta:0.75;
    freq(n)=220*2^((n-1)/12);
+
EN=0:delta:0.25;
end
+
A=freq(1);   
+
Bb=freq(2); 
+
B=freq(3);   
+
C=freq(4);   
+
Db=freq(5); 
+
D=freq(6);   
+
Eb=freq(7);   
+
E=freq(8);   
+
F=freq(9);
+
Gb=freq(10);   
+
G=freq(11);   
+
A2b=freq(12);   
+
A2=freq(13);   
+
B2b=freq(14);   
+
B2=freq(15);   
+
C2=freq(16);   
+
D2b=freq(17);   
+
D2=freq(18);   
+
E2b=freq(19);   
+
O=0;     
+
%define durations
+
P=60/172;
+
TP=P*2; 
+
FP=P*4; 
+
THP=P*3; 
+
QP=P*1.5;  
+
H=P/2;
+
%Notes and Duration   
+
x = [Eb,F,G,A2b,G,A2b,G,A2b,G,A2b,B2b,A2b,Eb,F,G,O, ...
+
    G,A2b,A2,B2b,A2,B2b,A2,B2b,A2,B2b,C2,B2b,Eb,D2b,C2,O, ...
+
    Eb,F,G,A2b,G,A2b,G,A2b,G,A2b,E2b,C2,B2b,A2b,D2b,A2b,A2b, ...
+
    B2b,B2b,B2,B2,C2,D2b,E2b,C2,B2b,A2b,C2,B2b,B2b, ...
+
    Eb,F,G,A2b,B2b,C2,C2,D2b,D2b,D2b,A2b,B2b,B2,C2, ...
+
    C2,C2,B2b,A2b,B2b,C2,C2,B2b,F,G,A2b,G,F,B2b, ...
+
    Eb,Eb,F,G,A2b,B2b,C2,C2,C2, ...
+
    D2b,D2b,A2b,B2b,C2,O,F,G, ...
+
    A2b,F,Eb,A2b,C2,Eb,C2,B2b,A2b,A2b];
+
 
+
dur = [P,P,P,P,P,P,H,H,H,H,P,P,P,P,THP,P, ...
+
      P,P,P,P,P,P,H,H,H,H,P,P,P,P,THP,P, ...
+
      P,P,P,P,P,P,H,H,H,H,P,P,P,P,THP,H,H, ...
+
      QP,H,QP,H,QP,H,H,H,H,H,TP,TP,FP, ...
+
      TP,P,P,QP,H,P,P,P,H,H,P,H,H,FP, ...
+
      TP,P,P,QP,H,P,P,P,H,H,P,H,H,FP, ...
+
      QP,H,P,P,QP,H,P,H,H, ...
+
      P,P,P,P,THP,P,QP,H, ...
+
      P,P,P,P,TP,QP,H,QP,H,THP];
+
% I almost know nothing about music thoery,so I referred to previous submitted hws for frequency formula.
+
% and notes of hail purdue.
+
  
part = input('Please choose the partyou want to play(a,b,c):','s');
+
AH = sin(2*pi*220*H);
y=[];
+
BQ= sin(2*pi*493.88/2*Q);
if(strcmp(part,'a'))
+
DBQ=sin(2*pi*277.18*Q);
    for i = 1:length(dur)
+
DDQ = sin(2*pi*293.66*DQ_time);
        t = 0:delta:dur(i);  
+
DQ = sin(2*pi*293.66*Q);
        y = sin(2*pi*x(i)*t*scale);
+
EEN =sin(2*pi*329.63*EN);
        sound(y,1/delta);
+
GBQ=sin(2*pi*369.99*Q);
    end
+
GQ=sin(2*pi*392*Q);
elseif(strcmp(part,'b'))
+
GEN=sin(2*pi*392*EN);
    dur=dur./2;
+
FEN= sin(2*pi*349.23*EN);
    for i = 1:length(dur)
+
GBEN=sin(2*pi*369.99*EN);
        t = 0:delta:dur(i);  
+
 
        y= sin(2*pi*x(i)*t*scale);
+
notes= [AH BQ DBQ DDQ EEN GBQ GBQ GQ GEN GEN DQ EEN FEN GBEN];
        sound(y,1/delta);
+
 
    end
+
sound (notes,1/delta);
elseif(strcmp(part,'c'))
+
wavwrite(notes,1/delta,32,'music-a.wav');
    scale=2;
+
 
    for i = 1:length(dur)
+
% PART B
        t = 0:delta:dur(i);  
+
delta = 0.0005;
        y = sin(2*pi*x(i)*t*scale);
+
H=0:delta: 0.5;
        sound(y,1/delta);
+
Q=0:delta:0.25;
    end
+
DQ_time=0:delta:0.375;
else
+
EN=0:delta:0.125;
    fprintf('Sorry,there is no corresponding part');
+
 
end
+
AH = sin(2*pi*220*H);
 +
BQ= sin(2*pi*493.88/2*Q);
 +
DBQ=sin(2*pi*277.18*Q);
 +
DDQ = sin(2*pi*293.66*DQ_time);
 +
DQ = sin(2*pi*293.66*Q);
 +
EEN =sin(2*pi*329.63*EN);
 +
GBQ=sin(2*pi*369.99*Q);
 +
GQ=sin(2*pi*392*Q);
 +
GEN=sin(2*pi*392*EN);
 +
FEN= sin(2*pi*349.23*EN);
 +
GBEN=sin(2*pi*369.99*EN);
 +
 
 +
notes= [AH BQ DBQ DDQ EEN GBQ GBQ GQ GEN GEN DQ EEN FEN GBEN];
 +
 
 +
sound (notes,1/delta);
 +
wavwrite(notes,1/delta,32,'music-b.wav');
 +
 
 +
% PART C
 +
delta = 0.0005;
 +
H=0:delta: 1;
 +
Q=0:delta:0.5;
 +
DQ_time=0:delta:0.75;
 +
EN=0:delta:0.25;
 +
 
 +
AH = sin(2*pi*2*220*H);
 +
BQ= sin(2*pi*2*493.88/2*Q);
 +
DBQ=sin(2*pi*2*277.18*Q);
 +
DDQ = sin(2*pi*2*293.66*DQ_time);
 +
DQ = sin(2*pi*2*293.66*Q);
 +
EEN =sin(2*pi*2*329.63*EN);
 +
GBQ=sin(2*pi*2*369.99*Q);
 +
GQ=sin(2*pi*2*392*Q);
 +
GEN=sin(2*pi*2*392*EN);
 +
FEN= sin(2*pi*2*349.23*EN);
 +
GBEN=sin(2*pi*2*369.99*EN);
 +
 
 +
notes= [AH BQ DBQ DDQ EEN GBQ GBQ GQ GEN GEN DQ EEN FEN GBEN];
 +
 
 +
 
 +
sound (notes,1/delta);
 +
wavwrite(notes,1/delta,32,'music-c.wav');

Revision as of 18:03, 1 September 2008

%Hetong Li
%09/01/08
%ECE301 hw1.1

clear;
clc;
% PART A
delta = 0.0005;
H=0:delta: 1;
Q=0:delta:0.5;
DQ_time=0:delta:0.75;
EN=0:delta:0.25;

AH = sin(2*pi*220*H);
BQ= sin(2*pi*493.88/2*Q);
DBQ=sin(2*pi*277.18*Q);
DDQ = sin(2*pi*293.66*DQ_time);
DQ = sin(2*pi*293.66*Q);
EEN =sin(2*pi*329.63*EN);
GBQ=sin(2*pi*369.99*Q);
GQ=sin(2*pi*392*Q);
GEN=sin(2*pi*392*EN);
FEN= sin(2*pi*349.23*EN);
GBEN=sin(2*pi*369.99*EN);

notes= [AH BQ DBQ DDQ EEN GBQ GBQ GQ GEN GEN DQ EEN FEN GBEN];

sound (notes,1/delta);
wavwrite(notes,1/delta,32,'music-a.wav');

% PART B
delta = 0.0005;
H=0:delta: 0.5;
Q=0:delta:0.25;
DQ_time=0:delta:0.375;
EN=0:delta:0.125;

AH = sin(2*pi*220*H);
BQ= sin(2*pi*493.88/2*Q);
DBQ=sin(2*pi*277.18*Q);
DDQ = sin(2*pi*293.66*DQ_time);
DQ = sin(2*pi*293.66*Q);
EEN =sin(2*pi*329.63*EN);
GBQ=sin(2*pi*369.99*Q);
GQ=sin(2*pi*392*Q);
GEN=sin(2*pi*392*EN);
FEN= sin(2*pi*349.23*EN);
GBEN=sin(2*pi*369.99*EN);

notes= [AH BQ DBQ DDQ EEN GBQ GBQ GQ GEN GEN DQ EEN FEN GBEN];

sound (notes,1/delta);
wavwrite(notes,1/delta,32,'music-b.wav');

% PART C
delta = 0.0005;
H=0:delta: 1;
Q=0:delta:0.5;
DQ_time=0:delta:0.75;
EN=0:delta:0.25;

AH = sin(2*pi*2*220*H);
BQ= sin(2*pi*2*493.88/2*Q);
DBQ=sin(2*pi*2*277.18*Q);
DDQ = sin(2*pi*2*293.66*DQ_time);
DQ = sin(2*pi*2*293.66*Q);
EEN =sin(2*pi*2*329.63*EN);
GBQ=sin(2*pi*2*369.99*Q);
GQ=sin(2*pi*2*392*Q);
GEN=sin(2*pi*2*392*EN);
FEN= sin(2*pi*2*349.23*EN);
GBEN=sin(2*pi*2*369.99*EN);

notes= [AH BQ DBQ DDQ EEN GBQ GBQ GQ GEN GEN DQ EEN FEN GBEN];


sound (notes,1/delta);
wavwrite(notes,1/delta,32,'music-c.wav');

Alumni Liaison

Ph.D. 2007, working on developing cool imaging technologies for digital cameras, camera phones, and video surveillance cameras.

Buyue Zhang