胡清华邻域粗糙集代码

胡清华邻域粗糙集代码

%all2data.m
%将UCI数据集中各种数据统一为数值型数据，符号型变为自然数，连续型进行标准化，决策属性转化为自然数排在最后一列
%暂不考虑缺失值
%一列总含有一个符号型数据则全部作符号型处理
%data_cell0:m*1
%data_cell1:m*n和data_array结构一样
%sn_feature_d:决策属性位置为空表示最后一行
%filename=‘te.txt‘;
%读入数据到data_cell0然后将data_cell0拆分为data_cell1
% data_cell0=importdata（filename）;
function data_array=all2data（filenamesn_feature_d）
data_cell0=textread（filename‘%s‘）;
% clear;clc；data_cell0=textread（‘ecoli.data‘‘%s‘）;sn_feature_d=[];
% data_cell0=data_cell0（45:50:）%诊断原文件中数据是否格式有错
data_cell1={};
for i=1:length（data_cell0）
    dot_sequence=find（data_cell0{i}==‘‘）;
    interval=[0dot_sequencelength（data_cell0{i}）+1];
    for j=1:length（interval）-1
        data_cell1{ij}=data_cell0{i}（interval（j）+1:interval（j+1）-1）;
    end
end
%将data_cell1转化为数字判断是否为符号型是则转换为1 2 3...不是则进行标准化
[mn]=size（data_cell1）;
%将决策属性移到最后一行，其他属性顺序向前平移
if length（sn_feature_d）==0
    sn_feature_d=n;
end
if sn_feature_d~=n
    data_cell1（:n+1）=data_cell1（:sn_feature_d）;
    data_cell1（:sn_feature_d）=[];
end
for j=1:n%按列处理
    %判断是否为数值型
    isnum=1;%是否为数值型数据的标志
    i=1;
    value_num=[];%用来存放数值性数据
    while i<=m    
        i
        j
        a=str2num（data_cell1{ij}）;
        if length（a）==0
            isnum=0;
            i=m+1;
        else
            value_num（i）=a;
            i=i+1;            
        end
    end
    %对不同数据类型分别处理
    if isnum==0%符号型数据
        onefordiff={};
        onefordiff（1）=data_cell1（1j）;%不同数据只存一个
        for i=1:m
            t=1;
            p=length（onefordiff）;  
            position=0;
            while t<=p       
                a=strcmp（onefordiff{t}data_cell1{ij}）;
                if a==0
                    t=t+1;
                else
                    position=t;
                    t=p+1; 
                end
            end
            if a==0%说明是新数
                onefordiff{p+1}=data_cell1{ij};
                data_array（ij）=p+1;
            else
                data_array（ij）=position;
            end
        end
    else%数值型数据
        %决策属性为数值型时不进行标准化处理
        if j~=n
            value_max=max（value_num）;
            value_min=min（value_num）;
            if （value_max-value_min）==0
                data_array（:j）=0;%‘数据标准化有误‘
            else
                for i=1:m
                    data_array（ij）=（value_num（i）-value_min）/（value_max-value_min）;
                end
            end
        else
            data_array（:j）=value_num;
        end        
    end
end 
data_array

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      73289  2015-10-05 14:46  chengxu_hu\abalone.mat

     文件       2806  2013-01-24 17:39  chengxu_hu\all2data.m

     文件     235082  2015-10-05 16:37  chengxu_hu\biodegxiugai.mat

     文件       5599  2013-01-24 17:39  chengxu_hu\C4_5.m

     文件       5239  2013-07-15 10:35  chengxu_hu\cleve.mat

     文件       1535  2016-09-22 20:59  chengxu_hu\clsf_dpd.m

     文件       1568  2013-07-12 11:28  chengxu_hu\clsf_dpd_fast.m

     文件       1788  2015-02-13 21:14  chengxu_hu\clsf_dpd_fast2.m

     文件       1439  2013-07-12 11:40  chengxu_hu\clsf_dpd_fast_3.m

     文件      10719  2015-10-14 17:10  chengxu_hu\credit.mat

     文件       3984  2015-02-15 13:28  chengxu_hu\crossvalidate.m

     文件       3935  2015-02-24 00:34  chengxu_hu\crossvalidate1.m

     文件       3382  2015-11-19 20:42  chengxu_hu\featureselect_FW_fast.m

     文件       5109  2015-10-15 10:36  chengxu_hu\horse.mat

     文件      58276  2015-09-27 17:08  chengxu_hu\iono.mat

     文件       1054  2015-10-15 13:15  chengxu_hu\Iris.mat

     文件       1817  2015-02-20 19:51  chengxu_hu\KNN.m

     文件       1809  2013-04-12 21:00  chengxu_hu\NEC.m

     文件       2058  2013-07-15 11:13  chengxu_hu\nec1.m

     文件       1833  2013-07-15 10:35  chengxu_hu\osu_svm3.00\cardiag.asv

     文件       1837  2013-07-15 10:35  chengxu_hu\osu_svm3.00\cardiag.m

     文件       1728  2013-07-15 10:35  chengxu_hu\osu_svm3.00\cmap.mat

     文件       2905  2013-07-15 10:35  chengxu_hu\osu_svm3.00\Contents.m

     文件       1265  2013-07-15 10:35  chengxu_hu\osu_svm3.00\createset.m

     文件       8222  2013-07-15 10:35  chengxu_hu\osu_svm3.00\data\car.txt

     文件       5239  2013-07-15 10:35  chengxu_hu\osu_svm3.00\data\cleve.mat

     文件      18770  2013-07-15 10:35  chengxu_hu\osu_svm3.00\data\cleve.txt

     文件      33408  2013-07-15 10:35  chengxu_hu\osu_svm3.00\data\credict.txt

     文件      14916  2013-07-15 10:35  chengxu_hu\osu_svm3.00\data\crx.mat

     文件     177330  2013-07-15 10:35  chengxu_hu\osu_svm3.00\data\crx_fcm.dat

............此处省略141个文件信息