%ECE 301 Homework 1
%Carolyn McMican
clc;
clear all;
%PART 1
deltat = 5e-5;
bpm = 112;
afreq = 440;
%1a
q = 60/bpm; %quarter length
e = q/2; %eighth length
d_q = q + e; %dotted quarter length
h = 2*q; %half note length
quarter = [0:deltat:q];
eighth = [0:deltat:e];
dQuarter = [0:deltat:d_q];
half = [0:deltat:h];
rest_len = [0:deltat:(h+e)]; %rest at the end
%the notes of the tune
q_g = sin(2*pi*2^(-2/12)*afreq*quarter);
q_bf = sin(2*pi*2^(1/12)*afreq*quarter);
dQ_c = sin(2*pi*2^(3/12)*afreq*dQuarter);
e_df = sin(2*pi*2^(4/12)*afreq*eighth);
h_c = sin(2*pi*2^(3/12)*afreq*half);
r = zeros(size(rest_len));
smokeWaterA = [q_g, q_bf, dQ_c, q_g, q_bf, e_df, h_c, q_g, q_bf, dQ_c, q_bf, q_g, r];
wavwrite(smokeWaterA, 20000, 'smokeWater1a');
%1b
quarter2 = [0:deltat:q/2];
eighth2 = [0:deltat:e/2];
dQuarter2 = [0:deltat:d_q/2];
half2 = [0:deltat:h/2];
rest_len2 = [0:deltat:(h+e)/2];
%notes of the faster tune
q_g = sin(2*pi*2^(-2/12)*afreq*quarter2);
q_bf = sin(2*pi*2^(1/12)*afreq*quarter2);
dQ_c = sin(2*pi*2^(3/12)*afreq*dQuarter2);
e_df = sin(2*pi*2^(4/12)*afreq*eighth2);
h_c = sin(2*pi*2^(3/12)*afreq*half2);
r = zeros(size(rest_len2));
smokeWaterB = [q_g, q_bf, dQ_c, q_g, q_bf, e_df, h_c, q_g, q_bf, dQ_c, q_bf, q_g, r];
wavwrite(smokeWaterB, 20000, 'smokeWater1b');
%1c - the 2t tune
q_g = sin(2*(2*pi*2^(-2/12)*afreq*quarter));
q_bf = sin(2*(2*pi*2^(1/12)*afreq*quarter));
dQ_c = sin(2*(2*pi*2^(3/12)*afreq*dQuarter));
e_df = sin(2*(2*pi*2^(4/12)*afreq*eighth));
h_c = sin(2*(2*pi*2^(3/12)*afreq*half));
r = zeros(size(rest_len));
smokeWaterC = [q_g, q_bf, dQ_c, q_g, q_bf, e_df, h_c, q_g, q_bf, dQ_c, q_bf, q_g, r];
wavwrite(smokeWaterC, 20000, 'smokeWater1c');
%PART 2
beatles = wavread('Beatles.wav');
b_flipped = flipud(beatles);
wavwrite(b_flipped, 40000, 'flipped');
%going forward, it says "number nine"
%going backwards, honestly it sounds like "num yawn dud man", but most
%people seem to think that it sounds like "turn me on dead man"
--Cmcmican 17:36, 16 January 2011 (UTC)
