基于BP网络的个人信贷信用评估

% credit_class.m
% 信贷信用的评估
% 数据取自德国信用数据库

%% 清理工作空间
clearclc

% 关闭图形窗口
close all

%% 读入数据
% 打开文件
fid = fopen（‘german.data‘ ‘r‘）;

% 按格式读取每一行
% 每行包括21项，包括字符串和数字
C = textscan（fid ‘%s %d %s %s %d %s %s %d %s %s %d %s %d %s %s %d %s %d %s %s %d\n‘）;

% 关闭文件
fclose（fid）;

% 将字符串转换为整数
N = 20;
% 存放整数编码后的数值矩阵
C1=zeros（N+11000）;
for i=1:N+1
    % 类别属性
    if iscell（C{i}）
        for j=1:1000
            % eg: ‘A12‘ -> 2
            if i<10
                d = textscan（C{i}{j} ‘%c%c%d‘）;
            % eg: ‘A103‘  -> 3
            else
                d = textscan（C{i}{j} ‘%c%c%c%d‘）;
            end
            C1（ij） = d{end};
        end
    % 数值属性
    else
        C1（i:） = C{i};
    end
end

%% 划分训练样本与测试样本

% 输入向量
x = C1（1:N :）;
% 目标输出
y