diff options
Diffstat (limited to 'octave/hp_filt.m')
| -rw-r--r-- | octave/hp_filt.m | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/octave/hp_filt.m b/octave/hp_filt.m deleted file mode 100644 index 1087bb9..0000000 --- a/octave/hp_filt.m +++ /dev/null @@ -1,12 +0,0 @@ -% 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 |
