SCASO / OTFS Communication

Authored by Runze Wang 2019-03-17 16:22:28 -0700

Showing 3 changed files with 91 additions and 0 deletions Side-by-side Diff

	1	+function v = write_complex_binary(data, filename)
	2	+
	3	+data_float = zeros(1, 2*length(data));
	4	+data_float(1, 1:2:end) = real(data);
	5	+data_float(1, 2:2:end) = imag(data);
	6	+
	7	+v = write_float_binary(data_float, filename);
	8	+end

	1	+%
	2	+% Copyright 2001 Free Software Foundation, Inc.
	3	+%
	4	+% This file is part of GNU Radio
	5	+%
	6	+% GNU Radio is free software; you can redistribute it and/or modify
	7	+% it under the terms of the GNU General Public License as published by
	8	+% the Free Software Foundation; either version 3, or (at your option)
	9	+% any later version.
	10	+%
	11	+% GNU Radio is distributed in the hope that it will be useful,
	12	+% but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	+% GNU General Public License for more details.
	15	+%
	16	+% You should have received a copy of the GNU General Public License
	17	+% along with GNU Radio; see the file COPYING. If not, write to
	18	+% the Free Software Foundation, Inc., 51 Franklin Street,
	19	+% Boston, MA 02110-1301, USA.
	20	+%
	21	+
	22	+function v = write_float_binary (data, filename)
	23	+
	24	+ %% usage: write_float_binary (data, filename)
	25	+ %%
	26	+ %% open filename and write data to it as 32 bit floats
	27	+ %%
	28	+
	29	+
	30	+ m = nargchk (2,2,nargin);
	31	+ if (m)
	32	+ usage (m);
	33	+ end
	34	+
	35	+ f = fopen (filename, 'wb');
	36	+ if (f < 0)
	37	+ v = 0;
	38	+ else
	39	+ v = fwrite (f, data, 'float');
	40	+
	41	+ fclose (f);
	42	+ end

	1	+%
	2	+% Copyright 2001 Free Software Foundation, Inc.
	3	+%
	4	+% This file is part of GNU Radio
	5	+%
	6	+% GNU Radio is free software; you can redistribute it and/or modify
	7	+% it under the terms of the GNU General Public License as published by
	8	+% the Free Software Foundation; either version 3, or (at your option)
	9	+% any later version.
	10	+%
	11	+% GNU Radio is distributed in the hope that it will be useful,
	12	+% but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	+% GNU General Public License for more details.
	15	+%
	16	+% You should have received a copy of the GNU General Public License
	17	+% along with GNU Radio; see the file COPYING. If not, write to
	18	+% the Free Software Foundation, Inc., 51 Franklin Street,
	19	+% Boston, MA 02110-1301, USA.
	20	+%
	21	+
	22	+function v = write_int_binary (data, filename)
	23	+
	24	+ %% usage: write_float_binary (data, filename)
	25	+ %%
	26	+ %% open filename and write data to it as 32 bit floats
	27	+ %%
	28	+
	29	+
	30	+ m = nargchk (2,2,nargin);
	31	+ if (m)
	32	+ usage (m);
	33	+ end
	34	+
	35	+ f = fopen (filename, 'wb');
	36	+ if (f < 0)
	37	+ v = 0;
	38	+ else
	39	+ v = fwrite (f, data, 'int16');
	40	+ fclose (f);
	41	+ end