BPBP神经网络源程序 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...
BP神经网络源程序 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=[1 1 1 1 1; 1 1 1 1 1]; d=zeros(2,5); con2=[1 1 1 1 1;1 1 1 1 1;1 1 1 1 1]; 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)
本文档为【BP】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483