[Commit-gnuradio] [gnuradio] 01/07: gr-utils: Added octave function to write fc32 format (gr_complex) from Octave variables.

[git]

This is an automated email from the git hooks/post-receive script.

jcorgan pushed a commit to branch master
in repository gnuradio.

commit dd1aaef060fde164af08e1aa629dabb6b642da1b
Author: Paul Garver <address@hidden>
Date:   Fri Jan 23 08:42:40 2015 -0500

    gr-utils: Added octave function to write fc32 format (gr_complex) from 
Octave variables.
---
 gr-utils/octave/write_complex_binary.m | 50 ++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/gr-utils/octave/write_complex_binary.m 
b/gr-utils/octave/write_complex_binary.m
new file mode 100644
index 0000000..22d62dd
--- /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