diff options
Diffstat (limited to 'octave/load_comp.m')
| -rw-r--r-- | octave/load_comp.m | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/octave/load_comp.m b/octave/load_comp.m new file mode 100644 index 0000000..b9fa686 --- /dev/null +++ b/octave/load_comp.m @@ -0,0 +1,9 @@ +% load_comp.m +% David Rowe Sep 2015 + +function s = load_comp(fn) + fs=fopen(fn,"rb"); + s = fread(fs,Inf,"float32"); + ls = length(s); + s = s(1:2:ls) + j*s(2:2:ls); +endfunction |