求 神经网络大神帮助

子任

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

. ]9 e$ c. s3 Q* x! p  y
a=max(p'); %#ok<UDIM>
for i=1:14
' l  g. \- E0 Y7 }, Ffor j=1:3
8 o3 Z' G8 m) W' Y% |' iptest(i,j)=p(i,j)/a(i);
# w, |( ?* ~% Z; j7 Mend
" ~& |8 v- |# c9 Y; [# e. Bend

. u3 D) ?$ n7 L: Q; N3 K& F  h' L
p1=ones(1,14);
$ y( ^9 s/ \5 hp2=0.8.*ones(1,14);
. T5 {2 q: U7 A& D: _( op3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
8 t9 _1 b! l& c: vp5=0.2.*ones(1,14);
p6=0.*ones(1,14);
/ L. @3 G7 j# N5 e( i- v) Iptrain=[pl;p2;p3;p4;p5;p6];
/ l$ o3 [. b/ _, o  yt=[100,80,60,40,20,0];
, H8 \7 S+ F+ \
  H+ g: g+ Z3 O7 C- t& F8 S0 ]+ t
/ |) I+ Q5 \+ W; C4 I& ]8 e5 znet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
7 k/ O/ i. _3 N+ tnet=init(net);
3 o5 F- M  U/ V* \& P' k: Snet.trainparam.epochs=100000;
  H  |: p0 u& S0 ?+ L/ onet.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
8 ~/ w/ J& u& w. R8 m9 t, a

6 X* a' L8 Q: g0 G& G# gfor i=1:3
a=ptes(:,i);
1 S: O7 J9 j$ z( j6 U8 |score(i)=sim(net,a); %#ok<SAGROW>
; U# ]/ @) m. {! {end
& a" L& j; t2 k) F5 S2 |. D

; o+ ]4 ^$ V% V. o3 H" t

数学中国—罂粟

你是要问什么啊？

子任

大神能帮我运行一下代码吗
4 ^# c9 l# k- V$ P) [- A( J( X我不懂这个
能留下联系方式吗
: Z" e* j7 G" l( |

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
我这里有一个小模板，你可以看看，希望对你有用：
4 }, t* X8 f' T1 z: cclc,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 ...
5 i/ J/ o1 s( {- c" [+ R# s9 Y    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];
# Q2 A9 `* \, T, C7 C* c%机动车数 单位：万辆
7 _+ b# s) b* V8 |6 ~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];
%公路面积 单位：万平方千米
glkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
    19490 20433 22598 25107 33442 36836 40548 42927 43462];
5 ?7 X+ s$ W% `' i% d' n9 g$ s%公路客运量 单位：万人
8 w  n; Z! k9 N, L- [. rglhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
: {8 [* J" I2 o* U2 Z1 P% i/ F* Y    11115 13320 16762 18673 20724 20803 21804];
%公路货运量 单位：万吨
# y) `& N- E% X5 V, ]p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
t = [glkyl;glhyl];          %目标矩阵
( \7 U* q1 A  J; E
  P! E* E, g' ]4 C%%归一化处理
[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
dx = [-1,1;-1 1;-1,1];                       %

) P$ B" }" m! V! V+ w, J%BP网络训练
net = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');

$ a5 E  H9 |  y$ ^' f  w%%建立模型，并用梯度下降法训练
) w; I/ ?9 Z! }net.trainParam.show = 1000;          %轮回显示一次
net.trainParam.Lr = 0.05;            %学习速率
4 {$ P" {/ m, W+ }. W$ }2 @net.trainParam.epochs = 50000;       %最大训练轮回
net.trainParam.goal = 0.65*10^(-3);  %均方误差
1 N- ]) Q. H# e* D4 }0 Nnet = train(net,pn,tn);              %开始训练

# w1 `# L2 @  t%%利用原始数据对BP网络仿真
an = sim(net,pn);                    %用训练好的模型进行仿真
a = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级

) O/ a( S1 O1 C' w# B%%对比测试
x = 1990:2009;
  W; A. W! ?5 K1 b9 y" n" ^- ynewk = a(1,:);
3 Q4 v" f# b/ C3 `  W' b% \5 Xnewh = a(2,:);
( H: T2 y9 S5 J# g$ dfigure(2);
  D9 R1 n. R2 w. A: Tsubplot(2,1,1);
plot(x,newk,'r-o',x,glkyl,'b--+');
: [5 b) u1 s5 Mlegend('预测输出客运量','实际客运量');
; D. z2 k0 f0 v; O9 l& d/ lxlabel('年份');
ylabel('客运量/万人');
title('运用数据箱客运量学习和测试对比图');
subplot(2,1,2);
plot(x,newh,'r-o',x,glhyl,'b--+');
8 m7 s; f6 a6 ^+ Qlegend('预测输出货运量','实际货运量');
& G) D5 m" Q1 `, S- J2 k7 Txlabel('年份');
ylabel('货运量/万吨');
# V; W! j9 w$ v  ~title('运用数据箱货运量学习和测试对比图');
%利用训练好的网络进行预测
# G% x+ r7 C6 D; `pnew = [73.39 75.55
    3.9635 4.0975
    0.9880 1.0268];
- f: g6 ~. y% p5 T& T. H1 ]pnewn = tramnmx(pnew,minp,maxp);
! a" Z; m* C" R" S%利用原始输入数据的归一化参数对新参数进行归一化
anewn = sim(net,pnewn);
% x5 ?" G8 s+ i. F9 V%利用归一化后的数据进行仿真
anew = postmnmx(anewn,mint,maxt)
, V0 i7 m0 T" R%把仿真得到的数据还原原始的数量级

* Q4 ~) s" t' H/ P" g
, a  H/ m$ _* X欢迎交流！

子任

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