search.asv

来自「分支定界」· ASV 代码 · 共 38 行

function [x1,y1,z1,B,k]=Search(x,y,z,k,i,r,q,p,B)

m=q;

for q=m:-1:1
    Qk=k;k(:,q)=[];
    Qx=x;x(:,q)=[];
    Qy=y;y(:,q)=[];
    Qz=z;z(:,q)=[];
    J=PanJu(x,y,z,p)
    if J>B
        r_1=r-q;
        q_1=r_1-(4-i-2); 
        if q_1==1
            Qk1=k;Qx1=x;Qy1=y;Qz1=z;
            for v=3:1:(5-i)
                k(:,3)=[];
                x(:,3)=[];
                y(:,3)=[];
                z(:,3)=[];
            end
            J=PanJu(x,y,z,p);
            if J>B
                B=J;x1=x;y1=y;z1=z;
            else
                k=Qk1;x=Qx1;y=Qy1;z=Qz1;
            end
        elseif (i+1)==4
            B=J;x1=x;y1=y;z1=z;
        else
            i=i+1;
            [x1,y1,z1,B,k]=Search(x,y,z,k,i,r_1,q_1,p,B);
            i=i-1;
        end
    else
        k=Qk;x=Qx;y=Qy;z=Qz;
    end
end