aboutsummaryrefslogtreecommitdiff
path: root/octave/hp_filt.m
diff options
context:
space:
mode:
Diffstat (limited to 'octave/hp_filt.m')
-rw-r--r--octave/hp_filt.m12
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