just_vc.m

来自「这个一个遗传算法的实例」· M 代码 · 共 29 行

function BDVC=JUST_VC(QAL,TL,HL,PL,VCL,NL,nL)
%判断速度约束
BDV=[1,1,1];
for i=1:NL;
    for j=1:nL-1;
        QV(1)=abs(-QAL(i,j)*HL(j)*0.5+(PL(i,j+1)-PL(i,j))/HL(j)+HL(j)*(QAL(i,j)-QAL(i,j+1))/6);
        QV(2)=abs(QAL(i,j+1)*HL(j)*0.5+(PL(i,j+1)-PL(i,j))/HL(j)+HL(j)*(QAL(i,j)-QAL(i,j+1))/6);
        t=TL(j)+HL(j)*QAL(i,j)/(QAL(i,j)-QAL(i,j+1));
        if (t>TL(j))&&(t<TL(j+1))
            QV(3)=abs(0.5*HL(j)*QAL(i,j)*QAL(i,j+1)/(QAL(i,j)-QAL(i,j+1))+(PL(i,j+1)-PL(i,j))/HL(j)+HL(j)*(QAL(i,j)-QAL(i,j+1))/6);
        else
            QV(3)=0;
        end;
        if QV(1)<=VCL(i)&&QV(2)<=VCL(i)&&QV(3)<=VCL(i)
            ZJ(j)=1;
        else 
            ZJ(j)=0;
        end
        BDV(i)=BDV(i)*ZJ(j);
        if ZJ(j)==0;
            break;
        end;
    end;
    if BDV(i)==0;
        break;
    end;
end;
BDV;
BDVC=BDV(1)*BDV(2)*BDV(3);