step2.asv

来自「在模式识别应用中」· ASV 代码 · 共 25 行

function step2()
disp ( 'step2' );
global N1 N2 N c D d X i B l Jresult r q Q Psi Xcomplement;
[ sJ , Jindex ] = sort ( Jresult ( i + 1 , 1 : r ( i + 1 ) ) );

if ( q ( i + 1 ) == 0 )
    step4();
else
    if ( Jresult ( i + 1 , Jindex ( q ( i + 1 ) ) ) < B )
        l = q ( i + 1 );
        step3();
    else
        Xcomplement ( i + 2 , : ) = Xcomplement ( i + 1 , : );
        Xqiindex = find ( Xcomplement ( i + 2 , : ) == Q ( i + 1 , q ( i + 1 ) ) );
        Xcomplement ( i + 2 , Xqiindex : D - 1 ) = Xcomplement ( i + 2 , Xqiindex + 1 : D );
        Xcomplement ( i + 2 , D ) = 0;
        if ( i + 1 == D - d )
            step5();
        else
            i = i + 1;
            step1();
        end
    end
end
return;