Line 1: Line 1:
 
= Michael Meyer: ECE 301 Homework 1  =
 
= Michael Meyer: ECE 301 Homework 1  =
  
<source lang="matlab">clear all;
+
<source lang="">clear all;
clc
+
 
  
 
%%Question 1. Part 1.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
%%Question 1. Part 1.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Line 102: Line 102:
 
RevBeatles = flipud(Beatles);
 
RevBeatles = flipud(Beatles);
 
sound(RevBeatles, fs)
 
sound(RevBeatles, fs)
wavwrite(RevBeatles, fs, N, 'seltaeB.wav');</source><br>
+
wavwrite(RevBeatles, fs, N, 'seltaeB.wav');</source><br>  
  
 
<br>  
 
<br>  

Revision as of 02:29, 18 January 2011

Michael Meyer: ECE 301 Homework 1

Invalid language.

You need to specify a language like this: <source lang="html4strict">...</source>

Supported languages for syntax highlighting:

4cs, 6502acme, 6502kickass, 6502tasm, 68000devpac, abap, actionscript, actionscript3, ada, algol68, apache, applescript, apt_sources, arm, asm, asp, asymptote, autoconf, autohotkey, autoit, avisynth, awk, bascomavr, bash, basic4gl, bf, bibtex, blitzbasic, bnf, boo, c, c_loadrunner, c_mac, caddcl, cadlisp, cfdg, cfm, chaiscript, cil, clojure, cmake, cobol, coffeescript, cpp, cpp-qt, csharp, css, cuesheet, d, dcl, dcpu16, dcs, delphi, diff, div, dos, dot, e, ecmascript, eiffel, email, epc, erlang, euphoria, f1, falcon, fo, fortran, freebasic, freeswitch, fsharp, gambas, gdb, genero, genie, gettext, glsl, gml, gnuplot, go, groovy, gwbasic, haskell, haxe, hicest, hq9plus, html4strict, html5, icon, idl, ini, inno, intercal, io, j, java, java5, javascript, jquery, kixtart, klonec, klonecpp, latex, lb, ldif, lisp, llvm, locobasic, logtalk, lolcode, lotusformulas, lotusscript, lscript, lsl2, lua, m68k, magiksf, make, mapbasic, matlab, mirc, mmix, modula2, modula3, mpasm, mxml, mysql, nagios, netrexx, newlisp, nsis, oberon2, objc, objeck, ocaml, ocaml-brief, octave, oobas, oorexx, oracle11, oracle8, oxygene, oz, parasail, parigp, pascal, pcre, per, perl, perl6, pf, php, php-brief, pic16, pike, pixelbender, pli, plsql, postgresql, povray, powerbuilder, powershell, proftpd, progress, prolog, properties, providex, purebasic, pycon, pys60, python, q, qbasic, rails, rebol, reg, rexx, robots, rpmspec, rsplus, ruby, sas, scala, scheme, scilab, sdlbasic, smalltalk, smarty, spark, sparql, sql, stonescript, systemverilog, tcl, teraterm, text, thinbasic, tsql, typoscript, unicon, upc, urbi, uscript, vala, vb, vbnet, vedit, verilog, vhdl, vim, visualfoxpro, visualprolog, whitespace, whois, winbatch, xbasic, xml, xorg_conf, xpp, yaml, z80, zxbasic


clear all;


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

Followed her dream after having raised her family.

Ruth Enoch, PhD Mathematics