waveread.m

大学时候跟导师做的一个暂态电磁场数据分析的程序

function [y,len]=waveread(filename)
% [y,len]=waveread(filename) 
% This function read *.fld files
f1=fopen(filename,'rb');
y=fread(f1,'float');
len=length(y);
fclose(f1);
if(f1~=0)
    fprintf('\nCurrent file----------%s\n',filename);
end