mirror of
https://github.com/mborgerding/kissfft.git
synced 2025-05-27 21:20:27 -04:00
20 lines
317 B
Mathematica
Executable File
20 lines
317 B
Mathematica
Executable File
function data = fileload( fname , prec , iscomplex ,nrows )
|
|
|
|
f = fopen(fname,"r", "native");
|
|
|
|
data = fread(f,Inf,prec);
|
|
|
|
fclose(f);
|
|
|
|
len = length(data);
|
|
if iscomplex,
|
|
data = (data(1:2:len) + j*data(2:2:len) );
|
|
len = len/2;
|
|
endif
|
|
|
|
tdata = zeros(len/nrows,nrows);
|
|
tdata(:) = data;
|
|
data = tdata .';
|
|
|
|
endfunction
|