Merge branch 'main' into DarellsAnnex
This commit is contained in:
commit
309e0386e8
20
DarellsAnnex/DarellbandpassFilter.m
Normal file
20
DarellsAnnex/DarellbandpassFilter.m
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
function output_y = DarellbandpassFilter(y,Fs,LOW,MED,HIGH)
|
||||||
|
Len = length(y);
|
||||||
|
F = Fs * (-Len/2 : (Len/2 - 1))/Len ;
|
||||||
|
Mod_Freq = fftshift(fft(y));
|
||||||
|
lenf = length(F);
|
||||||
|
output = 0 .* Mod_Freq; % zero array of len f
|
||||||
|
|
||||||
|
for n = 1:lenf
|
||||||
|
if ((LOW < abs(F(n))) && HIGH > abs(F(n)))
|
||||||
|
output(n) = 1;
|
||||||
|
else
|
||||||
|
output(n) = 0;
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
filtered_Mod_Freq = fftshift(Mod_Freq .* output);
|
||||||
|
|
||||||
|
output_y = real(ifft(filtered_Mod_Freq));
|
||||||
|
|
||||||
|
end
|
@ -33,3 +33,4 @@ x = DarellPitchEnvelope(x, fs, attack,decay,sustain,release); %output new sound
|
|||||||
%play over 5 counts, should only hear 200hz
|
%play over 5 counts, should only hear 200hz
|
||||||
playtime = 5;
|
playtime = 5;
|
||||||
play_continuous(x, fs, playtime)
|
play_continuous(x, fs, playtime)
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user