%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"
