function?[redSetsigSet]?=?reduceSet（dataArraylammdasig_ctrl）
%?該程序?yàn)猷徲虼植诩募s簡(jiǎn)計(jì)算
%?輸入dataArray?數(shù)值型決策系統(tǒng)，最后一列為決策屬性
%?輸入lammda計(jì)算鄰域半徑時(shí)的參數(shù)，delta=std（dataArray）/lammda
%?lammda?注意！在這里計(jì)算的lammda和胡清華程序的lammda有區(qū)別
%?這里lammda取值盡量在0.5~1.5之間，如果太大，則不能輸出正常結(jié)果，如果太小，則程序報(bào)錯(cuò)
%?如果數(shù)據(jù)內(nèi)包含的樣本數(shù)比較多（幾十以上），則調(diào)大lammda=2~4
%?輸入sig_ctrl重要度下限的一個(gè)控制參數(shù)，不能太小，也不能太大。0.001左右
%?輸出?約簡(jiǎn)后的集合及其重要度
%?此程序調(diào)用了計(jì)算積極域的程序getPosSet
%?made?by?suozi?20140427
%?QQ：379786867

[mn]=size（dataArray）;?%?m為樣本數(shù)?n為屬性個(gè)數(shù)（最后一列為決策屬性）
if?m<4?||?n<4?%?小于4個(gè)就沒(méi)有意義了將導(dǎo)致計(jì)算依賴度時(shí)去掉一個(gè)屬性后只有一條屬性
????disp（‘輸入的決策系統(tǒng)行列個(gè)數(shù)不得小于4個(gè)！‘）;
????return;
end

%%%%%%%%?直接判斷數(shù)據(jù)中某列中存在相同數(shù)據(jù)，直接表現(xiàn)即為?min?==?max
%?改修正判斷解決了很多程序運(yùn)行時(shí)出現(xiàn)的?flag2未定義現(xiàn)象
dispArry=[];%用于存儲(chǔ)具有相同數(shù)據(jù)的列號(hào)
tmpFlag=0;%?用于判斷是否有相同數(shù)據(jù)列
for?j=1:n
???amax=max（dataArray（:j））;
???amin=min（dataArray（:j））;
???if?amin?==?amax
???????dispArry=[dispArryj];
???????tmpFlag?=?1;%有相同數(shù)據(jù)列存在
???end
end
if?tmpFlag?==?1
????disp（‘所給數(shù)據(jù)中以下列的列內(nèi)數(shù)據(jù)相同，必為冗余數(shù)據(jù)，可手動(dòng)刪除。請(qǐng)使用刪除整理后的數(shù)據(jù)進(jìn)行數(shù)據(jù)約簡(jiǎn)。（后續(xù)的報(bào)錯(cuò)可以忽略）‘）;
????dispArry
????return;