simplified testing

This commit is contained in:
Mark Borgerding
2003-08-13 01:54:58 +00:00
parent 1cd00ce9f5
commit 4add8dbbb6
3 changed files with 80 additions and 0 deletions

12
test/fileload.m Executable file
View File

@ -0,0 +1,12 @@
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