codefcnchk.m

一个很棒的网络控制系统仿真软件

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