声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 912|回复: 0

[综合讨论] 求教采用RBF网络进行辨识的程序

[复制链接]
发表于 2007-4-16 12:29 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
RT 因为对matlab是初学,所以好多东西都不懂。老师让我做个RBF用于传感器故障诊断的课题。第一步先让我做个RBF辨识模型。这个是实际系统模型  G(s)= 8/[(1+15S)(1+15S)(1+20S)(1+20S)]  
  还给了我个用BP做的辨识程序(付上),让我看看写个RBF的给她。但是还是没有思路,希望高手能够帮忙解答下。我的e-mail:xiaolong841009@163.com

function nni
%produce values of modle through simulation
clear;
sim('bscy');
%initiate weight
y=delaysig(yf',1,2);
u=delaysig(uf',1,2);
[w1,b1,w2,b2]=initff([y;u],18,'tansig',1,'purelin');

%for i=1:4
    sim('bscy');
    y=delaysig(yf',1,2);
    u=delaysig(uf',1,2);
    disp_frep=100;
    max_epoch=30000;
    err_goal=0.01;
    lr=0.1;
    tp=[disp_frep,max_epoch,err_goal,lr];
    [w1,b1,w2,b2,epoc,tr]=trainbpx(w1,b1,'tansig',w2,b2,'purelin',[y;u],yf',tp);
    ploterr(tr,err_goal);
    %end


%simulate
a=simuff([y;u],w1,b1,'tansig',w2,b2,'purelin');
newplot;
plot(a,'r');
hold on
plot(yf','b');
hold on
e=yf'-a;
plot(e,'k');
save wb w1 b1 w2 b2 ;
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-19 10:47 , Processed in 0.066547 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表