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

AaronSpark

1. clear
   
2. c=load('d:\c.txt');
   
3. a=load('d:\a.txt');
   
4. c=c';
   
5. a=a';
   
6. n=0;
   
7. dsum=1;
   
8. v=abs(randn(3,6)); %输入层至隐含层连接权
   
9. z1=randn(3,1);%输入层阈值
   
10. z=zeros(3,5);
    
11. z(:,1)=z1;
    
12. z(:,2)=z1;
    
13. z(:,3)=z1;
    
14. z(:,4)=z1;
    
15. z(:,5)=z1;
    
16. s=zeros(3,5);
    
17. b=zeros(3,5);
    
18. %隐含层至输出层
    
19. w=abs(randn(2,3)); %隐含层至输出层连接权
    
20. zy1=randn(2,1);%隐含层阈值
    
21. zy(:,1)=zy1;
    
22. zy(:,2)=zy1;
    
23. zy(:,3)=zy1;
    
24. zy(:,4)=zy1;
    
25. zy(:,5)=zy1;
    
26. l=zeros(2,5);
    
27. cc=zeros(2,5);
    
28. con=[1 1 1 1 1; 1 1 1 1 1];
    
29. d=zeros(2,5);
    
30. con2=[1 1 1 1 1;1 1 1 1 1;1 1 1 1 1];
    
31. SL1=randn(1,1);
    
32. SL2=randn(1,1);
    
33. while dsum>0.00001
    
34. s=v*a+z;
    
35. b=1./(1+exp(-s) );
    
36. %隐含层至输出层
    
37. l=w*b+zy;
    
38. cc=1./(1+exp(-l));
    
39. %计算误差
    
40. j=c-cc;
    
41. d=j.*c.*(con-c);
    
42. e=w'*d.*b.*(con2-b);
    
43. SL1=abs(randn(1,1));
    
44. SL2=abs(randn(1,1));
    
45. w=w+SL1*d*b';
    
46. zy=zy+SL1*d;
    
47. v=v+SL2*e*a';
    
48. z=z+SL2*e;
    
49. dsum=0;
    
50. for i=1:2
    
51. for j=1:5
    
52. dsum=dsum+abs(d(i,j));
    
53. end
    
54. end
    
55. n=n+1;
    
56. error(n)=dsum;
    
57. end
    
58. n1=1:n;
    
59. plot(n1,error)

复制代码

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

qing232

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

habby

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

cozy

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

四五

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

lxq

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

pfwen

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

微微

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

comoma

和matlab自带的有什么不同？

tiramisu

我想要一个RBF的程序

chaosrtc

学习一下