newu_ad.m

来自「Hopfield网络解决旅行商问题（TSP）」· M 代码 · 共 18 行

function [u]=Newu_ad(u,v,d,n)
A=500;B=500;D=500;C=200;
u0=0.01;lan=1.0000e-005;delta=0.1;
tmp=0;
for xk=1:n
    for k=1:n
        u(xk,k)=u(xk,k)+A*lan+B*lan;
        for yk=1:n
            u(xk,k)=u(xk,k)-v(xk,yk)*A*lan;
            u(xk,k)=u(xk,k)-v(yk,k)*B*lan;
            if(k==n)
                u(xk,k)=u(xk,k)-d(xk,yk)*v(yk,1)*D*lan;
            else
                u(xk,k)=u(xk,k)-d(xk,yk)*v(yk,k+1)*D*lan;
            end%k==n
        end%yk
    end%k
end%xk