diff options
| author | Paul Garver <garverp@gatech.edu> | 2015-01-23 08:42:40 -0500 |
|---|---|---|
| committer | Paul Garver <garverp@gatech.edu> | 2015-01-23 08:42:40 -0500 |
| commit | dd1aaef060fde164af08e1aa629dabb6b642da1b (patch) | |
| tree | 45f0ac59153c7c90155dbe13ef24033d95e9cf32 | |
| parent | 620817ede54bbb89bff449fccfc999c1e6e7887b (diff) | |
gr-utils: Added octave function to write fc32 format (gr_complex) from Octave variables.
| -rw-r--r-- | gr-utils/octave/write_complex_binary.m | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/gr-utils/octave/write_complex_binary.m b/gr-utils/octave/write_complex_binary.m new file mode 100644 index 0000000000..22d62dd209 --- /dev/null +++ b/gr-utils/octave/write_complex_binary.m @@ -0,0 +1,50 @@ +% +% Copyright 2001 Free Software Foundation, Inc. +% +% This file is part of GNU Radio +% +% GNU Radio is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 3, or (at your option) +% any later version. +% +% GNU Radio is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with GNU Radio; see the file COPYING. If not, write to +% the Free Software Foundation, Inc., 51 Franklin Street, +% Boston, MA 02110-1301, USA. +% + +function v = write_complex_binary (data, filename) + + %% usage: write_complex_binary (data, filename) + %% + %% open filename and write data to it + %% Format is interleaved float IQ e.g. each + %% I,Q 32-bit float IQIQIQ.... + %% This is compatabile with read_complex_binary() + %% + + m = nargchk (2,2,nargin); + if (m) + usage (m); + end + + f = fopen (filename, 'wb'); + if (f < 0) + v = 0; + else + re = real(data); + im = imag(data); + re = re(:)'; + im = im(:)'; + y = [re;im]; + y = y(:); + v = fwrite (f, y, 'float'); + fclose (f); + end +end |