exist.sci

来自「toolbox median filter You need to down」· SCI 代码 · 共 18 行

function a = exist(s)

// exist - test if a variable or a file exist
//
//  a = exist(s);
//
//  Copyright (c) 2008 Gabriel Peyre

a = exists(s);
if a==0
    [fid,err] = mtlb_fopen(s, 'r');
    if fid>0
        a = 2;
        mclose(s);
    end
end

endfunction