untitled2.m

本程序是利用神经网络来计算五个城市的最短距离

p = -1:0.2:1;
t = 0.5+0.4*sin(2*pi*p);
n=1;
for x=10:5:70
net=newff(minmax(p),[5,1],{'tansig','purelin'},'traingd');
net.trainParam.show = 50;
net.trainParam.lr = 0.1;
net.trainParam.lr_inc = 1.05;
net.trainParam.epochs = 1000;
net.trainParam.goal = 1e-5;
[net,tr,y,e]=train(net,p,t);
pert1=mae(e);
pert2=mae((e.^2).*0.5);
laste=1/2*pert2+1/2*x*(sum(net.iw{1,1}.^2)+sum(net.lw{2,1}.^2));
w(n)=x;
z(n)=laste;
n=n+1;
end
plot(w,z,'r-o')