求 神经网络大神帮助

子任

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

7 q' ?- Q+ ]. o" g. \
a=max(p'); %#ok<UDIM>
for i=1:14
# {9 P4 p9 x/ j0 r, [, }- jfor j=1:3
ptest(i,j)=p(i,j)/a(i);
$ ?9 c$ z1 R) h% _3 `end
0 h* M1 a0 @' F' r  ~end

# h; D! w+ T# Z! ^: G
p1=ones(1,14);
p2=0.8.*ones(1,14);
* l9 x5 T0 W6 [% ~% ~' Ip3=0.6.*ones(1,14);
4 u( z2 U/ p, Ap4=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];
! \$ f2 V; m6 d

: ^- I& W4 d* U7 t( H) z# Tnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
" j9 i/ E: y2 `3 S; v% ?4 Bnet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
7 z$ B, [8 F! k; f[net,tr]=train(net,ptrain',t);


for i=1:3
a=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
4 m2 `2 L. a3 e! B) F. Jend

9 n+ y0 H% U' \2 n3 y2 [
3 q5 f% u- M7 ^& Q
1 y( \2 x! Y  Z

数学中国—罂粟

你是要问什么啊？
/ F; K' p% V4 R- u- X: i# Q9 n) Z* P

子任

大神能帮我运行一下代码吗
# r9 q% u: N+ e/ ]我不懂这个
* B/ o& F& u# h% q' U. ?+ G& G, r能留下联系方式吗
$ y/ Y7 z, K3 ~/ U+ s

QYY1994

这程序是你自己编的吧！你能说说你想做的是什么吗？
我这里有一个小模板，你可以看看，希望对你有用：
% G, X( ~( }9 Qclc,clear
  s5 o) i2 c6 c6 Ysqrs = [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];
% P( m9 L* r7 j2 y  L%人数 单位：万人
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];
%机动车数 单位：万辆
& r7 w5 n. C- @* d* Hsqglmj = [0.09 0.11 0.11 0.14 0.20 0.23 0.23 0.32 0.32 0.34 0.36 0.36...
4 F6 v& C$ I6 ?8 k) K1 |    0.38 0.49 0.56 0.59 0.59 0.67 0.69 0.79];
% P$ @% J' r/ S: v%公路面积 单位：万平方千米
  i  g3 Z8 ~+ X# x! W$ C0 a: Zglkyl = [5126 6217 7730 9145 10460 11387 12353 15750 18304 19836 21024....
    19490 20433 22598 25107 33442 36836 40548 42927 43462];
/ u1 o/ p# a* x' _%公路客运量 单位：万人
  ?1 b; S7 ~  l; {% Q1 Dglhyl = [1237 1379 1385 1399 1663 1714 1834 4322 8132 8936 11099 11203 10524....
    11115 13320 16762 18673 20724 20803 21804];
%公路货运量 单位：万吨
p = [sqrs;sqjdcs;sqglmj];   %输入数据矩阵
7 L% d# q$ F/ ^. y! i7 _: Rt = [glkyl;glhyl];          %目标矩阵
5 h6 n0 ~$ }0 S  g( x" T9 @
. E- S5 Q/ l1 h. @, H%%归一化处理
[pn,minp,maxp,tn,mint,maxt] = premnmx(p,t);  %对pt矩阵进行归一化处理
dx = [-1,1;-1 1;-1,1];                       %
) X  c1 |; |' k% G! [
1 `" S8 X, x# A2 o0 @5 B%BP网络训练
- o% j; c; b3 ]* ^8 {net = newff(dx,[3,7,2],{'tansig','tansig','purelin'},'traingdx');
, Y5 S. q6 s/ ~, q$ P- j1 O, v
%%建立模型，并用梯度下降法训练
  g6 ^; E$ y3 m3 \$ Xnet.trainParam.show = 1000;          %轮回显示一次
net.trainParam.Lr = 0.05;            %学习速率
net.trainParam.epochs = 50000;       %最大训练轮回
$ R$ u% t0 e0 m8 q" m- H! s: Xnet.trainParam.goal = 0.65*10^(-3);  %均方误差
5 O9 q7 @- C, @  w5 w: qnet = train(net,pn,tn);              %开始训练
8 g" I( s# B3 }0 w
# S4 l# y$ }! }, E0 j5 g9 K/ F%%利用原始数据对BP网络仿真
an = sim(net,pn);                    %用训练好的模型进行仿真
a = postmnmx(an,mint,maxt);          %把仿真到的数据还原到原始的数量级

# q6 t7 F( K, u%%对比测试
x = 1990:2009;
newk = a(1,:);
& b3 ~8 ^6 \; S/ Q6 Jnewh = a(2,:);
figure(2);
subplot(2,1,1);
$ _7 e  {& I0 r. y0 D1 L( L; n: V' {- xplot(x,newk,'r-o',x,glkyl,'b--+');
! p+ n: D0 J* u8 k/ m2 K* k- J5 Q! @legend('预测输出客运量','实际客运量');
3 J: g, q) w3 t1 xxlabel('年份');
" c2 y+ g$ \- d& D$ b' Uylabel('客运量/万人');
5 q( {# Q1 p# N- {0 Z) h4 W4 l5 |title('运用数据箱客运量学习和测试对比图');
) b% T/ W+ T: U' |% r6 u( |subplot(2,1,2);
plot(x,newh,'r-o',x,glhyl,'b--+');
legend('预测输出货运量','实际货运量');
xlabel('年份');
ylabel('货运量/万吨');
title('运用数据箱货运量学习和测试对比图');
%利用训练好的网络进行预测
; K; W; t7 A6 Z' J6 wpnew = [73.39 75.55
    3.9635 4.0975
    0.9880 1.0268];
pnewn = tramnmx(pnew,minp,maxp);
, Y( Q' v2 a, Y* m" O0 }%利用原始输入数据的归一化参数对新参数进行归一化
anewn = sim(net,pnewn);
7 Z  T0 s: h6 w0 w. Y%利用归一化后的数据进行仿真
anew = postmnmx(anewn,mint,maxt)
%把仿真得到的数据还原原始的数量级


欢迎交流！
, f1 e6 q  L- s  ~- s

子任

恩恩，我想做的是一个评估！就是对几个对象做一个评估，得出一个分数
1 d6 h; }* [' F1 X非常感谢你
! j/ v- J3 K( |6 a