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