求 神经网络大神帮助

子任

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


a=max(p'); %#ok<UDIM>
for i=1:14
for j=1:3
4 X2 ]* c* U# R& @ptest(i,j)=p(i,j)/a(i);
end
end
# |7 r% _( J: X" j$ U
; Z' ]* K) \  D1 O# j; L
p1=ones(1,14);
0 h6 x1 p/ n$ Y% z" e/ \p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
6 D3 x+ i: Y3 B9 @1 }6 q' X% r5 }2 np4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
' N9 A& m& I) V3 U. T1 Eptrain=[pl;p2;p3;p4;p5;p6];
( ^$ @5 _" n& N8 n: e, Tt=[100,80,60,40,20,0];
8 k0 C! C- ]( H7 N; c7 k
; X( F& \8 V2 f$ }8 @
1 d" s  j% L9 G% bnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
" c; Y. k. `1 F+ L- v
: C  I9 R* }! a7 Q4 `' C# z
. C; r  |" E6 lfor i=1:3
& g3 g1 W1 x( T& A, x% M$ S' F5 ea=ptes(:,i);
' i% y! Z8 r0 V7 I' oscore(i)=sim(net,a); %#ok<SAGROW>
end

' ~- n" q8 W0 j. P7 Z  [' v8 T
1 c/ Q: t! h# K1 g7 [- h; A
$ n& S! s5 @9 x: O" j4 w

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
# W. Y5 f6 D  j/ f7 o4 \非常感谢你

0 [0 {5 k0 \, u" N8 O, A

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
我这里有一个小模板，你可以看看，希望对你有用：
: G; N. ^; [, mclc,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...
7 |& e+ D5 b  V2 }4 i    2.25 2.35 2.50 2.60 2.70 2.85 2.95 3.10];
%机动车数 单位：万辆
/ Y) V! X# t3 X2 ]  m5 Isqglmj = [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....
" \0 J; F& s, I4 f5 E2 x    19490 20433 22598 25107 33442 36836 40548 42927 43462];
%公路客运量 单位：万人
glhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
5 _6 I2 W% }' j9 E    11115 13320 16762 18673 20724 20803 21804];
%公路货运量 单位：万吨
p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
2 y& Z2 m5 j) r. ~0 v8 B. G' I' Vt = [glkyl;glhyl];          %目标矩阵

%%归一化处理
0 }+ ]* X# P2 q[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
dx = [-1,1;-1 1;-1,1];                       %
% ^" g8 a% n6 {* _. b
%BP网络训练
net = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');

%%建立模型，并用梯度下降法训练
net.trainParam.show = 1000;          %轮回显示一次
net.trainParam.Lr = 0.05;            %学习速率
/ B3 d) B0 Q' w1 f/ x& [* ]$ @# H; Xnet.trainParam.epochs = 50000;       %最大训练轮回
net.trainParam.goal = 0.65*10^(-3);  %均方误差
/ u0 ]1 b' I1 _2 X! enet = train(net,pn,tn);              %开始训练

%%利用原始数据对BP网络仿真
an = sim(net,pn);                    %用训练好的模型进行仿真
a = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级
4 J9 x9 i0 t5 _7 ]
%%对比测试
! M& ]2 o- A2 J- Mx = 1990:2009;
newk = a(1,:);
  Y. a/ g& F$ N; g' Onewh = a(2,:);
: ~, g7 X$ x. S. Efigure(2);
9 o" p, _$ [: P' Nsubplot(2,1,1);
plot(x,newk,'r-o',x,glkyl,'b--+');
legend('预测输出客运量','实际客运量');
' U5 y% `. M  b9 Y; R( B5 e- d) Vxlabel('年份');
6 C$ ?$ Z- W% o$ ~. H  Z- fylabel('客运量/万人');
  F- V: f5 X) }6 N: A2 Ititle('运用数据箱客运量学习和测试对比图');
subplot(2,1,2);
plot(x,newh,'r-o',x,glhyl,'b--+');
legend('预测输出货运量','实际货运量');
xlabel('年份');
, M" Y3 T2 E: t8 Eylabel('货运量/万吨');
" @  {- m8 J0 l' K( Htitle('运用数据箱货运量学习和测试对比图');
%利用训练好的网络进行预测
# R' H' u; M0 ^2 ~pnew = [73.39 75.55
" y2 b% S% G+ T$ C    3.9635 4.0975
    0.9880 1.0268];
pnewn = tramnmx(pnew,minp,maxp);
& Y; r6 s5 m* p%利用原始输入数据的归一化参数对新参数进行归一化
- \: d. k$ a5 \4 Danewn = sim(net,pnewn);
%利用归一化后的数据进行仿真
8 V' G8 N1 A. J0 {2 I3 ?anew = postmnmx(anewn,mint,maxt)
%把仿真得到的数据还原原始的数量级
  V1 g: Y3 P) u# F
# E- D* j- Y0 j, y! C, K0 L" N, N
  E' m( Y+ X" {  p! s4 J欢迎交流！
0 B0 O0 r: u4 |& s/ @8 ^

子任

大神能帮我运行一下代码吗
' |$ W, S9 q; e2 V) C9 h2 X我不懂这个
& i: f! g( m' v- {9 N/ d8 t能留下联系方式吗
7 t- z. m% I0 h  ?/ l/ ^& y

数学中国—罂粟

你是要问什么啊？
: n2 |# D1 r: m3 Z