24小时热门版块排行榜    

查看: 1284  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的? +16 爱看书的可乐 2026-08-26 18/900 2026-08-28 15:41 by winsaint
[基金申请] 有没有仍没收到信息的 +3 德尚中行 2026-08-27 3/150 2026-08-28 15:24 by rongshuxia
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +4 gdd2018 2026-08-28 9/450 2026-08-28 14:22 by jklily
[基金申请] 2026年叶企孙基金 +3 bud_bud 2026-08-27 6/300 2026-08-28 11:53 by bud_bud
[基金申请] 国自然面上复盘~欢迎讨论 (金币+5) +12 晴天加油 2026-08-26 13/650 2026-08-28 11:32 by skyjudy
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[基金申请] 申请删除本帖 +6 lyz123lyz 2026-08-27 7/350 2026-08-27 17:31 by 宁静致远sy
[基金申请] 基金未中,这种答复是模板吗? +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 怎么看青基中了没有啊 +5 叶九微 2026-08-26 5/250 2026-08-27 10:35 by l_zh2008
[文学芳草园] 梦想 +3 myrtle 2026-08-26 3/150 2026-08-27 10:01 by angelyueyi
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 我不理解! +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
[基金申请] 系统查不到 +10 董八千 2026-08-26 10/500 2026-08-26 16:30 by Equinoxhua
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 国合现在查不到了吗? +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
信息提示
请填处理意见