checksimultaneousconvergence.m

来自「有监督自组织映射-偏最小二乘算法(A supervised self-organ」· M 代码 · 共 15 行

function [ExitLogical] = CheckSimultaneousConvergence(OldXMap, NewXMap, OldYMap, NewYMap, MLKP);

ExitLogical = 'N';
if upper(MLKP.CheckConv) =='Y'
    SumDiffX = sum(sum(abs(NewXMap-OldXMap)));
    SumMapX = sum(sum(abs(NewXMap)));
    SumDiffY = sum(sum(abs(NewYMap-OldYMap)));
    SumMapY = sum(sum(abs(NewYMap)));
    CheckVal = (SumDiffX/SumMapX+SumDiffY/SumMapY)/2;
    if  CheckVal < MLKP.ExitLimit
        ExitLogical = 'Y';
        Message=sprintf('Convergence criterion reached: %g',CheckVal);
        disp(Message);
    end
end