求 神经网络大神帮助

子任

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];
' d! Z7 W" M0 E. m4 ~

a=max(p'); %#ok<UDIM>
for i=1:14
% I' }1 y& z, V* y/ E$ Rfor j=1:3
ptest(i,j)=p(i,j)/a(i);
end
2 w  w# e" D/ O2 Y, g0 Send
$ J. T% l5 e+ f- ?3 ?8 p

p1=ones(1,14);
5 A/ U& ]4 d) s; Kp2=0.8.*ones(1,14);
0 G0 V2 Q+ H" W' y) f, C6 A% Np3=0.6.*ones(1,14);
1 s$ A4 g  D) ^6 \9 D; q0 Cp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
7 T5 W8 w! R( B8 N* ~8 n( Jptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];


net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
; e0 d% l1 x- g$ @net=init(net);
4 Z0 {+ a. i/ B" a* Znet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
; k1 _) v) G# v2 H& X. |
7 c3 S# d+ {8 P% X: A' v* o  B
8 }( k2 T9 z8 v5 h! X8 Pfor i=1:3
a=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
end

2 l4 v% B" G0 q9 Z

, @' n1 D% r) a9 h4 r$ z# a

数学中国—罂粟

你是要问什么啊？

子任

大神能帮我运行一下代码吗
我不懂这个
能留下联系方式吗

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
3 I8 Z1 M% T! U5 q我这里有一个小模板，你可以看看，希望对你有用：
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 ...
' _% S" u, F' H$ K    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];
%机动车数 单位：万辆
0 P& h& O5 `0 R9 Gsqglmj = [0.09 0.11 0.11 0.14 0.20 0.23 0.23 0.32 0.32 0.34 0.36 0.36...
2 Z" g/ E) Y2 e5 l" L6 P    0.38 0.49 0.56 0.59 0.59 0.67 0.69 0.79];
%公路面积 单位：万平方千米
$ J& `% f. W1 N4 e$ H! jglkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
; ]+ t5 R" _$ h7 E! U) `    19490 20433 22598 25107 33442 36836 40548 42927 43462];
3 q9 ?. d  ^% y- |! A: T$ g%公路客运量 单位：万人
glhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
    11115 13320 16762 18673 20724 20803 21804];
. q0 y2 c. W9 a0 X% W; H%公路货运量 单位：万吨
p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
t = [glkyl;glhyl];          %目标矩阵
7 L- m1 |& n7 V* g, [: ~! K8 u1 O% F9 F
# U- F! |  E% c0 R%%归一化处理
[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
dx = [-1,1;-1 1;-1,1];                       %

3 c/ U& O: p8 {  r) c& P; c%BP网络训练
% L$ U! z, W$ c* C& Onet = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');

%%建立模型，并用梯度下降法训练
net.trainParam.show = 1000;          %轮回显示一次
; v) {0 R" i% q2 T9 K$ _net.trainParam.Lr = 0.05;            %学习速率
net.trainParam.epochs = 50000;       %最大训练轮回
net.trainParam.goal = 0.65*10^(-3);  %均方误差
. c9 D2 Q. Q7 p. |  hnet = train(net,pn,tn);              %开始训练

%%利用原始数据对BP网络仿真
an = sim(net,pn);                    %用训练好的模型进行仿真
0 X5 P* t- r. ~# A8 v' v4 da = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级
: `% ^5 Z1 U2 f$ s$ n% l
' X" W, b) J" Q" t%%对比测试
x = 1990:2009;
newk = a(1,:);
newh = a(2,:);
" v& ~8 n8 }6 ?# \7 ]" C( ~% r7 k& Vfigure(2);
; f& \! V2 L8 L) n& Psubplot(2,1,1);
plot(x,newk,'r-o',x,glkyl,'b--+');
legend('预测输出客运量','实际客运量');
xlabel('年份');
0 [; i* P/ p. `9 Dylabel('客运量/万人');
title('运用数据箱客运量学习和测试对比图');
, j" L! |4 z' d2 ^+ o6 xsubplot(2,1,2);
5 b: e8 H2 _# Q) Rplot(x,newh,'r-o',x,glhyl,'b--+');
legend('预测输出货运量','实际货运量');
  l- H) T0 r0 W1 Q1 K% ^" T# wxlabel('年份');
* i- s8 ~3 K: d5 q( kylabel('货运量/万吨');
& Q, K& }  S6 y( otitle('运用数据箱货运量学习和测试对比图');
: T  q! f( j9 |0 E- i- Y9 j( X* m& ?%利用训练好的网络进行预测
3 E, Q. j$ b! Mpnew = [73.39 75.55
    3.9635 4.0975
    0.9880 1.0268];
pnewn = tramnmx(pnew,minp,maxp);
) x3 S8 O' d: x% b$ h6 W; ~% b%利用原始输入数据的归一化参数对新参数进行归一化
anewn = sim(net,pnewn);
%利用归一化后的数据进行仿真
9 Q3 N( ]. {* t: I: }anew = postmnmx(anewn,mint,maxt)
( \* d' ]! ~7 _7 c8 D%把仿真得到的数据还原原始的数量级


0 l( G3 }0 f  Q& K. P" y欢迎交流！

5 ]5 T2 ^4 U# P/ {! b! I6 o8 ?& A, L

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
非常感谢你
6 K. T8 G  c( o- o* e0 i
6 I0 p8 n' P# ^) H