loads hackrf samples

git-svn-id: https://svn.code.sf.net/p/freetel/code@2761 01035d8c-6547-0410-b346-abe4f91aad63

diff --git a/codec2-dev/octave/load_hackrf.m b/codec2-dev/octave/load_hackrf.m
new file mode 100644 (file)
index 0000000..85bfb73
--- /dev/null
+++ b/codec2-dev/octave/load_hackrf.m
@@ -0,0 +1,11 @@
+% load_hackrf.m
+%
+% David Rowe Oct 2015
+
+function s = load_hackrf(fn)
+  fs = fopen(fn,"rb");
+  iq = fread(fs,Inf,"schar");
+  fclose(fs);
+  l = length(iq);
+  s =  iq(1:2:l) + j*iq(2:2:l);
+endfunction