rbpnn.m

matlab实现BP神经网络

S1=xlsread('d:/毕业论文材料/data/Kyangben.xls');%困境样本
S2=xlsread('d:/毕业论文材料/data/KTest.xls');%困境测试
S3=xlsread('d:/毕业论文材料/data/Zyangben.xls');%正常样本
S4=xlsread('d:/毕业论文材料/data/ZTest.xls');%正常测试
%S5=xlsread('e:data/Book1.xls');
%输入
P1=S1(1:429,1:24);%困境
P3=S3(1:4195,1:24);%正常
P=[P1',P3'];
%目标输出
A=0.05*ones(429,429);%困境
A=A(1,:);
B=2*ones(4195,4195);%正常
B=B(1,:);
Tc=[A,B];

T=ind2vec(Tc);
net=newpnn(P,T);
Y=sim(net,P);
Yc=vec2ind(Y);

P2=S2(1:100,1:27);
Y=sim(net,P2);
Yc=vec2ind(Y)