Правила оценивания финансового положения

калибровать(Счет. плохой) Счет <-500.

калибровать(Счет, средний)-500 <Счет, Счет < 150.

калибровать(Счет. хороший)  150 <Счет, Счет < 1000.

калибровать (Счет, превосходный) Счет 1000.

Данные банка - взвешенные факторы

финансовые_факторы ([(чистая_стоимость_имущества, 5),

(рост_сбыта_за_последний_год, 1),

(валовая_прибыль_от сбыта, 5),

(краткосрочные_обязательства_годовых_.продаж, 2)]).

счет ([(Фактор, Вес) | Факторы], Клиент. Акк, Счет) 

значение(Фактор, Клиент, Значение),

Акк1 is Aкк+Вес*Значение,

счет(Факторы, Клиент, Акк1, Счет).

счет([ ],Клиент, Счет, Счет).

Окончательная оценка

оценить (Профиль, Результат) 

Результат-ответ клиенту с профилемПрофиль.

оценить (Профиль, Ответ) 

правило(Условия, Ответ), проверить(Условия, Профиль).

проверить ([условие (Тип, Tecт,Оценка) | Условия], Профиль) 

шкала(Тип, Шкала),

выбрать_значение(Тип, Профиль, Факт),

сравнить (Тест, Шкала, Факт, Оценка).

проверить(Условия, Профиль).

проверить ([ ],Профиль).

сравнить(' ='.Шкала, Оценка, Оценка).

сравнить(' >'.Шкала, Оценка 1,0ценка2) 

превосходит (Шкала, Оценка 1,Оценка2).

сравнить('',Шкала, Оценка1, Оценка!) 

превосходит (Шкала,Оценка1,Оценка2);Оценка1 =Оценка2.

сравнить ('<',Шкала, Оценка1, Оценка2) 

превосходит (Шкала, Оценка2, Оценка1).

сравнить(‘’,Шкала, Оценка1,Оценка2) 

превосходит(Шкала, Оценка2, Оценка1); Оценка1 =Оценка2.

превосходит([R1 | Rs], R1, R2).

превосходит ([R | Rs],Rl,R2)  R R2, превосходит(Rs,R1,R2).

выбрать_значение (обеспечение, профиль (С, F,Y),С).

выбрать_значение (финансы, профиль(С,F,Y),F).

выбрать_значение (доход, профиль (С, F, Y), Y).

Утилиты

sum1ist(Xs,Sum)  См. программу 8.6б.

Данные банка и привила

правило([усливие(обеспечение,' '.превосходное).

условие(финансы,' '.хорошее),

условие(доход,’‘.приемлемый)],дать_кредит).

правило ([условие(обсспечение,’ =‘.хорошее),

условие(финансы.' ='.хорошее),

условие(доход,' ',приемлемый)],рекомендуется_консультация).

правило([условие(обеспечение,' '.умеренное),

условие(финансы,’’,среднее)],отказать_в_кредите).

шкала (обеспечение, [превосходное, хорошее, умеренное] )

шкала(финансы. [превосходное, хорошее, среднее, плохое]).

шкала (доход, [превосходное, приемлемое, низкое]).

Программа 21.1.Экспертная система оценки возможности выдачи кредита

Данные клиента

доход_банка (клиент1,превосходное).

запрашиваемый_кредит (клиент 1,50000),

сумма (местный_денежный_депозит, клиент 1, 30000).

сумма (внешний_денежный_депозит, клиент 1, 20000).

сумма (гарантии_банка_клиент 1, 3000).

сумма (документ._о_совершении_сделки, клиент 1, 5000).

сумма(на.личные_товары,клиент1,9000).

сумма (закладная, клиент 1,12000).

сумма(документы, клиент1, 14000).

значение (чистая_.стоимость_имущества, клиент 1,40).

значение (рост_сбыта_за_последний_год, клиент1 ,20).

значение(валовая_прибыль_от_сбыта_клиент],45).

значение(краткосрочные_обязательства_годовых_лродаж, клиент1 ,9).

подходящий_профиль (клиент1).

Программа 21.2.Тестовые данные для экспертной системы оценивания кредита.