Difference between revisions of "Hw1 ECE301S11 Alberto Peralta" - Rhea

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>%<br>% Programmer and Purdue Email Address:<br>% 1.Alberto Peralta aperalta@purdue.edu<br>%<br>% Homework #:01<br>%<br>% <br>%<br>% <br>%<br>% Program Description:This program will attempt to play Smoke in the water in its<br>% original speed, then tw0 times faster and then with an octave higher,<br>% lasting half the time<br>% <br>%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%/<br>tempo=(60/112);<br>Sol=(2^(-2/12))*440;<br>Sib=(2^(1/12))*440;<br>Do=(2^(3/12))*440;<br>Reb=(2^(4/12))*440;<br>deltat = .00005;<br>negra=0:deltat:1*tempo;<br>puntillo=0:deltat:1.5*tempo;<br>corchea=0:deltat:.5*tempo; <br>blanca=0:deltat:2*tempo; <br>silencio= 0:deltat:2.5*tempo; <br><br>SolN= sin(2*pi*Sol*negra);<br>SiN= sin(2*pi*Sib*negra); <br>DoP= sin(2*pi*Do*puntillo); <br>DoB= sin(2*pi*Do*blanca);<br>ReC= sin(2*pi*Reb*corchea); <br>silencioP= sin(silencio);<br><br>Smoke=[SolN, SiN, DoP,SolN, SiN ,ReC,DoB,SolN, SiN,DoP,SiN,SolN,silencioP];<br><br>sound(Smoke, 1/delta);<br>wavwrite(Smoke,1/delta,32, 'Normal Speed')<br><br><br>tempo=(60/112)/2;<br><br>negra=0:deltat:1*tempo;<br>puntillo=0:deltat:1.5*tempo;<br>corchea=0:deltat:.5*tempo; <br>blanca=0:deltat:2*tempo; <br>silencio= 0:deltat:2.5*tempo; <br><br>SolN= sin(2*pi*Sol*negra);<br>SiN= sin(2*pi*Sib*negra); <br>DoP= sin(2*pi*Do*puntillo); <br>DoB= sin(2*pi*Do*blanca);<br>ReC= sin(2*pi*Reb*corchea); <br>silencioP= sin(silencio);<br><br>Smoke=[SolN, SiN, DoP,SolN, SiN ,ReC,DoB,SolN, SiN,DoP,SiN,SolN,silencioP];<br><br>sound(Smoke, 1/delta);<br>wavwrite(Smoke,1/delta,32, 'Faster Speed')<br><br><br><br>SolN= sin(4*pi*Sol*negra);<br>SiN= sin(4*pi*Sib*negra); <br>DoP= sin(4*pi*Do*puntillo); <br>DoB= sin(4*pi*Do*blanca);<br>ReC= sin(4*pi*Reb*corchea); <br>silencioP= sin(silencio);<br><br>Smoke=[SolN, SiN, DoP,SolN, SiN ,ReC,DoB,SolN, SiN,DoP,SiN,SolN,silencioP];<br><br>sound(Smoke, 1/delta);<br>wavwrite(Smoke,1/delta,32, 'x(2t) ')<br><br>Y= wavread('Beatles'); <br>F = flipud(Y);<br>sound(Y, Fs)<br>wavwrite(F,1/delta,32, 'Flipped Beatles ')<br>%The forward message of this Beatles song is Number 9 <br>%When the flipud function was used it was hard to retrieve <br>%any message with any sense out of the file. I picked up some <br>%words like 'turn' and 'on'though. I dont think there is a real<br>%hidden message in this song.  

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>%<br>% Programmer and Purdue Email Address:<br>% 1.Alberto Peralta aperalta@purdue.edu<br>%<br>% Homework #:01<br>%<br>% <br>%<br>% <br>%<br>% Program Description:This program will attempt to play Smoke in the water in its<br>% original speed, then tw0 times faster and then with an octave higher,<br>% lasting half the time<br>% <br>%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%/<br>tempo=(60/112);<br>Sol=(2^(-2/12))*440;<br>Sib=(2^(1/12))*440;<br>Do=(2^(3/12))*440;<br>Reb=(2^(4/12))*440;<br>deltat = .00005;<br>negra=0:deltat:1*tempo;<br>puntillo=0:deltat:1.5*tempo;<br>corchea=0:deltat:.5*tempo; <br>blanca=0:deltat:2*tempo; <br>silencio= 0:deltat:2.5*tempo; <br><br>SolN= sin(2*pi*Sol*negra);<br>SiN= sin(2*pi*Sib*negra); <br>DoP= sin(2*pi*Do*puntillo); <br>DoB= sin(2*pi*Do*blanca);<br>ReC= sin(2*pi*Reb*corchea); <br>silencioP= sin(silencio);<br><br>Smoke=[SolN, SiN, DoP,SolN, SiN ,ReC,DoB,SolN, SiN,DoP,SiN,SolN,silencioP];<br><br>sound(Smoke, 1/delta);<br>wavwrite(Smoke,1/delta,32, 'Normal Speed')<br><br><br>tempo=(60/112)/2;<br><br>negra=0:deltat:1*tempo;<br>puntillo=0:deltat:1.5*tempo;<br>corchea=0:deltat:.5*tempo; <br>blanca=0:deltat:2*tempo; <br>silencio= 0:deltat:2.5*tempo; <br><br>SolN= sin(2*pi*Sol*negra);<br>SiN= sin(2*pi*Sib*negra); <br>DoP= sin(2*pi*Do*puntillo); <br>DoB= sin(2*pi*Do*blanca);<br>ReC= sin(2*pi*Reb*corchea); <br>silencioP= sin(silencio);<br><br>Smoke=[SolN, SiN, DoP,SolN, SiN ,ReC,DoB,SolN, SiN,DoP,SiN,SolN,silencioP];<br><br>sound(Smoke, 1/delta);<br>wavwrite(Smoke,1/delta,32, 'Faster Speed')<br><br><br><br>SolN= sin(4*pi*Sol*negra);<br>SiN= sin(4*pi*Sib*negra); <br>DoP= sin(4*pi*Do*puntillo); <br>DoB= sin(4*pi*Do*blanca);<br>ReC= sin(4*pi*Reb*corchea); <br>silencioP= sin(silencio);<br><br>Smoke=[SolN, SiN, DoP,SolN, SiN ,ReC,DoB,SolN, SiN,DoP,SiN,SolN,silencioP];<br><br>sound(Smoke, 1/delta);<br>wavwrite(Smoke,1/delta,32, 'x(2t) ')<br><br>Y= wavread('Beatles'); <br>F = flipud(Y);<br>sound(Y, Fs)<br>wavwrite(F,1/delta,32, 'Flipped Beatles ')<br>%The forward message of this Beatles song is Number 9 <br>%When the flipud function was used it was hard to retrieve <br>%any message with any sense out of the file. I picked up some <br>%words like 'turn' and 'on'though. I dont think there is a real<br>%hidden message in this song.  

<br>

<br>