scla_reset.m

来自「StaMps最新测试版」· M 代码 · 共 60 行

function []=scla_reset(patches_flag)
% SCLA_RESET resets the estimated values of spatially-correlated look angle
%    and master atmosphere/orbit error.
%
%   Andy Hooper, Jan 2007
%
%   ==========================================================

if nargin<1
    patches_flag='y';
end

fprintf('Resetting SCLA error and master atmosphere/orbit error...\n')

if strcmpi(patches_flag,'y')
    if exist('patch.list','file')
        fid=fopen('patch.list');
        i=0;
        while 1
            nextline=fgetl(fid);
            if ischar(nextline)
                i=i+1;
                patchdir(i).name=nextline;
            else
                break
            end
        end
    else
        patchdir=dir('PATCH*');
    end
    if isempty(patchdir)
        patches_flag='n';
    end
end

if ~strcmpi(patches_flag,'y')
    patchdir(1).name='.';
end


currdir=pwd;

for i=1:length(patchdir)
    cd(patchdir(i).name)
    pwd

    load psver
    sclaname=['scla',num2str(psver),'.mat'];
    if exist([sclaname],'file')
        delete(sclaname)
    end
    sclaname=['scla_sb',num2str(psver),'.mat'];
    if exist([sclaname],'file')
        delete(sclaname)
    end

    cd(currdir)

end