diff options
| author | Author Name <[email protected]> | 2023-07-07 12:20:59 +0930 |
|---|---|---|
| committer | David Rowe <[email protected]> | 2023-07-07 12:29:06 +0930 |
| commit | ac7c48b4dee99d4c772f133d70d8d1b38262fcd2 (patch) | |
| tree | a2d0ace57a9c0e2e5b611c4987f6fed1b38b81e7 /octave/load_comp.m | |
shallow zip-file copy from codec2 e9d726bf20
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 |