求 神经网络大神帮助

子任

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];
. N0 b! I0 Q0 S6 a

: a  ?# S! W1 z# e* k* r( ^9 C6 o% Ta=max(p'); %#ok<UDIM>
for i=1:14
for j=1:3
ptest(i,j)=p(i,j)/a(i);
. ]+ k# ]) A* q+ L2 c' J" b$ Xend
5 h: F* M8 [0 `2 k- `end
9 h, f2 d' |; Q/ b- d
: s" H5 W3 [0 Q: B  w
p1=ones(1,14);
- t3 S4 V4 P4 Op2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
% |% s% O8 k" b- G( o8 Y1 Jp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
/ ?0 e$ o3 G: Q( e' F/ h5 E; b$ wptrain=[pl;p2;p3;p4;p5;p6];
) v- C# K2 I. i% ot=[100,80,60,40,20,0];

" d/ f! H9 V7 p$ K  n$ a
# N" ?6 g1 [( r' u9 ^- Z$ [4 qnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
! I+ X  x$ K3 Z6 ?. u  Enet=init(net);
net.trainparam.epochs=100000;
2 C% k$ Q( |8 p8 c0 gnet.trainparam.goal=1e-10;
8 v1 K# Y" x2 _  s1 S- a, F5 t; k[net,tr]=train(net,ptrain',t);

5 h) ?+ U0 T) z" i; I
for i=1:3
5 L' ^" X! L9 M" i6 V0 Za=ptes(:,i);
! r9 Y$ S" n( \" \7 l5 N: Gscore(i)=sim(net,a); %#ok<SAGROW>
$ W3 A" u0 K& e: z& t% K1 e  W$ Send
5 Z9 @% A4 a3 Z" Q' d1 e& z( x/ D7 Q2 S7 T

8 g3 C7 y9 Y4 {
% e) j- d: D7 l

数学中国—罂粟

你是要问什么啊？
. P6 v4 G5 K' I) V  N! o

子任

大神能帮我运行一下代码吗
& z6 @* M4 i! |3 c我不懂这个
能留下联系方式吗
0 y: N! u* }5 P; L/ |! G

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
6 m( q" A  s( R5 p我这里有一个小模板，你可以看看，希望对你有用：
& t! {; T0 h4 V  X- ~/ @1 Jclc,clear
6 b1 [% e# G/ u  q: Jsqrs = [20.55 22.44 25.37 27.13 29.45 30.1 30.96 34.06 36.42 38.09 39.13 39.99 ...
# L' `' r6 H# n8 o5 I- F. R# f2 J    41.93 44.59 47.30 52.89 55.73 56.76 59.17 60.63];
$ @# y- L* X1 F* z; y0 ~" j  {# J%人数 单位：万人
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...
! v. S- P5 w$ L7 B; M1 n! s    2.25 2.35 2.50 2.60 2.70 2.85 2.95 3.10];
%机动车数 单位：万辆
$ [9 _* s4 s$ g  V& q# z$ Rsqglmj = [0.09 0.11 0.11 0.14 0.20 0.23 0.23 0.32 0.32 0.34 0.36 0.36...
9 F: N: a" q! T    0.38 0.49 0.56 0.59 0.59 0.67 0.69 0.79];
- z) _5 p5 @1 i. n- E! \$ n%公路面积 单位：万平方千米
* Q, C7 z: V! Iglkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
1 e8 K3 g) P; i, [  F9 V2 C3 `    19490 20433 22598 25107 33442 36836 40548 42927 43462];
%公路客运量 单位：万人
glhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
' `5 l! i8 C0 w0 t, f    11115 13320 16762 18673 20724 20803 21804];
%公路货运量 单位：万吨
p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
t = [glkyl;glhyl];          %目标矩阵
1 i4 ^1 r5 b/ u- a* y% I- S
%%归一化处理
[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
4 d: [4 f& A+ pdx = [-1,1;-1 1;-1,1];                       %
" E) y: l5 R) M: H/ Y$ p
4 ~" l8 ], d) g; h8 ]%BP网络训练
4 @( c! g& u! C0 X4 R' pnet = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');
: O! Y: M0 ]. ?5 y
$ ~& X2 a: `- o! A0 B# Z( a( Q1 ~%%建立模型，并用梯度下降法训练
net.trainParam.show = 1000;          %轮回显示一次
net.trainParam.Lr = 0.05;            %学习速率
net.trainParam.epochs = 50000;       %最大训练轮回
net.trainParam.goal = 0.65*10^(-3);  %均方误差
# [- z  H. K6 q) a0 nnet = train(net,pn,tn);              %开始训练
: }  Y/ _+ o! j- n
%%利用原始数据对BP网络仿真
an = sim(net,pn);                    %用训练好的模型进行仿真
  m0 R3 F2 G; H' \9 i- |# v. ha = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级

%%对比测试
2 k# `2 N) H# I& Ix = 1990:2009;
# i$ a9 i, o7 N9 o$ y* W4 onewk = a(1,:);
newh = a(2,:);
6 p# u! M6 r4 g& @9 t; s0 G5 Z" ]figure(2);
subplot(2,1,1);
plot(x,newk,'r-o',x,glkyl,'b--+');
& t' \6 K, O* N5 @legend('预测输出客运量','实际客运量');
xlabel('年份');
ylabel('客运量/万人');
title('运用数据箱客运量学习和测试对比图');
subplot(2,1,2);
# Y  G) ]8 F  j& e0 g1 _5 m; Xplot(x,newh,'r-o',x,glhyl,'b--+');
3 }; y! k+ z# ?0 @legend('预测输出货运量','实际货运量');
xlabel('年份');
8 o0 F) K! j, Dylabel('货运量/万吨');
title('运用数据箱货运量学习和测试对比图');
%利用训练好的网络进行预测
+ L% `; g! A0 P: A9 Upnew = [73.39 75.55
    3.9635 4.0975
    0.9880 1.0268];
8 d; n  |/ u% Z* rpnewn = tramnmx(pnew,minp,maxp);
%利用原始输入数据的归一化参数对新参数进行归一化
8 f5 j! I1 K7 D3 k, D, a- kanewn = sim(net,pnewn);
%利用归一化后的数据进行仿真
4 O! C% P5 |) x( Q; _* q# @3 Vanew = postmnmx(anewn,mint,maxt)
1 P7 a& ]- n$ i1 J4 j8 V( e* t%把仿真得到的数据还原原始的数量级
5 Y- c0 ?; n4 ?3 v% g
# y0 s) A% k. d" r  P* F
, O: h6 w/ q" X欢迎交流！
( m# c' i2 Q  o& Y

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
非常感谢你
+ O  {3 z. J/ D0 `; D
5 m/ g* T, F0 z0 i& R: e4 E