搜集的小波神经网络程序-小波神经网络.rar
搜集的小波神经网络程序-小波神经网络.rar 初学小波神经网路,四处搜集的代码,希望与大街共同讨论学习: 小波神经网络、遗传算法优化神经网络代码,测试可以使用,但具体的原理不是很懂! 里面的一个M 文件 clc; clear; close all; %%%%%%%%%%% sample [P,T,R,S1,S2,S,Q]=nninit_test; %产生随机矩阵以便随机调用训练数据 tic; %初始化网络 IN=R; HN=S1; ON=S2; N=300; derros=zeros); studyspace=zeros); studyspace=0.002; amlf=1.001; betat=0.999; kkk=1.04; mc=0.01; W11=randn; W22=randn; B11=randn; B22=randn; v=W11; w=zeros; %W2=rand; w=W22; a=zeros; a=B11'; b=zeros; b=B22'; %cshab; mse=zeros; ee=zeros; %数据进行训练 for n=3: wdel=zeros; vdel=zeros; adel=zeros; bdel=zeros; wincrease=zeros; vincrease=zeros; aincrease=zeros; bincrease=zeros; m=1; while m<Q 1 in=P; r=zeros; z=zeros; dz=zeros; s=0; for j=1:HN for i=1:IN r=r v*in; end b1=b; a1=a; z=hfun,b1,a1); dz=dhfun,b1,a1); s=s w*z; end y=s; EEE=sqrt-T)); e=-y); for j=1:HN wdel=wdel e*z *1.5; %%%% 修改梯度学习效率系数取得好的效果 for i=1:IN vdel=vdel 1.5* e*w*dz*in/a; end adel=adel e *w*dz*-b)/a)/a; bdel=bdel e *w*dz/a; end derros=derros abs*log) )*log) ) ; mse=mse -T).^2; MSE=sqrt); m=m 1; end %plot; ee=EEE; for j=1:HN wdel=-wdel; for i=1:IN vdel=-vdel; end end derros=-derros; % 学习速率的调整 if derros<derros studyspace=amlf*studyspace; end if derros>=kkk*derros studyspace=betat*studyspace; end for j=1:HN wincrease=-studyspace*wdel mc*-w); w=w wincrease; for i=1:IN vincrease=-studyspace*vdel mc*-v); v=v vincrease; end aincrease=-studyspace*adel mc*-a); a=a aincrease; bincrease=-studyspace*bdel mc*-b); b=b bincrease; end end %网络误差曲线 toc plot/Q); title figure plot; %title hold on plot ; %title 小波神经网络(紧密型)通过小波确定的尺度参数、平移参数作为神经网络的权值和阈值,尺度参数、平移参数怎么求?
- 1
- 粉丝: 443
- 资源: 1万+
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助