mirror of https://github.com/PentHertz/srsLTE.git
21 lines
424 B
Mathematica
21 lines
424 B
Mathematica
|
function [ out ] = read_complex( filename, count )
|
||
|
%READ_COMPLEX Summary of this function goes here
|
||
|
% Detailed explanation goes here
|
||
|
|
||
|
[tidin msg]=fopen(filename,'r');
|
||
|
if (tidin==-1)
|
||
|
fprintf('error opening %s: %s\n',filename, msg);
|
||
|
out=[];
|
||
|
return
|
||
|
end
|
||
|
|
||
|
if (nargin==1)
|
||
|
count=inf;
|
||
|
end
|
||
|
|
||
|
x=fread(tidin,2*count,'single');
|
||
|
i=1:2:length(x);
|
||
|
out=x(i)+x(i+1)*1i;
|
||
|
end
|
||
|
|