求 神经网络大神帮助

子任

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


4 G- c0 z* I' [5 G: x* ma=max(p'); %#ok<UDIM>
for i=1:14
, v. e( z$ {# v  Q* Mfor j=1:3
3 B! z2 c8 P) Y% y$ n4 Dptest(i,j)=p(i,j)/a(i);
; t" ]: o. R7 ?0 f8 kend
end
* P% E( n* ^5 }/ ~+ x6 Q7 |
( {, t+ v& D" }( ^  e9 [
( v$ ?; s' K1 ?8 S& pp1=ones(1,14);
$ R% S+ f: h- H! e' s5 t: k, ap2=0.8.*ones(1,14);
' I7 g3 z9 ]* ^& Zp3=0.6.*ones(1,14);
3 z7 T. M7 [7 _/ t* ~p4=0.4.*ones(1,14);
) v4 g9 A4 k7 H7 Q0 f9 ]p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
8 O( B& p" `! E! ~3 r( pptrain=[pl;p2;p3;p4;p5;p6];
5 ?* A9 R8 C" \% A0 K& gt=[100,80,60,40,20,0];

' P. ?! l) O1 R( B  [3 z1 \
  i. P& A( ?+ h8 W$ Y& ~9 gnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
( ^1 W$ C2 r2 U9 wnet=init(net);
& E  D# M4 t" t, Bnet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
. D& G) u- V/ F, Y; t3 u0 H[net,tr]=train(net,ptrain',t);

0 N# v: [% R7 ~5 a  M
+ C1 k8 m; |( G' n2 mfor i=1:3
# V* f+ U  s. t  {a=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
7 A" G. M3 K" ]end
# \  S- i& w  j
8 u2 w1 }2 N) b% |5 z
. {5 g, }: X0 \# @$ ]0 w. [
* l# R# ^7 y7 ~4 u$ z9 @% B. V  [

数学中国—罂粟

你是要问什么啊？

子任

大神能帮我运行一下代码吗
我不懂这个
能留下联系方式吗
) {9 O' p) R- {* E7 c. n* d

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
我这里有一个小模板，你可以看看，希望对你有用：
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 ...
$ p$ B* N! E' V- ~# r) e# l( d    41.93 44.59 47.30 52.89 55.73 56.76 59.17 60.63];
9 F$ l$ T3 y, `  x2 M; k1 @%人数 单位：万人
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];
( U: R5 s8 h4 W5 K" T; C%机动车数 单位：万辆
1 z3 ^, N/ L: x( q, Q. O/ Vsqglmj = [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];
%公路面积 单位：万平方千米
$ j9 d* H5 r  ~7 d' w* Cglkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
8 y8 E8 B1 Q0 s6 T- m& s: H0 z    19490 20433 22598 25107 33442 36836 40548 42927 43462];
%公路客运量 单位：万人
glhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
    11115 13320 16762 18673 20724 20803 21804];
6 ^. O7 O, H0 b% G' o/ }  b%公路货运量 单位：万吨
p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
( @6 o: z8 J- E# Tt = [glkyl;glhyl];          %目标矩阵

6 [3 b9 [, D3 [, d%%归一化处理
( a/ T$ [+ }6 `9 p& w' a3 N: d$ c[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
dx = [-1,1;-1 1;-1,1];                       %
4 T4 e  r. ]# R- I
%BP网络训练
net = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');

%%建立模型，并用梯度下降法训练
net.trainParam.show = 1000;          %轮回显示一次
net.trainParam.Lr = 0.05;            %学习速率
( q, h, w/ r; F6 u! }/ ]) Znet.trainParam.epochs = 50000;       %最大训练轮回
' E$ A" M3 z5 ]3 onet.trainParam.goal = 0.65*10^(-3);  %均方误差
net = train(net,pn,tn);              %开始训练
2 F5 w  N9 m$ D" O7 e
& v9 w: [3 W7 K+ @" X4 @- P%%利用原始数据对BP网络仿真
; p; l' F$ O4 f# fan = sim(net,pn);                    %用训练好的模型进行仿真
. B9 Y4 v& u# L, G$ t4 \a = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级

%%对比测试
x = 1990:2009;
% i$ D( ~% s/ k8 V/ Y9 h, S- I9 Gnewk = a(1,:);
( W8 A: E) _5 r7 F/ W5 c3 T- cnewh = a(2,:);
figure(2);
$ Q& P! I2 _$ h) q; dsubplot(2,1,1);
plot(x,newk,'r-o',x,glkyl,'b--+');
legend('预测输出客运量','实际客运量');
' J7 ?3 e  \1 h: Kxlabel('年份');
9 a6 e$ p9 l( \  I, q0 eylabel('客运量/万人');
title('运用数据箱客运量学习和测试对比图');
subplot(2,1,2);
# F2 ^; f/ t( t( B& r; qplot(x,newh,'r-o',x,glhyl,'b--+');
legend('预测输出货运量','实际货运量');
xlabel('年份');
% H; P, l5 y( B& gylabel('货运量/万吨');
title('运用数据箱货运量学习和测试对比图');
%利用训练好的网络进行预测
  W5 a; H+ w! l% t# e8 X( S1 B. }8 N% B' ppnew = [73.39 75.55
; w) @& e* t- f1 V. ]7 x; V    3.9635 4.0975
+ C( A/ K7 \& Q" m) p    0.9880 1.0268];
0 x' y; S, Q7 G- {9 k( Vpnewn = tramnmx(pnew,minp,maxp);
- ~2 {8 I$ B% o7 X( \: T. V4 K- y* R%利用原始输入数据的归一化参数对新参数进行归一化
anewn = sim(net,pnewn);
- s( p% d% m; w0 C2 r! G%利用归一化后的数据进行仿真
! @8 B7 [0 n( o/ O/ g0 ]; V2 W& J) hanew = postmnmx(anewn,mint,maxt)
2 g! q: l6 J: @. X5 w& v" Z( J%把仿真得到的数据还原原始的数量级


$ z& M' |8 N$ D  V1 ^欢迎交流！
# s" V1 e& Z1 V5 Y9 Y

子任

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

2 ]" s) e5 _- [- P3 r7 |; M