智能控制神经网络作业Word文档下载推荐.docx
- 文档编号:20605281
- 上传时间:2023-01-24
- 格式:DOCX
- 页数:15
- 大小:180.36KB
智能控制神经网络作业Word文档下载推荐.docx
《智能控制神经网络作业Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《智能控制神经网络作业Word文档下载推荐.docx(15页珍藏版)》请在冰豆网上搜索。
clearall;
xite=0.5;
alfa=0.5;
w1=rands(2,6);
%valueofw1,initiallybyrandom
w1_1=w1;
w1_2=w1;
w2=rands(6,1);
%valueofw2,initiallybyrandom
w2_1=w2;
w2_2=w2_1;
dw1=0*w1;
x=[0,0]'
;
u_1=0;
y_1=0;
I=[0,0,0,0,0,0]'
%inputofyinhancengcell
Iout=[0,0,0,0,0,0]'
%outputofyinhancengcell
FI=[0,0,0,0,0,0]'
ts=0.001;
fork=1:
1:
1000
time(k)=k*ts;
u(k)=0.5*sin(3*2*pi*k*ts);
y(k)=(u_1-0.9*y_1)/(1+y_1^2);
forj=1:
6
I(j)=x'
*w1(:
j);
Iout(j)=1/(1+exp(-I(j)));
end
yn(k)=w2'
*Iout;
%outputofnetwork
e(k)=y(k)-yn(k);
%errorcalculation
w2=w2_1+(xite*e(k))*Iout+alfa*(w2_1-w2_2);
%rectifyofw2
FI(j)=exp(-I(j))/(1+exp(-I(j))^2);
fori=1:
2
dw1(i,j)=e(k)*xite*FI(j)*w2(j)*x(i);
%dw1calculation
w1=w1_1+dw1+alfa*(w1_1-w1_2);
%rectifyofw1
%jacobianinformation
yu=0;
yu=yu+w2(j)*w1(1,j)*FI(j);
dyu(k)=yu;
x
(1)=u(k);
x
(2)=y(k);
w1_2=w1_1;
w2_2=w2_1;
u_1=u(k);
y_1=y(k);
end
figure
(1);
plot(time,y,'
r'
time,yn,'
b'
);
xlabel('
times'
ylabel('
yandyn'
figure
(2);
plot(time,y-yn,'
error'
figure(3);
plot(time,dyu);
dyu'
运行结果为:
(二)采用RBF网络仿真
网路结构为2-4-1,采样时间1ms,输入信号
,权值的初值随机取值,
,高斯基函数初值
,
仿真m文件程序如下:
%RBFsimulation
clearall
alfa=0.05;
b=1.5*ones(4,1);
c=0.5*ones(2,4);
w=rands(4,1);
w_1=w;
w_2=w_1;
c_1=c;
c_2=c_1;
b_1=b;
b_2=b_1
d_w=0*w;
d_b=0*b;
2000;
u(k)=0.5*sin(1*2*pi*k*ts);
y(k)=(u(k)-0.9*y_1)/(1+y_1^2);
x
(2)=y_1;
4
h(j)=exp(-norm(x-c(:
j))^2/(2*b(j)*b(j)));
ym(k)=w'
*h'
em(k)=y(k)-ym(k);
d_w(j)=xite*em(k)*h(j);
d_b(j)=xite*em(k)*w(j)*h(j)*(b(j)^-3)*norm(x-c(:
j))^2;
d_c(i,j)=xite*em(k)*w(j)*h(j)*(x(i)-c(i,j))*(b(j)^-2);
w=w_1+d_w+alfa*(w_1-w_1);
b=b_1+d_b+alfa*(b_1-b_2);
c=c_1+d_c+alfa*(c_1-c_2);
%Jacobianinformation
yu=yu+w(j)*h(j)*(c(1,j)-x
(1))/b(j)^2;
w_2=w_1;
w_1=w;
c_2=c_1;
c_1=c;
b_2=b_1;
b_1=b;
time,ym,'
time(s)'
yandym'
plot(time,y-ym,'
plot(time,dyu,'
仿真结果为:
(三)DRNN网路仿真
的初值随机取值,取
%DRNNsimulation
wd=rands(7,1);
wo=rands(7,1);
wi=rands(3,7);
xj=zeros(7,1);
xj_1=xj;
xitei=0.35;
xited=0.35;
xiteo=0.35;
u(k)=0.5*sin(4*pi*k*ts);
Ini=[u_1,y_1,1]'
7
sj(j)=Ini'
*wi(:
j)+wd(j)*xj(j);
xj(j)=(1-exp(-sj(j)))/(1+exp(-sj(j)));
Pj=0*xj;
Pj=wo(j)*(1+xj(j))*(1-xj(j))*xj_1(j);
Qij=0*wi;
3
Qij(i,j)=wo(j)*(1+xj(j))*(1-xj(j))*Ini(i);
ymk=0;
ymk=ymk+xj(j)*wo(j);
ym(k)=ymk;
e(k)=y(k)-ym(k);
wo=wo+xiteo*e(k)*xj;
wd=wd+xited*e(k)*Pj;
wi=wi+xitei*e(k)*Qij;
xj_1=xj;
time/s'
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 智能 控制 神经网络 作业