求 神经网络大神帮助

子任

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];
* \1 \' i' g5 J2 w% a
! D6 i! |2 Z( t, w5 z+ g# b
a=max(p'); %#ok<UDIM>
8 R  i3 z" _  y  Wfor i=1:14
' T3 B2 f' v7 A/ ?( b* Jfor j=1:3
$ r0 e& h  i, I* N, Nptest(i,j)=p(i,j)/a(i);
/ T7 z: z" i4 s) ^% d. g( |: A+ _$ Vend
5 ~3 @* D' j7 Uend


p1=ones(1,14);
2 R/ ?+ X2 B& m% `) Z- h" Mp2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];
# a/ V# e% |7 h8 ]4 ]" ~& m

$ @6 y& X! @. J/ K1 d  @net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
' Z' F7 z7 R% j& v. ?9 u# S' ]3 \net=init(net);
net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
3 e& o3 T4 N+ A3 ~9 Y' W* j0 y5 }- J[net,tr]=train(net,ptrain',t);
! Z1 z5 i, B5 L. W
2 `6 t/ x3 }: P; u5 u/ r# g
for i=1:3
4 w7 `  C* J4 ]+ `- \- i) |/ x+ aa=ptes(:,i);
/ ^2 w0 W% t; R4 o9 qscore(i)=sim(net,a); %#ok<SAGROW>
end


/ R; U2 n* ~3 i5 d- ?6 U) ~, }. T# ^
5 e" z3 u: F% k" `

数学中国—罂粟

你是要问什么啊？
# v1 Q8 z4 L/ I5 |' C  p

子任

大神能帮我运行一下代码吗
7 X* q/ v3 A) Q8 h) i" P  u我不懂这个
能留下联系方式吗
/ i0 P' M6 R* M

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
我这里有一个小模板，你可以看看，希望对你有用：
/ C. v8 Z& H' o9 Y" P+ _& vclc,clear
( U- F( r3 V" B: tsqrs = [20.55 22.44 25.37 27.13 29.45 30.1 30.96 34.06 36.42 38.09 39.13 39.99 ...
! K( Q4 p7 u# z, n    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...
    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 h4 R6 o  X  _; [    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];
%公路客运量 单位：万人
9 E# }9 m8 U  F# Q& b+ uglhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
    11115 13320 16762 18673 20724 20803 21804];
, K) K$ O: @* ~%公路货运量 单位：万吨
" g# r4 Y& C. [. k6 tp = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
$ z& \( m& K' U# zt = [glkyl;glhyl];          %目标矩阵
/ ^; d+ t1 [  [) e; h7 E5 p
6 X/ [) \4 F, E; g  k$ w8 B& b%%归一化处理
" R0 ^# a) o0 f& ^& j+ ?( V5 G[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
  b4 z' W1 V. T/ s( Vdx = [-1,1;-1 1;-1,1];                       %
5 y: `! C2 F' G4 v! o
%BP网络训练
& s# u7 }  o- a' T7 T0 dnet = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');
0 P" H) D/ ~$ G  h0 ?" q
% T* b+ i8 J$ N%%建立模型，并用梯度下降法训练
6 f9 z/ I- k0 dnet.trainParam.show = 1000;          %轮回显示一次
net.trainParam.Lr = 0.05;            %学习速率
# l4 F/ \1 _! B( Unet.trainParam.epochs = 50000;       %最大训练轮回
net.trainParam.goal = 0.65*10^(-3);  %均方误差
net = train(net,pn,tn);              %开始训练
# |$ q# b8 M" K: V" {
%%利用原始数据对BP网络仿真
3 X: M# w9 Q6 e) C1 j1 O7 Fan = sim(net,pn);                    %用训练好的模型进行仿真
! T7 q5 y! Z; D% f# na = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级

+ _* C* p0 Q: [% H9 L' E) u%%对比测试
x = 1990:2009;
* E% |' o% Z* B* K$ |! S; O, Znewk = a(1,:);
newh = a(2,:);
figure(2);
5 B# n9 w7 |* a0 \8 \. \. t- h4 r6 Tsubplot(2,1,1);
) V  w( l% b0 ?+ y. kplot(x,newk,'r-o',x,glkyl,'b--+');
% J+ r- o% W  l, e9 V5 olegend('预测输出客运量','实际客运量');
4 ^9 f( J4 f) b! [' \: z7 K) oxlabel('年份');
  J, v. l$ x/ O( z  j% \8 R3 Hylabel('客运量/万人');
title('运用数据箱客运量学习和测试对比图');
8 d% M6 |# B* i. U. @3 esubplot(2,1,2);
$ T% [! m' P& h3 Qplot(x,newh,'r-o',x,glhyl,'b--+');
' z. m* E( l% |) xlegend('预测输出货运量','实际货运量');
/ n. e( _' J+ i. p7 Z2 \xlabel('年份');
, D& P! S' A$ L  a: A& Hylabel('货运量/万吨');
title('运用数据箱货运量学习和测试对比图');
4 |+ i' i( M" l%利用训练好的网络进行预测
9 J# W7 x9 W( _, k% Q: u: g' H5 npnew = [73.39 75.55
    3.9635 4.0975
    0.9880 1.0268];
, H1 _  y  ^+ y; Apnewn = tramnmx(pnew,minp,maxp);
%利用原始输入数据的归一化参数对新参数进行归一化
anewn = sim(net,pnewn);
  J7 _  |  k1 Z%利用归一化后的数据进行仿真
anew = postmnmx(anewn,mint,maxt)
% \& f  I: l6 o! y3 r%把仿真得到的数据还原原始的数量级
- f- D7 n4 O9 [9 b! \' T- g, {
  F# p5 _" }1 F  j$ f
欢迎交流！
( t. D! Y& a3 ?- j
  \3 e- Q; c$ }" }3 c1 w) j+ ]: i

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
非常感谢你

& t# q" N) d# Q5 d; a