求 神经网络大神帮助

子任

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];

* \: i; q) {+ Y, b2 @
a=max(p'); %#ok<UDIM>
0 Z0 U' d' b/ p7 g4 b# E* bfor i=1:14
for j=1:3
ptest(i,j)=p(i,j)/a(i);
4 P8 ~9 l9 ^! N7 J4 {; W+ O3 Hend
& s% X  \  [$ S) y9 {% _  t  [end
9 u# X) M4 g9 C7 w, R
4 a) }* m1 n2 F' S5 V
+ B; b! X# I1 J1 h1 s+ @# C$ Ap1=ones(1,14);
# \# L- a9 o4 I; k& M' C3 xp2=0.8.*ones(1,14);
# w5 t( b& o7 b! t: S& ^9 B( lp3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
" i9 @3 ]9 o% Q  xp5=0.2.*ones(1,14);
p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];
! B) b9 Z+ ~9 x0 j) _( x9 p$ z

net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
( m6 u, j: S6 y, v6 R/ Z% Enet=init(net);
; k9 V  U+ x  C- C, r0 [0 b* T  J. dnet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
0 M- c1 D/ \6 `[net,tr]=train(net,ptrain',t);


; ?: z$ r' ~* d$ \for i=1:3
a=ptes(:,i);
9 [* D3 l% c' k- R+ Q/ iscore(i)=sim(net,a); %#ok<SAGROW>
5 s  {# Q$ j0 [; G2 ]1 ]- gend
- h' P) B1 Z* x  ], V' R% o' K
6 Z& y3 K# H- T4 J

数学中国—罂粟

你是要问什么啊？

子任

大神能帮我运行一下代码吗
" S" N/ q1 H, O, e9 ^( t我不懂这个
能留下联系方式吗
8 L. }* A  a+ p  k; v8 G4 {

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
我这里有一个小模板，你可以看看，希望对你有用：
3 a4 o& O* i! \* _. c! [clc,clear
sqrs = [20.55 22.44 25.37 27.13 29.45 30.1 30.96 34.06 36.42 38.09 39.13 39.99 ...
    41.93 44.59 47.30 52.89 55.73 56.76 59.17 60.63];
%人数 单位：万人
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...
6 e/ H6 N4 n& |, v. n) r: m5 }; {/ U    2.25 2.35 2.50 2.60 2.70 2.85 2.95 3.10];
%机动车数 单位：万辆
sqglmj = [0.09 0.11 0.11 0.14 0.20 0.23 0.23 0.32 0.32 0.34 0.36 0.36...
7 E! e$ d# \: m  @/ s" @( [    0.38 0.49 0.56 0.59 0.59 0.67 0.69 0.79];
4 ]( i" O; F) I1 ~' d%公路面积 单位：万平方千米
glkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
    19490 20433 22598 25107 33442 36836 40548 42927 43462];
5 [' f2 U5 K9 z# Z9 k7 ~! N%公路客运量 单位：万人
8 w3 w: W5 H" o  W5 c4 ?& |& bglhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
    11115 13320 16762 18673 20724 20803 21804];
%公路货运量 单位：万吨
p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
" x! L- G# [4 {" T% n" ?( at = [glkyl;glhyl];          %目标矩阵

%%归一化处理
[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
dx = [-1,1;-1 1;-1,1];                       %

+ N2 G+ s( z: q+ s& W%BP网络训练
5 J, t% |2 m( v: _" a" enet = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');
# x3 H9 u8 Z* O6 b* F" J
$ M( Z6 E( I5 i# L9 b/ \%%建立模型，并用梯度下降法训练
; L& u( a3 _1 t1 `5 x% G/ n* x; Inet.trainParam.show = 1000;          %轮回显示一次
3 i6 X) Q& |* ]% M, hnet.trainParam.Lr = 0.05;            %学习速率
net.trainParam.epochs = 50000;       %最大训练轮回
" f. q& i4 s+ y2 q! b9 [3 w1 Gnet.trainParam.goal = 0.65*10^(-3);  %均方误差
4 @& |4 O, M3 G0 J* q# h# R  lnet = train(net,pn,tn);              %开始训练
/ x6 u3 p' Z3 `$ y1 _' B3 `, V3 p
# ~5 n5 \4 W7 B+ O%%利用原始数据对BP网络仿真
3 c4 e- A8 I% n, V" o( Xan = sim(net,pn);                    %用训练好的模型进行仿真
& P9 |* G/ \* Y1 v2 _9 f, Ra = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级
- z6 j8 q9 |" q4 F/ J1 s% H$ P
%%对比测试
x = 1990:2009;
8 d# z% ?# @  O' Anewk = a(1,:);
  p6 k2 U- }1 l, {. dnewh = a(2,:);
1 `$ i" A& ?+ [& m8 t. x: b7 Vfigure(2);
subplot(2,1,1);
plot(x,newk,'r-o',x,glkyl,'b--+');
legend('预测输出客运量','实际客运量');
% a  U& x. g- V) [7 G4 N  s9 Y4 Txlabel('年份');
ylabel('客运量/万人');
) ~" N  t8 o+ K4 otitle('运用数据箱客运量学习和测试对比图');
& O( }3 c+ R* ]1 `& p" k" Tsubplot(2,1,2);
plot(x,newh,'r-o',x,glhyl,'b--+');
legend('预测输出货运量','实际货运量');
: E& y2 E, K( M" kxlabel('年份');
ylabel('货运量/万吨');
: R, r' s# i1 ~+ Q; A3 h: C; Ktitle('运用数据箱货运量学习和测试对比图');
* ]$ G9 Q% \: i5 n, k- e%利用训练好的网络进行预测
% b. e; ]5 h9 L. e( epnew = [73.39 75.55
    3.9635 4.0975
+ ]3 Q" D7 m: e7 O' z    0.9880 1.0268];
: q; d1 o2 T0 q6 }, p2 [pnewn = tramnmx(pnew,minp,maxp);
/ \: A2 B9 L& p6 x%利用原始输入数据的归一化参数对新参数进行归一化
anewn = sim(net,pnewn);
! f8 ]2 S& S' k+ \& z%利用归一化后的数据进行仿真
anew = postmnmx(anewn,mint,maxt)
; ~5 N( `, N3 f$ d2 ?; v$ ~%把仿真得到的数据还原原始的数量级

7 |( {  i. Y# J: m; Y& y& ?- R7 @
& D, G' m  ^0 B# f" `* l$ I" {+ Y: ~欢迎交流！

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
" ~+ Q' b0 n* @0 D8 M& d. D3 K- w非常感谢你

+ E9 ~* w) R: O5 B% U