gusucode.com > 《matlab在数学建模中的应用》一书 所有的 源代码 > 第15章/P15-3/FindUnitToCombine.m

    %子函数，建议放于独立的m文件中，命名为FindUnitToCombine.m
%寻找需要合并的隐节点
function[unit1,unit2]=FindUnitToCombine(HiddenCorr,...
    HiddenVar,UnitsCombineThreshold,BiasCombineThreshold)
CorrTri=triu(HiddenCorr)-eye(size(HiddenCorr));
while(1)
[Val,Pos]=max(abs(CorrTri));
[MaxCorr,unit2]=max(Val);
if(MaxCorr<UnitsCombineThreshold)
unit1=0;unit2=0;
break
end
unit1=Pos(unit2);
if(HiddenVar(unit1)>BiasCombineThreshold&...
        HiddenVar(unit2)>BiasCombineThreshold)
break;
else
CorrTri(unit1,unit2)=0;
end
end

if (unit1>0) return;end
[MinVar,unit]=min(HiddenVar);
if(MinVar<BiasCombineThreshold)
unit1=unit;
unit2=0;
end