(New page: %HW 1 Problem 1a clear all clc f_A = 440; % Frequency of A4 tempo = 112/60; % Tempo of the song delta = 5e-5; % Spacing between data fs = 1/delta; % Frequency at which the song will be pl...)
 
 
(9 intermediate revisions by the same user not shown)
Line 1: Line 1:
 
%HW 1 Problem 1a
 
%HW 1 Problem 1a
 +
 
clear all
 
clear all
 +
 
clc
 
clc
  
 
f_A = 440; % Frequency of A4
 
f_A = 440; % Frequency of A4
 +
 
tempo = 112/60; % Tempo of the song
 
tempo = 112/60; % Tempo of the song
 +
 
delta = 5e-5; % Spacing between data
 
delta = 5e-5; % Spacing between data
 +
 
fs = 1/delta; % Frequency at which the song will be played
 
fs = 1/delta; % Frequency at which the song will be played
 +
  
 
G = 2^(-2/12)*f_A; % Calculates the frequency of G
 
G = 2^(-2/12)*f_A; % Calculates the frequency of G
 +
 
C = 2^(3/12)*f_A; % Calculates the frequency of C
 
C = 2^(3/12)*f_A; % Calculates the frequency of C
 +
 
Bflat = 2^(1/12)*f_A; % Calculates the frequency of B flat
 
Bflat = 2^(1/12)*f_A; % Calculates the frequency of B flat
 +
 
Dflat = 2^(4/12)*f_A; % Calculates the frequency of D flat
 
Dflat = 2^(4/12)*f_A; % Calculates the frequency of D flat
 +
  
 
H = 0:delta:(2/tempo); % Creates a matrix for the length of a half note
 
H = 0:delta:(2/tempo); % Creates a matrix for the length of a half note
 +
 
Q = 0:delta:(1/tempo); % Creates a matrix for the length of a quater note  
 
Q = 0:delta:(1/tempo); % Creates a matrix for the length of a quater note  
 +
 
E = 0:delta:((1/2)/(tempo)); % Creates a matrix for the length of a eigth note  
 
E = 0:delta:((1/2)/(tempo)); % Creates a matrix for the length of a eigth note  
 +
 
DQ = 0:delta:((3/2)/(tempo)); % Creates a matrix for the length of a dotted quater note  
 
DQ = 0:delta:((3/2)/(tempo)); % Creates a matrix for the length of a dotted quater note  
 +
  
 
% Creates Matrix for the song based on the note and the time it is held
 
% Creates Matrix for the song based on the note and the time it is held
−
z = [sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*Dflat*E), sin(2*pi*C*H), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*Bflat*Q), sin(2*pi*G*Q)];
+
 
 +
z = [sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*Dflat*E), sin(2*pi*C*H),  
 +
sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*Bflat*Q), sin(2*pi*G*Q)];
 +
 
  
 
sound(z, fs) % Plays the song  
 
sound(z, fs) % Plays the song  
 +
 
wavwrite(z, fs, 'Question1A.wav'); %Writes song into wav file
 
wavwrite(z, fs, 'Question1A.wav'); %Writes song into wav file
 +
  
 
[[Media:Question1A.wav]]
 
[[Media:Question1A.wav]]
 +
  
 
%HW 1 Problem 1b
 
%HW 1 Problem 1b
 +
 
clear all
 
clear all
 +
 
clc
 
clc
 +
  
 
f_A = 440; % Frequency of A4
 
f_A = 440; % Frequency of A4
 +
 
tempo = 112/60; % Tempo of the song
 
tempo = 112/60; % Tempo of the song
 +
 
delta = 5e-5;  % Spacing between data
 
delta = 5e-5;  % Spacing between data
 +
 
fs = 1/delta; % Frequency at which the song will be played
 
fs = 1/delta; % Frequency at which the song will be played
 +
  
 
G = 2^(-2/12)*f_A; % Calculates the frequency of G
 
G = 2^(-2/12)*f_A; % Calculates the frequency of G
 +
 
C = 2^(3/12)*f_A; % Calculates the frequency of C
 
C = 2^(3/12)*f_A; % Calculates the frequency of C
 +
 
Bflat = 2^(1/12)*f_A; % Calculates the frequency of B flat
 
Bflat = 2^(1/12)*f_A; % Calculates the frequency of B flat
 +
 
Dflat = 2^(4/12)*f_A; % Calculates the frequency of D flat
 
Dflat = 2^(4/12)*f_A; % Calculates the frequency of D flat
 +
  
 
H = 0:delta:(2/tempo); % Creates a matrix for the length of a half note
 
H = 0:delta:(2/tempo); % Creates a matrix for the length of a half note
 +
 
Q = 0:delta:(1/tempo); % Creates a matrix for the length of a quater note  
 
Q = 0:delta:(1/tempo); % Creates a matrix for the length of a quater note  
 +
 
E = 0:delta:((1/2)/(tempo)); % Creates a matrix for the length of a eigth note  
 
E = 0:delta:((1/2)/(tempo)); % Creates a matrix for the length of a eigth note  
 +
 
DQ = 0:delta:((3/2)/(tempo)); % Creates a matrix for the length of a dotted quater note  
 
DQ = 0:delta:((3/2)/(tempo)); % Creates a matrix for the length of a dotted quater note  
 +
  
 
% Creates Matrix for the song based on the note and the time  
 
% Creates Matrix for the song based on the note and the time  
 +
 
z = [sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*Dflat*E), sin(2*pi*C*H), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*Bflat*Q), sin(2*pi*G*Q)];
 
z = [sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*Dflat*E), sin(2*pi*C*H), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*Bflat*Q), sin(2*pi*G*Q)];
 +
  
 
sound(z, 2*(fs)) % Plays the song the two times faster by multiplying the frequency by 2
 
sound(z, 2*(fs)) % Plays the song the two times faster by multiplying the frequency by 2
 +
 
wavwrite(z ,fs ,'Question1B.wav'); %Writes song into wav file
 
wavwrite(z ,fs ,'Question1B.wav'); %Writes song into wav file
  
−
[[Media:Question1B.wav]]
+
 
 +
 
  
 
%HW 1 Problem 1c
 
%HW 1 Problem 1c
 +
 +
 
clear all
 
clear all
 +
 
clc
 
clc
 +
  
 
f_A = 440; % Frequency of A4
 
f_A = 440; % Frequency of A4
 +
 
tempo = 112/60; % Tempo of the song
 
tempo = 112/60; % Tempo of the song
 +
 
delta = 5e-5;  % Spacing between data
 
delta = 5e-5;  % Spacing between data
 +
 
fs = 1/delta; % Frequency at which the song will be played
 
fs = 1/delta; % Frequency at which the song will be played
 +
  
 
f_A = 2*f_A; % Rescales the song according to the transforamtion function y(t) = x(2t)
 
f_A = 2*f_A; % Rescales the song according to the transforamtion function y(t) = x(2t)
 +
 
G = 2^(-2/12)*f_A; % Calculates the frequency of G
 
G = 2^(-2/12)*f_A; % Calculates the frequency of G
 +
 
C = 2^(3/12)*f_A; % Calculates the frequency of C
 
C = 2^(3/12)*f_A; % Calculates the frequency of C
 +
 
Bflat = 2^(1/12)*f_A; % Calculates the frequency of B flat
 
Bflat = 2^(1/12)*f_A; % Calculates the frequency of B flat
 +
 
Dflat = 2^(4/12)*f_A; % Calculates the frequency of D flat
 
Dflat = 2^(4/12)*f_A; % Calculates the frequency of D flat
 +
  
 
H = 0:delta:(2/tempo); % Creates a matrix for the length of a half note
 
H = 0:delta:(2/tempo); % Creates a matrix for the length of a half note
 +
 
Q = 0:delta:(1/tempo); % Creates a matrix for the length of a quater note  
 
Q = 0:delta:(1/tempo); % Creates a matrix for the length of a quater note  
 +
 
E = 0:delta:((1/2)/(tempo)); % Creates a matrix for the length of a eigth note  
 
E = 0:delta:((1/2)/(tempo)); % Creates a matrix for the length of a eigth note  
 +
 
DQ = 0:delta:((3/2)/(tempo)); % Creates a matrix for the length of a dotted quater note  
 
DQ = 0:delta:((3/2)/(tempo)); % Creates a matrix for the length of a dotted quater note  
 +
  
 
% Creates Matrix for the song based on the note and the time  
 
% Creates Matrix for the song based on the note and the time  
 +
 
z = [sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*Dflat*E), sin(2*pi*C*H), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*Bflat*Q), sin(2*pi*G*Q)];
 
z = [sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*Dflat*E), sin(2*pi*C*H), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*Bflat*Q), sin(2*pi*G*Q)];
 +
  
 
sound(z, fs) % Plays the rescaled song   
 
sound(z, fs) % Plays the rescaled song   
 +
 
wavwrite(z, fs, 'Question1C.wav'); %Writes song into wav file
 
wavwrite(z, fs, 'Question1C.wav'); %Writes song into wav file
 +
  
 
[[Media:Question1C.wav]]
 
[[Media:Question1C.wav]]
 +
  
 
%HW 1 Problem 2
 
%HW 1 Problem 2
 +
 +
 
clear all
 
clear all
 +
 
clc
 
clc
  
−
[x,f] = wavread('Beatles.wav'); %Reads Beatles wav file and places it a matrix x and variable f for the function
+
 
 +
[x,f] = wavread('Beatles.wav'); %Reads Beatles wav file and places it a matrix x for the data and variable f for the frequency
 
y = flipud(x); %System which flips the data for the song allowing it to be reveresed
 
y = flipud(x); %System which flips the data for the song allowing it to be reveresed
 +
  
 
wavplay(y,f) % Plays the reversed song
 
wavplay(y,f) % Plays the reversed song
 +
 
wavwrite(y, f, 'Question2.wav'); %Writes song into wav  
 
wavwrite(y, f, 'Question2.wav'); %Writes song into wav  
 +
 
% The reverse song doesn't sound like anything to me. After a quick google
 
% The reverse song doesn't sound like anything to me. After a quick google
 
% search its suppose to say "turn me on dead man" and then can I kind of
 
% search its suppose to say "turn me on dead man" and then can I kind of

Latest revision as of 16:54, 18 January 2011

%HW 1 Problem 1a

clear all

clc

f_A = 440; % Frequency of A4

tempo = 112/60; % Tempo of the song

delta = 5e-5; % Spacing between data

fs = 1/delta; % Frequency at which the song will be played


G = 2^(-2/12)*f_A; % Calculates the frequency of G

C = 2^(3/12)*f_A; % Calculates the frequency of C

Bflat = 2^(1/12)*f_A; % Calculates the frequency of B flat

Dflat = 2^(4/12)*f_A; % Calculates the frequency of D flat


H = 0:delta:(2/tempo); % Creates a matrix for the length of a half note

Q = 0:delta:(1/tempo); % Creates a matrix for the length of a quater note

E = 0:delta:((1/2)/(tempo)); % Creates a matrix for the length of a eigth note

DQ = 0:delta:((3/2)/(tempo)); % Creates a matrix for the length of a dotted quater note


% Creates Matrix for the song based on the note and the time it is held

z = [sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*Dflat*E), sin(2*pi*C*H), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*Bflat*Q), sin(2*pi*G*Q)];


sound(z, fs) % Plays the song

wavwrite(z, fs, 'Question1A.wav'); %Writes song into wav file


Media:Question1A.wav


%HW 1 Problem 1b

clear all

clc


f_A = 440; % Frequency of A4

tempo = 112/60; % Tempo of the song

delta = 5e-5;  % Spacing between data

fs = 1/delta; % Frequency at which the song will be played


G = 2^(-2/12)*f_A; % Calculates the frequency of G

C = 2^(3/12)*f_A; % Calculates the frequency of C

Bflat = 2^(1/12)*f_A; % Calculates the frequency of B flat

Dflat = 2^(4/12)*f_A; % Calculates the frequency of D flat


H = 0:delta:(2/tempo); % Creates a matrix for the length of a half note

Q = 0:delta:(1/tempo); % Creates a matrix for the length of a quater note

E = 0:delta:((1/2)/(tempo)); % Creates a matrix for the length of a eigth note

DQ = 0:delta:((3/2)/(tempo)); % Creates a matrix for the length of a dotted quater note


% Creates Matrix for the song based on the note and the time

z = [sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*Dflat*E), sin(2*pi*C*H), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*Bflat*Q), sin(2*pi*G*Q)];


sound(z, 2*(fs)) % Plays the song the two times faster by multiplying the frequency by 2

wavwrite(z ,fs ,'Question1B.wav'); %Writes song into wav file



%HW 1 Problem 1c


clear all

clc


f_A = 440; % Frequency of A4

tempo = 112/60; % Tempo of the song

delta = 5e-5;  % Spacing between data

fs = 1/delta; % Frequency at which the song will be played


f_A = 2*f_A; % Rescales the song according to the transforamtion function y(t) = x(2t)

G = 2^(-2/12)*f_A; % Calculates the frequency of G

C = 2^(3/12)*f_A; % Calculates the frequency of C

Bflat = 2^(1/12)*f_A; % Calculates the frequency of B flat

Dflat = 2^(4/12)*f_A; % Calculates the frequency of D flat


H = 0:delta:(2/tempo); % Creates a matrix for the length of a half note

Q = 0:delta:(1/tempo); % Creates a matrix for the length of a quater note

E = 0:delta:((1/2)/(tempo)); % Creates a matrix for the length of a eigth note

DQ = 0:delta:((3/2)/(tempo)); % Creates a matrix for the length of a dotted quater note


% Creates Matrix for the song based on the note and the time

z = [sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*Dflat*E), sin(2*pi*C*H), sin(2*pi*G*Q), sin(2*pi*Bflat*Q), sin(2*pi*C*DQ), sin(2*pi*Bflat*Q), sin(2*pi*G*Q)];


sound(z, fs) % Plays the rescaled song

wavwrite(z, fs, 'Question1C.wav'); %Writes song into wav file


Media:Question1C.wav


%HW 1 Problem 2


clear all

clc


[x,f] = wavread('Beatles.wav'); %Reads Beatles wav file and places it a matrix x for the data and variable f for the frequency y = flipud(x); %System which flips the data for the song allowing it to be reveresed


wavplay(y,f) % Plays the reversed song

wavwrite(y, f, 'Question2.wav'); %Writes song into wav

% The reverse song doesn't sound like anything to me. After a quick google % search its suppose to say "turn me on dead man" and then can I kind of % hear it.

Media:Question2.wav

Retrieved from "https://www.projectrhea.org/rhea/index.php?title=Hw1_ECE301SII_Christian_Rivera&oldid=44395"
Shortcuts
Help Main Wiki Page Random Page Special Pages Log in
Search

Alumni Liaison

Correspondence Chess Grandmaster and Purdue Alumni

Prof. Dan Fleetwood