sov_qj.m

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

function [QJ_MAX,QJ_ZH]=SOV_QJ(QA_HTL,HLL,NL,nL)
%求冲击的最大值
for i=1:NL;
    for ii=1:nL-1;
        QJ_ZH(i,ii)=abs((QA_HTL(i,ii+1)-QA_HTL(i,ii))/HLL(ii));
    end;
    LS=abs((QA_HTL(i,2)-QA_HTL(i,1))/HLL(i));
    for iii=2:nL-1;
        if LS<abs((QA_HTL(i,iii+1)-QA_HTL(i,iii))/HLL(iii))
            LS=abs((QA_HTL(i,iii+1)-QA_HTL(i,iii))/HLL(iii));
        end;
        QJ_MAX(i)=LS;
    end;
end;