mirror/kissfft
1
0
Fork 0
mirror of https://github.com/mborgerding/kissfft.git synced 2025-07-22 23:14:35 -04:00
Code Issues Packages Projects Releases Wiki Activity

'make snr' now tests 2d ffts

Browse Source
This commit is contained in:
Mark Borgerding
2003-12-04 04:08:52 +00:00
parent f3c4a9e9ca
commit 39d2974fe3
6 changed files with 59 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
test/fileload.m
View File

@ -1,12 +1,19 @@
function data = fileload( fname , prec , iscomplex )
function data = fileload( fname , prec , iscomplex ,nrows )
f = fopen(fname,"r", "native");
data = fread(f,Inf,prec)';
len=length(data);
data = fread(f,Inf,prec);
fclose(f);
len = length(data);
if iscomplex,
data = (data(1:2:len) + j*data(2:2:len) );
endif
len = len/2;
endif
tdata = zeros(len/nrows,nrows);
tdata(:) = data;
data = tdata .';
endfunction