求 神经网络大神帮助

子任

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

. D5 O3 \7 I4 _' B, s4 j! d5 c$ L
, S- Q# e5 o: \8 Za=max(p'); %#ok<UDIM>
$ L- f% r8 T' L( H" U5 I- J' ofor i=1:14
for j=1:3
. C+ L, @$ C. {7 p$ s, bptest(i,j)=p(i,j)/a(i);
end
- u/ s0 \- ]8 I4 ]- O0 u- d# tend


) b# s7 s, h1 J* Q, X! Y" o1 Lp1=ones(1,14);
p2=0.8.*ones(1,14);
# z5 E+ b: X; J0 R3 K, O9 ?" |p3=0.6.*ones(1,14);
4 V5 Z& [" W# P& C3 H  Rp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
3 Y2 a  _" l, ~, J: q2 op6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];


# `' v6 D+ _$ l. ~net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
4 x: ~5 i; `( y3 N3 P: e( ynet.trainparam.epochs=100000;
: s' \/ p; A0 V# e% E; A/ |net.trainparam.goal=1e-10;
9 j( a7 n  L8 P) f[net,tr]=train(net,ptrain',t);


for i=1:3
* B$ h, ~8 N4 E' a( V! d# ca=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
  @$ i+ K1 X4 Y- V/ rend



2 r8 M! k' ?. G$ q. C2 M

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
: a7 w% b% P- \  a: f9 m0 }非常感谢你
4 |2 `1 P( `0 Q
3 c! ?2 z8 t7 U1 r& e& s1 r

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
我这里有一个小模板，你可以看看，希望对你有用：
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];
6 [1 O* K8 b& C3 A%人数 单位：万人
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...
. M1 m/ _) D6 T! |# u( O0 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...
    0.38 0.49 0.56 0.59 0.59 0.67 0.69 0.79];
%公路面积 单位：万平方千米
) ~1 Q9 N% J9 X7 [glkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
* m; G9 z1 H: f3 O5 w' F: I    19490 20433 22598 25107 33442 36836 40548 42927 43462];
%公路客运量 单位：万人
7 W6 S8 y/ g! W1 O( D! A( Nglhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
- S2 ^# a. d% }+ y1 [0 ?: q    11115 13320 16762 18673 20724 20803 21804];
5 \% X5 ?) N3 W8 U% L/ H: O%公路货运量 单位：万吨
p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
t = [glkyl;glhyl];          %目标矩阵
  n+ m+ q( e: F3 l
4 A4 X% r, i4 }7 @* R% E! `%%归一化处理
[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
dx = [-1,1;-1 1;-1,1];                       %

6 n3 ~  O9 G: a! S%BP网络训练
net = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');

%%建立模型，并用梯度下降法训练
net.trainParam.show = 1000;          %轮回显示一次
net.trainParam.Lr = 0.05;            %学习速率
net.trainParam.epochs = 50000;       %最大训练轮回
4 @0 v$ b$ x  D' C$ Xnet.trainParam.goal = 0.65*10^(-3);  %均方误差
net = train(net,pn,tn);              %开始训练
  I4 `* v1 ]+ ~- r+ e
%%利用原始数据对BP网络仿真
, y' c6 T' v) t, _/ z; Xan = sim(net,pn);                    %用训练好的模型进行仿真
a = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级
* l9 L' N" y. M8 f9 a; l1 B
%%对比测试
1 z* _! m0 I$ p. A# C& g! Qx = 1990:2009;
newk = a(1,:);
+ ~! H" q/ d0 g" Snewh = a(2,:);
figure(2);
subplot(2,1,1);
  \: J' c6 A2 Y3 M5 A- rplot(x,newk,'r-o',x,glkyl,'b--+');
; _! ?* u8 p# h3 y7 S9 T7 @3 ]legend('预测输出客运量','实际客运量');
  |  U  s5 }! Kxlabel('年份');
ylabel('客运量/万人');
9 G- B1 L7 \+ C. utitle('运用数据箱客运量学习和测试对比图');
subplot(2,1,2);
' S; {& G- v; M" ]0 Iplot(x,newh,'r-o',x,glhyl,'b--+');
legend('预测输出货运量','实际货运量');
/ D. @8 a# [) a( v( Pxlabel('年份');
ylabel('货运量/万吨');
6 H: y9 y$ y4 p6 h6 X) Q  vtitle('运用数据箱货运量学习和测试对比图');
%利用训练好的网络进行预测
pnew = [73.39 75.55
. q/ h: V& t. b( [; b    3.9635 4.0975
) S( u/ ~, v0 i1 r' I    0.9880 1.0268];
, B% E: l0 J( ~; U0 [8 [2 N" s6 f! cpnewn = tramnmx(pnew,minp,maxp);
  F3 f$ M1 C; w' O%利用原始输入数据的归一化参数对新参数进行归一化
anewn = sim(net,pnewn);
%利用归一化后的数据进行仿真
4 N5 |& X9 x6 \4 S3 Y0 }5 ], \anew = postmnmx(anewn,mint,maxt)
%把仿真得到的数据还原原始的数量级
1 O1 b7 z/ z9 V) e+ N
, F8 d  J$ V2 |: ?
欢迎交流！
$ c4 A+ ]) d* E3 y! ?1 E

子任

大神能帮我运行一下代码吗
5 `, `( j1 e/ T我不懂这个
能留下联系方式吗
$ O, `3 Y/ g5 o% N7 w- i

数学中国—罂粟

你是要问什么啊？