codefcnchk.m

来自「一个很棒的网络控制系统仿真软件」· M 代码 · 共 14 行

function ok = kack(filename)

clear(filename);
tmpout = [tempname '.p'];

try
  % pfile is the most expensive, but it works for any loadable m-file
  evalc('pfile(filename,tmpout)');
  delete(tmpout);
  ok = 1;
catch
  ok = 0;
end