24小时热门版块排行榜    

查看: 1278  |  回复: 4

yeyu370784

新虫 (初入文坛)

[求助] 跪求rbf程序调试

为什么我运行下面的程序,老提示我 In mean at 219 ,Divide by zero?
就是这条语句  Centers(:,i)=mean(SamIn(:,Index)')';
求高人指点

clc
clear

data=xlsread('date.xls');
train=data(1:70,;
test=data(71:77,;
SamNum=70;  %训练样本
TestSamNum=7;   %
Overlap=[0.25 0.1 0.2];

%输入输出矩阵
%训练数据
SamIn=train(:,1:3)';
SamOut=train(:,4:6)';
%预测数据
TestSamIn=test(:,1:3)';
TestSamOut=test(:,4:6)';

%节点数
InDim=3;  %输入节点
ClusterNum=38;  %隐含节点

%初始化中心
Centers=SamIn(:,1:ClusterNum);
NumberInClusters=zeros(ClusterNum,3);
IndexInClusters=zeros(ClusterNum,SamNum);

%迭代求解均值中心
while 1
    NumberInClusters=zeros(ClusterNum,3);
    IndexInClusters=zeros(ClusterNum,SamNum);
   
    %计算样本点到中心的距离
    for i=1:SamNum
        AllDistance=dist(Centers',SamIn(:,i));
        [MinDist,Pos]=min(AllDistance);
        NumberInClusters(Pos)=NumberInClusters(Pos)+1;
        IndexInClusters(Pos,NumberInClusters(Pos))=i;
    end
   
    OldCenters=Centers;
   
    %根据中心聚类,并得到新的类内均值
    for i=1:ClusterNum
        Index=IndexInClusters(i,1:NumberInClusters(i));
        Centers(:,i)=mean(SamIn(:,Index)')';
    end
   
    %判断中心有没有变化
    EqualNum=sum(sum(Centers==OldCenters));
    if EqualNum==InDim*ClusterNum
        break
    end
end
   

AllDistances=dist(Centers',Centers);
Maximun=max(max(AllDistance));
for i=1:ClusterNum
   AllDistances(i,i)=Maximun+1;
end
Spreads=Overlap*min(AllDistances)';

Distance=dist(Centers',Samln);
SpreadsMat_l=repmat(Spreads(:,1),1,SamNum);
SpreadsMat_2=repmat(Spreads(:,2),1,SamNum);
SpreadsMat_3=repmat(Spreads(:,3),1,SamNum);
HiddenUnitOut_1=radbas(Distance./SpreadsMat_1);
HiddenUnitOut_2=radbas(Distance./SpreadsMat_2);
HiddenUnitOut_3=radbas(Distance./SpreadsMat_3);
HiddenUnitOutEx_1=[HiddenUnitOut_l' ones(SamNum,1)]';
HiddenUnitOutEx_2=[HiddenUnitOut_2' ones(SamNum,1)]';
HiddenUnitOutEx_3=[HiddenUnitOut_3' ones(SamNum,1)]';
W2Ex_1=SamOut(1,*pinv(HiddenUnitOutEx_1);
W2Ex_2=SamOut(2,*pinv(HiddenUnitOutEx_2);
W2Ex_3=SamOut(3,*pinv(HiddenUnitOutEx_3);
W2_1=W2Ex_l(:,1:ClusterNum);
B2_1=W2Ex_l(:,ClusterNum+1);
W2_2=W2Ex_2(:,1:ClusterNum);
B2_2=W2Ex_2(:,ClusterNum+1);
W2_3=W2Ex_3(:,1:ClusterNum);
B2_3=W2Ex_3(:,ClusterNum+1);

TestDistance=dist(Centers',TestSamln);
TestSpreadsMat_l=repmat(Spreads(:,1),1,TestSamNum);
TestSpreadsMat_2=repmat(Spreads(:,2),1,TestSamNum);
TestSpreadsMat_3=repmat(Spreads(:,3),1,TestSamNum);
TestHiddenUnitOut_1=radbas(TestDistance./TestSpreadsMat_1);
TestHiddenUnitout_2=radbas(TestDistance./TestSpreadsMat_2);
TestHiddenUnitOut_3=radbas(TestDistance./TestSpreadsMat_3);
TestNNOut_1=W2_1*TestHiddenUnitOut_1+repmat(B2_1,[1,TestSamNum]);
TestNNOut_2=W2_2*TestHiddenUnitOut_2+repmat(B2_2,[1,TestSamNum]);
TestNNOut_3=W2_3*TestHiddenUnitOut_3+repmat(B2_3,[l,TestSamNurn]);
TestNNOut(1, =TestNNOut_l;
TestNNOut(2, =TestNNOut_2;
TestNNOut(3, =TestNNOut_3;
plot(TestSamIn,TestNNOut(1,,'k-');
hold on
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

youth0826

至尊木虫 (著名写手)

weibo.com/138147022

【答案】应助回帖

感谢参与,应助指数 +1
你可能没有从xls读到数据,mean的那个矩阵是空
QQ群:202610705,关注计算机视觉,模式识别,模式分析,机器学习,人工智能,统计学习,图像处理等,欢迎加入!
2楼2013-03-06 11:38:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

想飞的猪

木虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
《30例》里有RBF和GRNN的例子直接运行就OK的!
3楼2013-03-06 17:47:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小杜同学

新虫 (初入文坛)

??学RBF 有些疑问 请问为什么??确定中心,直接用newb(p,t,spread)??行????
4楼2013-05-08 10:31:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liuyanzhe

新虫 (初入文坛)

引用回帖:
3楼: Originally posted by 想飞的猪 at 2013-03-06 17:47:01
《30例》里有RBF和GRNN的例子直接运行就OK的!

《30例》是什么?
5楼2015-03-27 21:32:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yeyu370784 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 导师吐槽:我怎么摊上了这么个极品研究生! +7 苏东坡二世 2026-08-23 7/350 2026-08-27 18:14 by 瞬息宇宙
[基金申请] 投票:  有多少人是今天查系统知道结果的? +15 爱看书的可乐 2026-08-26 17/850 2026-08-27 17:25 by xxniao123
[基金申请] 基金不中,共勉 +10 eulota 2026-08-26 10/500 2026-08-27 17:23 by lqllinqiaoli
[基金申请] 怎么看青基中了没有啊 +5 叶九微 2026-08-26 5/250 2026-08-27 10:35 by l_zh2008
[基金申请] 面上合作单位盖章 +3 ssyjh 2026-08-27 3/150 2026-08-27 09:59 by 阿拉贡aragon
[基金申请] 让我中一个面上吧! +13 大萍1987 2026-08-20 17/850 2026-08-27 08:20 by 大萍1987
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +7 process2012 2026-08-23 10/500 2026-08-26 19:23 by hmhminy
[基金申请] 怎么查啊 +5 huang1991js 2026-08-26 5/250 2026-08-26 16:09 by Equinoxhua
[基金申请] 范进中举一文的中心思想 +9 炎黄贵胄 2026-08-22 10/500 2026-08-26 15:40 by semaglutide
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 能否退出参与的面上项目解除限项 +23 koalala 2026-08-24 26/1300 2026-08-26 14:29 by 宝贝虫子
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +4 yuleib84 2026-08-26 5/250 2026-08-26 13:40 by yuleib84
[基金申请] 国合现在查不到了吗? +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
[基金申请] 在坚冰还盖着北海的时候,我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
[基金申请] 某些机构,以效率低为荣,以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
[基金申请] 时间戳今天,20号变了 +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
信息提示
请填处理意见