cemrd2.m

来自「这是一个 York大学开发的FDTD代码。很好用的工具」· M 代码 · 共 16 行

function [t,y]=cemrd2(fn)
% [t,y]=cemrdtd('filename')
% Read CEM time domain file
tdf=fopen(fn);
if tdf==-1 
disp('Can not open file!');

else
tdid=fscanf(tdf,'%*s %d %d %d',3);
td=fscanf(tdf,'%g %g',inf);
t=[td(1:2:size(td,1))];
y=[td(2:2:size(td,1))];
fclose(tdf);
end

end