zhidaodaxue的个人博客分享 http://blog.sciencenet.cn/u/zhidaodaxue

博文

[转载]BP神经网络的matlab程序

已有 3384 次阅读 2013-11-4 13:31 |系统分类:科研笔记|关键词:matlab,程序,网络| MATLAB, 网络, 程序 |文章来源:转载


clf;

clear

figure(1)

echo on

clc

pause

P=[5 0.25

  5 0.335

  5 0.39

  5 0.485

  5 0.56

  5 0.618

  5 0.66

  5 0.697

  5 0.72

  10 0.25

  10 0.335

  10 0.42

  10 0.48

  10 0.536

  10 0.623

  10 0.68

  10 0.723

  10 0.75

  10 0.776

  10 0.78

  20 0.25

  20 0.39

  20 0.49

  20 0.565

  20 0.62

  20 0.665

  20 0.727

  20 0.764

  20 0.786

  20 0.812

  20 0.825

  20 0.83

  50 0.25

  50 0.295

  50 0.4

  50 0.5

  50 0.584

  50 0.665

  50 0.716

  50 0.775

  50 0.81

  50 0.83

  50 0.841

  50 0.85

  50 0.855

  50 0.86

  100 0.25

  100 0.36

  100 0.437

  100 0.6

  100 0.696

  100 0.75

  100 0.78

  100 0.823

  100 0.842

  100 0.85

  100 0.858

  100 0.864

  100 0.869

  100 0.872

  200 0.25

  200 0.4

  200 0.585

  200 0.64

  200 0.685

  200 0.73

  200 0.772

  200 0.808

  200 0.83

  200 0.85

  200 0.86

  200 0.866

  200 0.871

  200 0.875

  200 0.878

  500 0.25

  500 0.35

  500 0.57

  500 0.67

  500 0.725

  500 0.798

  500 0.83

  500 0.86

  500 0.866

  500 0.871

  500 0.876

  500 0.883

  500 0.886

  500 0.89

  2000 0.25

  2000 0.395

  2000 0.65

  2000 0.77

  2000 0.805

  2000 0.835

  2000 0.86

  2000 0.87

  2000 0.878

  2000 0.882

  2000 0.886

  2000 0.889

  2000 0.892

  2000 0.895

  2000 0.897];

T=[0.14

  0.175

  0.2

  0.25

  0.3

  0.35

  0.4

  0.45

  0.5

  0.1

  0.125

  0.15

  0.175

  0.2

  0.25

  0.3

  0.35

  0.4

  0.45

  0.5

  0.074

  0.1

  0.125

  0.15

  0.175

  0.2

  0.25

  0.3

  0.35

  0.4

  0.45

  0.5

  0.04

  0.05

  0.066

  0.082

  0.1

  0.125

  0.15

  0.2

  0.25

  0.3

  0.35

  0.4

  0.45

  0.5

  0.03

  0.04

  0.05

  0.075

  0.1

  0.125

  0.15

  0.2

  0.25

  0.3

  0.35

  0.4

  0.45

  0.5

  0.02

  0.035

  0.05

  0.06

  0.07

  0.08

  0.1

  0.125

  0.15

  0.2

  0.25

  0.3

  0.35

  0.4

  0.5

  0.01

  0.02

  0.03

  0.04

  0.05

  0.075

  0.1

  0.15

  0.2

  0.25

  0.3

  0.35

  0.4

  0.5

  0.0

  0.01

  0.02

  0.03

  0.04

  0.05

  0.075

  0.1

  0.15

  0.2

  0.25

  0.3

  0.35

  0.4

  0.5];

P=P';

T=T';

plot(P,T,'o');

for i=1:104

  P(1,i)=log10(P(1,i));

end

pause

clc

echo on

figure(2)

plot(P,T,'+');

pause

clc

S1=7;

[w1 b1 w2 b2]=initff(P,S1,'tansig',T,'purelin');

echo on

clc

df=20;

me=2000;

eg=0.01;

figure(3)

tp=[df me eg];

%[w1 b1 w2 b2 ep tr]=trainbp(w1,b1,'tansig',w2,b2,'purelin',P,T,tp); %基本BP算法

%[w1 b1 w2 b2 ep tr]=traingdx(w1,b1,'tansig',w2,b2,'purelin',P,T,tp); %traingdx  快速PB算法

%[w1 b1 w2 b2 ep tr]=trainrp(w1,b1,'tansig',w2,b2,'purelin',P,T,tp);   %弹性BP算法

[w1 b1 w2 b2 ep tr]=trainlm(w1,b1,'tansig',w2,b2,'purelin',P,T,tp);

ploterr(tr,eg);

pause

clc

figure(4)

plot(P,T,'o');

hold on

TT=simuff(P,w1,b1,'tansig',w2,b2,'purelin')

%隐含层传递函数′tansig′,神经元个数5个

%输出层传递函数′purelin′,神经元个数1个

plot(P,TT,'+');

aa=[log10(500) log10(20)

  .035 0.25];

bb=simuff(aa,w1,b1,'tansig',w2,b2,'purelin');

echo on




http://blog.sciencenet.cn/blog-552607-738905.html

上一篇:看完话剧后的一些想法
下一篇:笔记:动态数学——第四次数学危机的解决与新数学范式

0

该博文允许注册用户评论 请点击登录 评论 (0 个评论)

数据加载中...

Archiver|手机版|科学网 ( 京ICP备14006957 )

GMT+8, 2019-11-22 08:10

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部