求 神经网络大神帮助

子任

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];
/ R6 O7 B) R% ]" l/ \9 t9 U

a=max(p'); %#ok<UDIM>
for i=1:14
for j=1:3
# b9 q( q3 Z/ f* o4 Xptest(i,j)=p(i,j)/a(i);
end
end
3 \% y: r  W9 T' E. g
( l) u+ ?: ]2 M& |$ l3 l1 R
p1=ones(1,14);
' m5 c: @4 @3 w! S9 Hp2=0.8.*ones(1,14);
. [' w/ `. H) G1 Ep3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];
4 p9 ]  D: K8 K* @

net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
1 b' n; @9 M+ Unet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
2 \0 q5 n- N3 d5 ]0 \6 l0 v3 G) i[net,tr]=train(net,ptrain',t);

* i+ d3 A" J0 e/ I
for i=1:3
a=ptes(:,i);
+ G3 g6 d% F8 k  a5 [% [score(i)=sim(net,a); %#ok<SAGROW>
end


" m* T* \) [( F

数学中国—罂粟

你是要问什么啊？
; v* Q4 E: ?% T! o

子任

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

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 ...
$ V2 N# P. {! l; _5 B    41.93 44.59 47.30 52.89 55.73 56.76 59.17 60.63];
8 C' a1 I. m" M' X, f%人数 单位：万人
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...
1 d2 F5 _1 s9 n( b* g    2.25 2.35 2.50 2.60 2.70 2.85 2.95 3.10];
& A* s) a* r; }%机动车数 单位：万辆
: Z" ^9 A8 ]! t! M3 ^8 I+ t" d! @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];
# K1 [0 o8 E$ R9 @% z8 W%公路面积 单位：万平方千米
glkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
' Y) n- o$ v4 p1 W% j    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];
* l8 z' i* W1 v7 f1 R+ I8 d%公路货运量 单位：万吨
p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
, q+ t0 Y! F8 X) H! h; W9 w$ vt = [glkyl;glhyl];          %目标矩阵

2 f: j" J! E" _) w7 }! A' }%%归一化处理
[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
" P# q* i. g) z' f8 ndx = [-1,1;-1 1;-1,1];                       %
7 h, Q- L/ |6 T* n3 p$ n! ^
%BP网络训练
/ a1 s; X; A; w/ G. anet = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');
' x' X" Q8 |8 R, y
$ I0 Z) A0 Z+ p$ n%%建立模型，并用梯度下降法训练
# [/ ?; A9 T1 }( v( f( N9 onet.trainParam.show = 1000;          %轮回显示一次
" ?. [4 ~0 |8 q0 h' C; n# Wnet.trainParam.Lr = 0.05;            %学习速率
net.trainParam.epochs = 50000;       %最大训练轮回
net.trainParam.goal = 0.65*10^(-3);  %均方误差
! |$ V* J$ l* R. r. s7 inet = train(net,pn,tn);              %开始训练

, t. L8 s8 K$ j* _7 W%%利用原始数据对BP网络仿真
3 b; u( c" n1 |) N0 a/ n$ Zan = sim(net,pn);                    %用训练好的模型进行仿真
a = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级
- }+ e; t& {2 r
%%对比测试
x = 1990:2009;
8 n- O5 k, j2 d$ @newk = a(1,:);
newh = a(2,:);
figure(2);
subplot(2,1,1);
; b- ]6 G, j) B9 D7 N6 n+ Nplot(x,newk,'r-o',x,glkyl,'b--+');
legend('预测输出客运量','实际客运量');
8 d3 Z# R% Y: n& y6 j: x+ `xlabel('年份');
ylabel('客运量/万人');
title('运用数据箱客运量学习和测试对比图');
1 p' y2 J! b! D+ i& Isubplot(2,1,2);
plot(x,newh,'r-o',x,glhyl,'b--+');
* }/ Y9 G5 R6 E( w* D2 Xlegend('预测输出货运量','实际货运量');
xlabel('年份');
6 W  s) x: W( u3 D" rylabel('货运量/万吨');
# Z! `3 I) Z% G" N) ?  o9 wtitle('运用数据箱货运量学习和测试对比图');
%利用训练好的网络进行预测
* }8 W# _$ X; @$ N& Q; s2 Bpnew = [73.39 75.55
. {0 C& H2 ^1 s( [1 k    3.9635 4.0975
    0.9880 1.0268];
pnewn = tramnmx(pnew,minp,maxp);
%利用原始输入数据的归一化参数对新参数进行归一化
anewn = sim(net,pnewn);
0 _1 z: Z% O1 T; Q* n%利用归一化后的数据进行仿真
- p9 e1 O1 A8 p% \) R3 E# P. eanew = postmnmx(anewn,mint,maxt)
, R6 n5 b& N: }% r%把仿真得到的数据还原原始的数量级
' H8 u0 j/ L6 _- f2 v
2 F& b2 |3 ^1 ]5 _# Q" P6 z0 `0 n* {- ^
欢迎交流！

2 i2 }; B! S2 H: T

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
7 K4 U( S7 t6 ?# O7 ^! U非常感谢你