mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-03-02 08:52:47 +00:00
13 lines
280 B
Matlab
13 lines
280 B
Matlab
% hp_filt.m
|
|
% David Rowe 20 Feb 2012
|
|
|
|
function hp_filt(in_file, out_file)
|
|
fin = fopen(in_file,"rb");
|
|
s = fread(fin,Inf,"short");
|
|
b = fir1(256, 300/4000, "high");
|
|
freqz(b);
|
|
s_hpf = filter(b,1,s);
|
|
fout = fopen(out_file,"wb");
|
|
fwrite(fout, s_hpf, "short");
|
|
endfunction
|