Line 1: Line 1:
 [[Media:112bpm.wav|112bpm.wav]]
+
clear all;<br>clc
  
&nbsp;[[Media:224bpm.wav|224bpm.wav]]  
+
%%Question 1. Part 1.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 +
 
 +
bpm = 112;
 +
 
 +
delta = 0.00005;
 +
 
 +
%%Note lengths.<br>half = [0:delta:120/bpm];<br>quart = [0:delta:60/bpm];<br>eighth = [0:delta:30/bpm];<br>dotquart = [0:delta:90/bpm];
 +
 
 +
%%Note Frequencies.<br>gfreq = 2^(-2/12)*440;<br>bffreq = 2^(1/12)*440;<br>cfreq = 2^(3/12)*440;<br>dffreq = 2^(4/12)*440;
 +
 
 +
%%Notes<br>G = sin(2*pi*gfreq*quart);<br>Bf = sin(2*pi*bffreq*quart);<br>Cdq = sin(2*pi*cfreq*dotquart);<br>Df = sin(2*pi*dffreq*eighth);<br>Ch = sin(2*pi*cfreq*half);
 +
 
 +
%%Song<br>song = [G, Bf, Cdq, G, Bf, Df, Ch, G, Bf, Cdq, Bf, G];
 +
 
 +
sound(song, 1/delta)<br>wavwrite(song, 1/delta, '112bpm.wav')<br>pause(1);
 +
 
 +
<br>%%Question 1. Part 2.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 +
 
 +
bpmfast = 224;
 +
 
 +
%%Note lengths.<br>half = [0:delta:120/bpmfast];<br>quart = [0:delta:60/bpmfast];<br>eighth = [0:delta:30/bpmfast];<br>dotquart = [0:delta:90/bpmfast];
 +
 
 +
%%Notes<br>G = sin(2*pi*gfreq*quart);<br>Bf = sin(2*pi*bffreq*quart);<br>Cdq = sin(2*pi*cfreq*dotquart);<br>Df = sin(2*pi*dffreq*eighth);<br>Ch = sin(2*pi*cfreq*half);
 +
 
 +
%%Fast Song<br>fastsong = [G, Bf, Cdq, G, Bf, Df, Ch, G, Bf, Cdq, Bf, G];
 +
 
 +
sound(fastsong, 1/delta)<br>wavwrite(fastsong, 1/delta, '224bpm.wav')<br>pause(1);
 +
 
 +
%%Question 1. Part 3.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 +
 
 +
bpm = 112;
 +
 
 +
delta = 0.00005;
 +
 
 +
%%Note lengths.<br>half = [0:delta:120/bpm];<br>quart = [0:delta:60/bpm];<br>eighth = [0:delta:30/bpm];<br>dotquart = [0:delta:90/bpm];
 +
 
 +
%%Note Frequencies.<br>gfreq = 2^(-2/12)*440;<br>bffreq = 2^(1/12)*440;<br>cfreq = 2^(3/12)*440;<br>dffreq = 2^(4/12)*440;
 +
 
 +
%%Notes<br>G = sin(4*pi*gfreq*quart);<br>Bf = sin(4*pi*bffreq*quart);<br>Cdq = sin(4*pi*cfreq*dotquart);<br>Df = sin(4*pi*dffreq*eighth);<br>Ch = sin(4*pi*cfreq*half);
 +
 
 +
%%Song<br>highsong = [G, Bf, Cdq, G, Bf, Df, Ch, G, Bf, Cdq, Bf, G];
 +
 
 +
sound(highsong, 1/delta)<br>wavwrite(highsong, 1/delta, 'highpitch.wav')
 +
 
 +
%%Combining all songs into one.<br>combined = horzcat(1, song, fastsong, highsong);
 +
 
 +
wavwrite(combined, 1/delta, 'combined.wav')
 +
 
 +
 
 +
 
 +
%%Question 2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 +
 
 +
[Beatles, fs, N] = wavread('Beatles.wav');<br>RevBeatles = flipud(Beatles);<br>sound(RevBeatles, fs)<br>wavwrite(RevBeatles, fs, N, 'seltaeB.wav');
 +
 
 +
 
 +
 
 +
Output Files:
 +
 
 +
[[Media:112bpm.wav|112bpm.wav]]
 +
 
 +
[[Media:224bpm.wav|224bpm.wav]]  
  
 
[[Media:Highpitch.wav|highpitch.wav]]  
 
[[Media:Highpitch.wav|highpitch.wav]]  
Line 7: Line 67:
 
[[Media:Combined.wav|combined.wav]]  
 
[[Media:Combined.wav|combined.wav]]  
  
[[Media:seltaeB.wav|seltaeB.wav]]
+
[[Media:SeltaeB.wav|seltaeB.wav]]

Revision as of 02:21, 18 January 2011

clear all;
clc

%%Question 1. Part 1.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

bpm = 112;

delta = 0.00005;

%%Note lengths.
half = [0:delta:120/bpm];
quart = [0:delta:60/bpm];
eighth = [0:delta:30/bpm];
dotquart = [0:delta:90/bpm];

%%Note Frequencies.
gfreq = 2^(-2/12)*440;
bffreq = 2^(1/12)*440;
cfreq = 2^(3/12)*440;
dffreq = 2^(4/12)*440;

%%Notes
G = sin(2*pi*gfreq*quart);
Bf = sin(2*pi*bffreq*quart);
Cdq = sin(2*pi*cfreq*dotquart);
Df = sin(2*pi*dffreq*eighth);
Ch = sin(2*pi*cfreq*half);

%%Song
song = [G, Bf, Cdq, G, Bf, Df, Ch, G, Bf, Cdq, Bf, G];

sound(song, 1/delta)
wavwrite(song, 1/delta, '112bpm.wav')
pause(1);


%%Question 1. Part 2.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

bpmfast = 224;

%%Note lengths.
half = [0:delta:120/bpmfast];
quart = [0:delta:60/bpmfast];
eighth = [0:delta:30/bpmfast];
dotquart = [0:delta:90/bpmfast];

%%Notes
G = sin(2*pi*gfreq*quart);
Bf = sin(2*pi*bffreq*quart);
Cdq = sin(2*pi*cfreq*dotquart);
Df = sin(2*pi*dffreq*eighth);
Ch = sin(2*pi*cfreq*half);

%%Fast Song
fastsong = [G, Bf, Cdq, G, Bf, Df, Ch, G, Bf, Cdq, Bf, G];

sound(fastsong, 1/delta)
wavwrite(fastsong, 1/delta, '224bpm.wav')
pause(1);

%%Question 1. Part 3.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

bpm = 112;

delta = 0.00005;

%%Note lengths.
half = [0:delta:120/bpm];
quart = [0:delta:60/bpm];
eighth = [0:delta:30/bpm];
dotquart = [0:delta:90/bpm];

%%Note Frequencies.
gfreq = 2^(-2/12)*440;
bffreq = 2^(1/12)*440;
cfreq = 2^(3/12)*440;
dffreq = 2^(4/12)*440;

%%Notes
G = sin(4*pi*gfreq*quart);
Bf = sin(4*pi*bffreq*quart);
Cdq = sin(4*pi*cfreq*dotquart);
Df = sin(4*pi*dffreq*eighth);
Ch = sin(4*pi*cfreq*half);

%%Song
highsong = [G, Bf, Cdq, G, Bf, Df, Ch, G, Bf, Cdq, Bf, G];

sound(highsong, 1/delta)
wavwrite(highsong, 1/delta, 'highpitch.wav')

%%Combining all songs into one.
combined = horzcat(1, song, fastsong, highsong);

wavwrite(combined, 1/delta, 'combined.wav')


%%Question 2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

[Beatles, fs, N] = wavread('Beatles.wav');
RevBeatles = flipud(Beatles);
sound(RevBeatles, fs)
wavwrite(RevBeatles, fs, N, 'seltaeB.wav');


Output Files:

112bpm.wav

224bpm.wav

highpitch.wav

combined.wav

seltaeB.wav

Alumni Liaison

Have a piece of advice for Purdue students? Share it through Rhea!

Alumni Liaison