改进的cmac学习算法.docVIP

下载本文档

1
0
约2.46千字
约 4页
2020-03-23 发布于河北
举报
版权申诉

改进的cmac学习算法.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

%CMAC group program,include four sub-CMAC %CMAC program 1 clear w1=0.1;w2=0.0;w3=-0.1; w4=0.0 N=144; N1=20; E=0.0; b=0.062; k=0; i=0; for k=1:N yp=2.5*cos(0.99*k); for j=1:30 wa=w1+w2+w3+w4; a=b*(1-k/N+1); w5=w4+a*[yp-wa]; w1=w2; w2=w3; w3=w4; w4=w5; end e=[(yp-wa).^2]/2; sub1e(k)=e; yp1(k)=yp; sub1w(k)=wa; %if e=E % break % else % end end sub1wz=sub1w; %CMAC program 2 %clear w1=0.1;w2=0.0;w3=-0.1; w4=0.0; N=144; N1=20; E=0.0; b=0.0612;%b=0.12; k=1; for k=1:N ypp=10/(pi*3)*cos(1.97*k); for j=1:30 wa=w1+w2+w3+w4; a=b*(1-k/N+1); w5=w4+a*[ypp-wa]; w1=w2; w2=w3; w3=w4; w4=w5; end e=[(ypp-wa).^2]/2; sub2e(k)=e; yp2(k)=ypp; sub2w(k)=wa; %if e=E % break % else % end end sub2wz=sub2w; %CMAC program 3 w1=0.0;w2=0;w3=-0.1; w4=0.1; N=144; N1=20; E=0.0; wa0=0;wa1=0; b=0.062; k=0; i=0; for k=1:N yppp=-10/(pi*15)*cos(3.95*k); for j=1:30 wa=w1+w2+w3+w4; a=b*(1-k/N+1); w5=w4+a*[yppp-wa]; w1=w2; w2=w3; w3=w4; w4=w5; end %e=yppp-wa; e=[(yppp-wa).^2]/2; sub3w(k)=wa; yp3(k)=yppp; %if e=E % break % else % end sub3e(k)=e; end sub3wz=sub3w; %CMAC program 4 %clear w1=0.1;w2=0.0;w3=-0.1; w4=0.0; N=144; N1=20; E=0.0; b=0.0612;%b=0.12; k=1; for k=1:N ypp=10/(pi*35)*cos(5.93*k); for j=1:30 wa=w1+w2+w3+w4; a=b*(1-k/N+1); w5=w4+a*[ypp-wa]; w1=w2; w2=w3; w3=w4; w4=w5; end e=[(ypp-wa).^2]/2; sub4e(k)=e; yp4(k)=ypp; sub4w(k)=wa; %if e=E % break % else % end end sub4wz=sub4w; %CMAC program zong %clear w1=0.1;w2=0.0;w3=-0.1; w4=0.0; N=144; N1=20; E=0.0; b=0.0612;%b=0.12; k=1; for k=1:N ypp=2.5*cos(0.99*k)+10/(pi*3)*cos(1.97*k)-10/(pi*15)*cos(3.95*k)+10/(pi*35)*cos(5.93*k); for j=1:30 wa=w1+w2+w3+w4; a=b*(1-k/N+1); w5=w4+a*[ypp-wa]; w1=w2; w2=w3; w3=w4; w4=w5; end e=[(ypp-wa).^2]/2; subze(k)=e; ypz(k)=ypp; subzw(k)=wa; %if e=E % break % else % end end subzwz=subzw; %grapher i=1:N subplot(6,1,1) plot(i,yp1,i,sub1w,rx) ylabel(w1) legend(y1 ,w1) subplot(6,1,2) plot(i,yp2,i,sub2w