AaronSpark 发表于 2005-9-27 00:56

[转帖]bp神经网络源程序

clear
c=load('d:\c.txt');
a=load('d:\a.txt');
c=c';
a=a';
n=0;
dsum=1;
v=abs(randn(3,6)); %输入层至隐含层连接权
z1=randn(3,1);%输入层阈值
z=zeros(3,5);
z(:,1)=z1;
z(:,2)=z1;
z(:,3)=z1;
z(:,4)=z1;
z(:,5)=z1;
s=zeros(3,5);
b=zeros(3,5);
%隐含层至输出层
w=abs(randn(2,3)); %隐含层至输出层连接权
zy1=randn(2,1);%隐含层阈值
zy(:,1)=zy1;
zy(:,2)=zy1;
zy(:,3)=zy1;
zy(:,4)=zy1;
zy(:,5)=zy1;
l=zeros(2,5);
cc=zeros(2,5);
con=;
d=zeros(2,5);
con2=;
SL1=randn(1,1);
SL2=randn(1,1);
while dsum>0.00001
s=v*a+z;
b=1./(1+exp(-s) );
%隐含层至输出层
l=w*b+zy;
cc=1./(1+exp(-l));
%计算误差
j=c-cc;
d=j.*c.*(con-c);
e=w'*d.*b.*(con2-b);
SL1=abs(randn(1,1));
SL2=abs(randn(1,1));
w=w+SL1*d*b';
zy=zy+SL1*d;
v=v+SL2*e*a';
z=z+SL2*e;
dsum=0;
for i=1:2
for j=1:5
dsum=dsum+abs(d(i,j));
end
end
n=n+1;
error(n)=dsum;
end
n1=1:n;
plot(n1,error)

[ 本帖最后由 lxq 于 2007-6-1 14:40 编辑 ]

qing232 发表于 2006-3-24 19:38

有实现传统BP算法得到分类器的MATLAB程序吗？

habby 发表于 2006-4-21 23:21

??? Error using ==>load
Unable to read file d:\c.txt: No such file or directory
请问：两个TEXT文件的格式是什么样的？我水平太低，请指点一下！

cozy 发表于 2006-4-24 12:18

文本文件啊，存储楼主数据的文件
你的电脑硬盘上没有楼住的数据，所以才会显示那个错误啊

四五 发表于 2006-4-26 18:37

谁知道怎么把这个用在遥感图象分类上么?请高人指点!

lxq 发表于 2006-5-10 12:09

这个好象是看过
是哪个期刊上面的

pfwen 发表于 2006-5-12 17:01

我刚开始学校神经网络，不知道从何下手，请各位大侠指教啊

微微 发表于 2006-5-17 12:14

楼主，程序可以直接运行吧

comoma 发表于 2006-6-12 17:35

和matlab自带的有什么不同？

tiramisu 发表于 2006-6-14 16:46

我想要一个RBF的程序

chaosrtc 发表于 2015-11-19 11:25

学习一下
页: [1]
查看完整版本: [转帖]bp神经网络源程序