24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 1148  |  回复: 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的回帖

小杜同学

新虫 (初入文坛)

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

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的回帖

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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿沪9,生物学326求调剂 +4 刘墨墨 2026-04-15 4/200 2026-04-15 14:34 by woshi0655
[考研] 085404 22408 309分求调剂 +8 lzmk 2026-04-14 9/450 2026-04-15 13:23 by 黑科技矿业
[考研] 271求调剂 +31 2261744733 2026-04-11 31/1550 2026-04-15 10:50 by shenshen207
[考研] 通信工程求调剂!!! +4 zlb770521 2026-04-14 4/200 2026-04-14 18:19 by lbsjt
[考研] 人工智能320调剂08工类还有机会吗 +18 振—TZ 2026-04-10 19/950 2026-04-14 10:34 by screening
[考研] 085600材料与化工329分求调剂 +24 叶zilin 2026-04-13 25/1250 2026-04-14 09:20 by 试管破裂
[基金申请] 有爆料,一个青年教师卖房得400万,然后换了一个四青帽子 +11 babu2015 2026-04-08 11/550 2026-04-13 16:33 by probebill
[教师之家] 山东双非院校考核超级无底线,领导幸灾乐祸,教师遭殃恐 +3 qut2026 2026-04-11 7/350 2026-04-12 20:24 by qut2026
[考研] 295分求调剂 +13 ?要上岸? 2026-04-10 13/650 2026-04-12 15:37 by laoshidan
[考研] 299求调剂 +8 ZVVZ13 2026-04-08 8/400 2026-04-12 00:40 by 蓝云思雨
[考研] 085400 328分 求调剂 +10 喂你一个大橙子 2026-04-09 14/700 2026-04-11 19:53 by lqspecial
[考研] 一志愿985机械学硕380求调剂 +5 关关雎鸠10 2026-04-11 5/250 2026-04-11 10:10 by 知念。A
[考研] 297求调剂 +9 Kwgyz 2026-04-09 9/450 2026-04-11 10:09 by zhq0425
[考研] 调剂 +12 卷卷卷心菜_ 2026-04-09 13/650 2026-04-10 22:36 by Ftglcn90
[考研] 22408 366分,本科211,一志愿西工大 +4 Rubt 2026-04-09 4/200 2026-04-10 19:51 by chemisry
[考研] 初试261 +3 Asht少 2026-04-10 6/300 2026-04-10 16:38 by Asht少
[考研] 282,电气工程专业,求调剂,不挑专业 +9 jggshjkkm 2026-04-10 9/450 2026-04-10 14:55 by 逆水乘风
[考研] 070300化学 求调剂 +13 73372112 2026-04-08 13/650 2026-04-09 20:22 by maddjdld
[考研] 348求调剂 +3 candyyyi 2026-04-09 3/150 2026-04-09 17:20 by 段伟艳
[考研] 085801 总分275 本科新能源 求调剂 +8 bradoner 2026-04-08 9/450 2026-04-09 13:43 by only周
信息提示
请填处理意见