求 神经网络大神帮助

子任

p=[1 2 3;3 2 1;5 6 1;7 3 1;3 5 2;9 3 5;7 4 2;4 5 6;0 3 4;6 0 1;4 2 3;9 2 7;8 0 1;3 6 2];
' J) c/ z. s& k, t& l

4 c5 r" `1 k  H% ka=max(p'); %#ok<UDIM>
for i=1:14
& O5 ~, K# J0 Yfor j=1:3
# R) a  E6 f  f" @) Q, Q1 Tptest(i,j)=p(i,j)/a(i);
end
end
2 s" a1 Q  h/ I  i% D! {
; u1 Z; O7 w2 V/ G
p1=ones(1,14);
p2=0.8.*ones(1,14);
4 ~0 f2 [( a: y/ kp3=0.6.*ones(1,14);
) `% j1 e9 j( x: fp4=0.4.*ones(1,14);
% o/ E7 C6 e, W3 gp5=0.2.*ones(1,14);
& i* [: V" [2 H" K1 e5 b( i! B: W- Qp6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
/ u; R  G, S- D! Y# o' Rt=[100,80,60,40,20,0];

3 H9 D9 P* `" e" V- v
net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
2 G+ D: v0 }( i; a) D( Knet.trainparam.epochs=100000;
5 c9 H- I. J8 P1 Y+ t3 Hnet.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
. ^" o4 ]: c+ }* C

) j9 j8 n5 c' i8 J: w! pfor i=1:3
; Y6 _* p& j( Ha=ptes(:,i);
( _/ E: c* V  ]score(i)=sim(net,a); %#ok<SAGROW>
end

  \$ j6 W# A; F( x
: S+ n3 w) Y$ T9 S, U
0 a5 z1 h$ Q+ c0 M* B1 q" |& A

数学中国—罂粟

你是要问什么啊？
3 W# `! L; ?9 J3 E

子任

大神能帮我运行一下代码吗
5 Q! |4 G: |: J: }4 g5 _我不懂这个
) s1 _7 a' {. c% H能留下联系方式吗

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
我这里有一个小模板，你可以看看，希望对你有用：
clc,clear
8 O( }4 c3 a( z! Nsqrs = [20.55 22.44 25.37 27.13 29.45 30.1 30.96 34.06 36.42 38.09 39.13 39.99 ...
4 F5 V& n' _! y    41.93 44.59 47.30 52.89 55.73 56.76 59.17 60.63];
7 x, ]3 ]0 d+ M$ L0 F( ^) r2 H- |7 M1 P%人数 单位：万人
: Y, ~6 B5 g2 H6 `sqjdcs = [0.6 0.75 0.85 0.90 1.05 1.35 1.45 1.60 1.70 1.85 2.15 2.20...
    2.25 2.35 2.50 2.60 2.70 2.85 2.95 3.10];
%机动车数 单位：万辆
$ t8 H- l' L6 P7 n+ Wsqglmj = [0.09 0.11 0.11 0.14 0.20 0.23 0.23 0.32 0.32 0.34 0.36 0.36...
    0.38 0.49 0.56 0.59 0.59 0.67 0.69 0.79];
%公路面积 单位：万平方千米
glkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
    19490 20433 22598 25107 33442 36836 40548 42927 43462];
1 o* _  T+ q7 H( k%公路客运量 单位：万人
glhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
! h. s- o) u! z. @' H! X    11115 13320 16762 18673 20724 20803 21804];
4 l( H) Y7 B- b% {' t* D. ^; D- m%公路货运量 单位：万吨
; q6 z/ _, \; e/ C5 K. I# [% n1 ?p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
: ^0 B: F: n, W! Vt = [glkyl;glhyl];          %目标矩阵
- {6 ^) L8 T: \/ i" `
%%归一化处理
[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
dx = [-1,1;-1 1;-1,1];                       %
% P1 x* p5 G# }& F  o9 S
+ \6 {, z5 O! o1 f, |& l# y7 ?%BP网络训练
net = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');

* i( ~" K9 ~4 H# U# K7 O%%建立模型，并用梯度下降法训练
0 ]. }" R4 ~# ]  Jnet.trainParam.show = 1000;          %轮回显示一次
net.trainParam.Lr = 0.05;            %学习速率
0 E. W( V$ a+ Enet.trainParam.epochs = 50000;       %最大训练轮回
! h" u* i- W! z, ?: z, o% Gnet.trainParam.goal = 0.65*10^(-3);  %均方误差
/ C" n! v9 k2 P& v8 i8 dnet = train(net,pn,tn);              %开始训练

- ]  L( N8 ]. h3 q# D* z4 B%%利用原始数据对BP网络仿真
an = sim(net,pn);                    %用训练好的模型进行仿真
$ h7 R' k' a$ M7 b( I3 xa = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级
" Z) O# ], u+ I4 I
%%对比测试
x = 1990:2009;
newk = a(1,:);
newh = a(2,:);
figure(2);
subplot(2,1,1);
plot(x,newk,'r-o',x,glkyl,'b--+');
legend('预测输出客运量','实际客运量');
xlabel('年份');
ylabel('客运量/万人');
title('运用数据箱客运量学习和测试对比图');
& ~0 D. Z8 x% a7 N6 `subplot(2,1,2);
/ V2 Y2 W: ^* C' u' x& |plot(x,newh,'r-o',x,glhyl,'b--+');
5 a; S, s# R: z' x( g9 D5 i( |legend('预测输出货运量','实际货运量');
xlabel('年份');
ylabel('货运量/万吨');
title('运用数据箱货运量学习和测试对比图');
; x5 Q% A! y' }%利用训练好的网络进行预测
pnew = [73.39 75.55
    3.9635 4.0975
) O+ y- }3 ]- B  v3 ^- u& j    0.9880 1.0268];
% A% k" J8 u) Kpnewn = tramnmx(pnew,minp,maxp);
%利用原始输入数据的归一化参数对新参数进行归一化
anewn = sim(net,pnewn);
%利用归一化后的数据进行仿真
anew = postmnmx(anewn,mint,maxt)
9 ], d! X; ]! l% A& }0 D" i; ^%把仿真得到的数据还原原始的数量级

( a" H! W2 F" C9 V5 }
' C7 R( `3 M0 t& u" j" K欢迎交流！

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
  [2 d, t) T* Z非常感谢你
% L- c& ?2 g* w8 p  p  a" c
$ _0 R+ i* i' K+ k: Y