62
2.3.3. Структурная схема пакета (дерево вызова программных
модулей)
Укажем для каждого модуля идентификатор и выполняемые функции. Эти
данные представим в форме таблицы 14.
Таблица №14
Описание функций модулей
№ п/п
Наименование модуля
Функции модуля
1.
Модуль администратора
Редактирование пользователей и строки
соединения (вызов через файл Admin.exe)
2.
Модуль менеджера
Формирование кредитной заявки, поиск по
базе данных, запуск модуля скоринговой
модели, печать результатной ведомости
(вызов через файл Scoring 1.0.exe)
3.
Модуль расчета по
скоринговой модели
Принятие решения по кредиту с
использованием скоринговых переменных
(вызов через функцию scoring() кода
формы)
2.3.4. Описание программных модулей
Изобразим блок-схему главного модуля расчета по скоринговой модели и
опишем ее. Главная блок-схема в виде модулей (функций) показана на рис. 13.
Подпрограммы из основной блок-схемы показаны на блок-схемах рисунков 14-
18.
63
Начало
K[0..14]
E[0..14]
Beta[0..14]
perem (K, E)
Ch (K, E)
B (K, E,
Beta)
XX (Ch(),
sss, K, E)
sss=Perem.length
scoring
(XX(), B(),
sss)
Конец
Рисунок 13. Главная блок схема модуля
64
Начало
chi, j0
KK[0..14], EE[0..14]
KKK[0..14], EEE[0..
14]
i=0;i<14
chi+Math.Pow(K[i]-
E[i],2)/E[i]>0.5
KK[j0] = K[i];
EE[j0] = E[i];
j0++;
chi +=
Math.Pow(K[i] -
E[i], 2) / E[i]
k = j0 - 1;
j0 = 0;
chi = 0;
i = 0; i <= k
Math.Sqrt((chi + Math.Pow(KK[i] -
EE[i], 2) / EE[i])/((k+1)*k)) > 0.2
KKK[j0] = KK[i];
EEE[j0] = EE[i];
j0++;
chi +=
Math.Pow(KK[i]
- EE[i], 2) / EE[i]
return KKK
Конец
да
да
нет
нет
Рисунок 14. Блок-схема подпрограммы perem()
65
Начало
chi, j0
KK[0..14], EE[0..14]
KKK[0..14], EEE[0..
14], chh[0..14]
i=0;i<14
chi+Math.Pow(K[i]-
E[i],2)/E[i]>0.5
KK[j0] = K[i];
EE[j0] = E[i];
j0++;
chi +=
Math.Pow(K[i] -
E[i], 2) / E[i]
k = j0 - 1;
j0 = 0;
chi = 0;
i = 0; i <= k
Math.Sqrt((chi + Math.Pow(KK[i] -
EE[i], 2) / EE[i])/((k+1)*k)) > 0.2
KKK[j0] = KK[i];
EEE[j0] = EE[i];
chh[j0] = chi+ Math.Pow(KK[i] -
EE[i], 2) / EE[i[;
j0++;
chi +=
Math.Pow(KK[i]
- EE[i], 2) / EE[i]
return chh
Конец
да
да
нет
нет
Рисунок 15. Блок-схема подпрограммы Ch()
66
Начало
chi, j0
KK[0..14], EE[0..14]
KKK[0..14], EEE[0..14],
B[0..14], BB[0..14]
i=0;i<14
chi+Math.Pow(K[i]-
E[i],2)/E[i]>0.5
KK[j0] = K[i];
B[j0] = Beta[i]
EE[j0] = E[i];
j0++;
chi +=
Math.Pow(K[i] -
E[i], 2) / E[i]
k = j0 - 1;
j0 = 0;
chi = 0;
i = 0; i <= k
Math.Sqrt((chi + Math.Pow(KK[i] -
EE[i], 2) / EE[i])/((k+1)*k)) > 0.2
KKK[j0] = KK[i];
EEE[j0] = EE[i];
BB[j0] = B[i]
j0++;
chi +=
Math.Pow(KK[i]
- EE[i], 2) / EE[i]
return BB
Конец
да
да
нет
нет
Рисунок 16. Блок-схема подпрограммы B()
67
Начало
Z[0..sss]
i=0;i<sss
z[i] = Ch(K,
E)[i] / Ch(K,
E)[sss-1]
return z
Конец
Рисунок 17. Блок-схема подпрограммы XX()
Начало
ss=0
i=0;i<sss
ss += XX[i] *
B[i]/100
Конец
Math.Log(ss,
10)>0.7
да
нет
«одобрена»
«отклонена»
Рисунок 18. Блок-схема подпрограммы scoring()
Поясним работу блок-схемы, изображенной на рис. 13 и разъясним, что
выполняет та или иная функция. При помощи специального алгоритма
68
производится пересчет данных клиента в скоринговые переменные К[],
которыми являются сумма и валюта кредита, срок кредита, стоимость залоговой
недвижимости, тип трудоустройства и вид документа о ней, стаж работы, сумма
заработной платы за год, количество поручителей, дата рождения, съемное ли
жилье, уровень образования, семейное положение, наличие детей. Т.о. получаем
14 переменных.
Задаем в программе вес переменных Beta[] от 1 до 100% значимости и
желаемые значения переменных Е[].
При помощи функции perem() производится проверка переменных по
критерию хи-квадрат и коэффициенту Крамера. Несоответствующие критериям
переменные отсекаются.
При помощи функции Сh() производится занесение в массив значений хи-
квадрат, соответствующие оставшимся в ходе отбора переменным.
При помощи функции В() производится занесение в массив значений весов
переменных, соответствующие оставшимся в ходе отбора переменным.
При помощи функции ХХ() производится пересчет значений хи-квадрат по
доли их влияния на ход процесса.
При помощи функции scoring() производится расчет значения ss
множественной линейной регрессии и значения log(ss,10) множественной
логарифмической регрессии. Т.о. на выходе мы получим значение от 0 до 1. Чем
больше полученное значение – тем более платежеспособен клиент. Установим
предел прохода в рамки удовлетворения заявки на «одобрена» - 70% или 0,7.
2.4. Контрольный пример реализации проекта и его описание
Рассмотрим пример указания строки соединения (рис. 19) и добавление
пользователя (рис. 20) администратором. Далее на рис. 21-28 показаны действия
менеджера. На рис. 21 он авторизуется и после выполняет все действия, о
которых говорилось выше. На рис. 27 менеджер получает уже обработанную ИС
заявку, которую может распечатать, нажав на «Печать» в диалоговом окне (рис.
28). Остальные действия неоднократно описывались, поэтому расписывать их не
будем.
69
Рисунок 19. Указание строки соединения
Рисунок 20. Добавление пользователя
Рисунок 21. Авторизация менеджера
70
Рисунок 22. Главное окно программы со списком заёмщиков
Рисунок 23. Добавление личных данных клиента
71
Рисунок 24. Добавление данных о трудовой деятельности
Рисунок 25. Добавление данных о поручителях