(→Sound Files) |
(→MATLAB Code) |
||
| (2 intermediate revisions by the same user not shown) | |||
| Line 27: | Line 27: | ||
noteList = [A, B, D, D*2, E, G, G, G*2, G*2, G*2, D*2, E, F, G]; %list of notes | noteList = [A, B, D, D*2, E, G, G, G*2, G*2, G*2, D*2, E, F, G]; %list of notes | ||
| + | %Normal speed | ||
song = [0]; | song = [0]; | ||
| − | |||
| − | |||
for count=1:length(noteList); | for count=1:length(noteList); | ||
t = 0:delta:0.5; | t = 0:delta:0.5; | ||
| Line 57: | Line 56: | ||
end | end | ||
sound(songHigh, 1/delta); | sound(songHigh, 1/delta); | ||
| − | wavwrite( | + | wavwrite(songHigh, 20000, 16, 'hailPurd_highpitch.wav'); |
</pre> | </pre> | ||
| Line 68: | Line 67: | ||
[[Media:HailPurd_fast_ECE301Fall2008mboutin.wav]] | [[Media:HailPurd_fast_ECE301Fall2008mboutin.wav]] | ||
| − | Higher pitched | + | Higher pitched: |
[[Media:HailPurd_highpitch_ECE301Fall2008mboutin.wav]] | [[Media:HailPurd_highpitch_ECE301Fall2008mboutin.wav]] | ||
Latest revision as of 05:11, 5 September 2008
MATLAB Code
% Hang Zhang
% ECE301
% Homework 1.1
% 9-5-08
%Preparation
clc
clear all
%Solve for X given 440Hz is an A note by using the directions given on instruction sheet.
A = 440;
x = 440*3/5;
upC = 2*x; %upper C
B = 15*x/8;
G = 3*x/2;
F = 4*x/3;
E = 5*x/4;
D = 9*x/8;
midC = x; %middle C
delta = 1/20000;
noteLength = .25;%length of note being played
noteList = [A, B, D, D*2, E, G, G, G*2, G*2, G*2, D*2, E, F, G]; %list of notes
%Normal speed
song = [0];
for count=1:length(noteList);
t = 0:delta:0.5;
song = [song sin(2*pi*t*noteList(count))];
end
sound(song, 1/delta);
wavwrite(song, 20000, 16, 'hailPurd_norm.wav');
fprintf('Press enter after music stops....\n')
pause
%Twice as fast
songFast = [0];
for count=1:length(noteList);
t = 0:delta:0.25;
songFast = [songFast sin(2*pi*t*noteList(count))];
end
sound(songFast, 1/delta);
wavwrite(songFast, 20000, 16, 'hailPurd_fast.wav');
fprintf('Press enter after music stops....\n')
pause
%Twice the frequency
songHigh = [0];
for count=1:length(noteList)
t = 0:delta:0.5;
songHigh = [songHigh sin(2*pi*t*2*noteList(count))];
end
sound(songHigh, 1/delta);
wavwrite(songHigh, 20000, 16, 'hailPurd_highpitch.wav');
Sound Files
Normal Rate: Media:HailPurd_norm_ECE301Fall2008mboutin.wav
Fast Rate: Media:HailPurd_fast_ECE301Fall2008mboutin.wav
Higher pitched: Media:HailPurd_highpitch_ECE301Fall2008mboutin.wav
