求 神经网络大神帮助

子任

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

7 T, p9 }3 V& d* r5 ^: w+ d- J
5 E; v6 R+ E( za=max(p'); %#ok<UDIM>
1 D- J# Y+ Z) P1 B% }& wfor i=1:14
for j=1:3
4 k3 q) g# Y; G3 z% w  Y% c7 j- Dptest(i,j)=p(i,j)/a(i);
end
5 A- ]; X; u1 L2 e5 y& Wend
" d( H9 B2 T3 m' o2 p" t5 `
" g( j, {& Q7 t: F& e
! _( z5 K6 W' d8 |p1=ones(1,14);
p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
+ V& k0 z  S. b! Q. }& `4 @p4=0.4.*ones(1,14);
. ^, {8 P' D* \& Q' l- c# Sp5=0.2.*ones(1,14);
- w6 v& x! \; s7 Dp6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
! x/ H) L( q9 i* c' z+ _& Z, o  At=[100,80,60,40,20,0];


net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
/ S! {. n; W( `net=init(net);
, T/ B- f+ y# z, ^0 ~/ }" K+ Lnet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
' o1 {$ A3 E  W) A[net,tr]=train(net,ptrain',t);

1 w; u; L, p0 A! @
+ o- l$ S. @% [' A. a7 a8 x5 vfor i=1:3
/ _5 p3 Q5 E( c( g# Z4 ?; D- |a=ptes(:,i);
) P# h. t6 B* U* G% v9 ?7 Gscore(i)=sim(net,a); %#ok<SAGROW>
end



. W, ?  a' u; S. C: R$ m

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
  T$ J4 a& y' G5 ?4 u非常感谢你
/ Y4 W; ?2 K1 F1 x4 k9 W

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
( P, n0 A; b; A. p% O/ e我这里有一个小模板，你可以看看，希望对你有用：
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];
. m  _; x6 ^" D%人数 单位：万人
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...
1 D, y( o/ L/ y/ c; x    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...
/ _9 f0 O% B/ V; M3 f    0.38 0.49 0.56 0.59 0.59 0.67 0.69 0.79];
& v- c- n; L! T; u, z%公路面积 单位：万平方千米
glkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
    19490 20433 22598 25107 33442 36836 40548 42927 43462];
%公路客运量 单位：万人
( M3 u& H# G" }  C- eglhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
: y+ V+ G1 j9 f( J0 L    11115 13320 16762 18673 20724 20803 21804];
: x) _. n$ p+ P1 O%公路货运量 单位：万吨
% e. \  R* u. p2 [3 e" z; ]; a; \( Y) ]p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
t = [glkyl;glhyl];          %目标矩阵

%%归一化处理
[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
dx = [-1,1;-1 1;-1,1];                       %
+ B4 |3 o. `+ h8 u( ^
2 C6 y" d* F. C%BP网络训练
net = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');

. ?3 b) |; ?; U) ~+ B%%建立模型，并用梯度下降法训练
net.trainParam.show = 1000;          %轮回显示一次
  w0 i7 H9 e+ y+ y7 c- i) I# m  tnet.trainParam.Lr = 0.05;            %学习速率
3 @( V, H" \, M+ tnet.trainParam.epochs = 50000;       %最大训练轮回
, ^& `4 m2 m/ C5 L! G! x3 b: C. Wnet.trainParam.goal = 0.65*10^(-3);  %均方误差
$ U! m1 g2 c4 a0 J+ hnet = train(net,pn,tn);              %开始训练
5 B0 ~" z" @: `% A* I% U9 I1 a
%%利用原始数据对BP网络仿真
. z& V. e( B, m0 [* ?an = sim(net,pn);                    %用训练好的模型进行仿真
& h+ }0 Q9 m: _2 ua = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级

, `. X0 `: z0 D" a- T%%对比测试
6 {+ @  h$ T7 a3 qx = 1990:2009;
8 r, o$ G7 k/ q% n0 S' [" Rnewk = a(1,:);
0 ~- W: Z( X4 j8 f# Wnewh = a(2,:);
3 S3 L8 L# A% p6 W6 b( @/ X+ C5 Vfigure(2);
! U8 |9 v/ X" J5 h1 o/ rsubplot(2,1,1);
plot(x,newk,'r-o',x,glkyl,'b--+');
legend('预测输出客运量','实际客运量');
: ]1 X1 I6 G) s/ H5 r7 i1 {8 d8 \7 txlabel('年份');
ylabel('客运量/万人');
title('运用数据箱客运量学习和测试对比图');
- C/ l' h% a0 o4 t$ C) P+ {subplot(2,1,2);
plot(x,newh,'r-o',x,glhyl,'b--+');
legend('预测输出货运量','实际货运量');
) Z4 q' u1 F* A* z0 C, Yxlabel('年份');
; b" L& Z* r+ {, X1 w# Bylabel('货运量/万吨');
title('运用数据箱货运量学习和测试对比图');
. L8 E" b% X  q$ g%利用训练好的网络进行预测
pnew = [73.39 75.55
    3.9635 4.0975
; ^0 |8 f7 Y% g' w1 ~    0.9880 1.0268];
, t  R; b5 m& r# B5 f5 A8 @% `+ Gpnewn = tramnmx(pnew,minp,maxp);
%利用原始输入数据的归一化参数对新参数进行归一化
: r3 h7 U2 S- W% L+ z  P; ]anewn = sim(net,pnewn);
%利用归一化后的数据进行仿真
anew = postmnmx(anewn,mint,maxt)
%把仿真得到的数据还原原始的数量级
' R  \9 k0 ?: n6 I/ h
$ N# D& b1 k+ P$ ?( i
! w0 j1 b  H5 M- Y欢迎交流！

子任

大神能帮我运行一下代码吗
我不懂这个
; F; L" i  Y# @% }0 a能留下联系方式吗
7 Z7 ]2 K" u3 @7 i8 a

数学中国—罂粟

你是要问什么啊？
' }; m0 n+ c1 n4 d1 @% ~5 E