explain(expenses:'-','и расходы могут быть ниже ожидаемых')

explain(expenses:'+','и расходы должны быть выше ожидаемых').

explain(expenses:'=','и расходы вряд ли сильно отклонятся от бюджета').

Explain(term:short,'целесообразны краткосрочные инвестиции. Поскольку рекомендованный срок короткий').

Explain(term:medium,'действуйте осторожно и инвестируйте на средний срок. Так как рекомендуемый срок средний').

Explain(term:long,'долгосрочные инвестиции наиболее целесообразны. Так ка рекомендуемый срок длинный').

Explain(risk:low,'и вы предпочитаете небольшой риск, и хорошим инвестиционным средством для вас').

Explain(risk:medium_low,'и вы предпочитаете риск от низкого до среднего, и хорошим инвестиционным средством для вас').

Explain(risk:medium_high,'и вы предпочитаете риск от среднего до высокого, хорошим инвестиционным средством для вас').

Explain(risk:high,'и вы предпочитаете высокий риск, и хорошим инвестиционным средством для вас').

Explain(investment:usgov,'являются (фактически без риска) правительственные инвестиции').

Explain(investment:obligs,'является невысокий риск по облигациям крупных банков и корпораций').

Explain(investment:offshore,'являются банки свободной зоны или евродоллоры. (Низкий риск – короткий срок; и средний риск для больших сроков').

Explain(investment:unrated,'является высокий риск, высокая доходность облигаций или ценных бумаг, выпущенных сберегательными и кредитными организациями').

Объяснение строится из соответствующих фрагментов текстов. Затем эти фрагменты передаются предикату, который их выводит в определенном порядке.

get_explain([Interest,Revenues,Expenses,Risk,Term,Investment]):-

Nl,

Explain(Interest,I_Exp),

Explain(Revenues,Revs_Exp),

Explain(Expenses,Exp_Exp),

Explain(Risk,Risk_Exp),

Explain(Term,T_Exp),

Explain(Investment,Inv_Exp),

show_explanation([I_Exp,Revs_Exp,Exp_Exp,T_Exp,Risk_Exp,Inv_Exp]).

show_explanation([]).

Show_explanation(H):-

Write(H),nl,

Show_explanation(T).

Обладая минимальными возможностями объяснений, программа fa может дать совет следующим образом:

?-fa.

Какой ожидается изменение ставки прибыли в течение следующего года? up.

Насколько могут отклоняться годовые доходы от ожидаемых? up.

Допустимые значения для слота revenues:

Превысят ожидания (более 10%): +

Небольшое снижение (более 10%): –

На сколько текущий годовой доход может отклоняться от ожидаемого? +.

На сколько текущие расходы могут отклоняться от ожидаемых? +.

Каков допустимый риск? low.

Поскольку вы ожидаете повышение ставки прибыли, было бы естественным сделать короткие инвестиции, что позволит вам позднее реинвестировать высокие прибыли.

Так как годовой доход должен быть больше ожидаемого,

и расходы должны быть выше ожидаемых,

целесообразны краткосрочные инвестиции.

Поскольку рекомендованный срок короткий

и вы предпочитаете небольшой риск,

хорошим инвестиционным средством для вас

является небольшой риск по облигациям крупных банков и корпораций.

ЗАДАНИЕ 5.4

Отладить экспертную систему, описанную выше. В диалоговом режиме ответить на вопросы для выбора стратегии инвестиций.

ЗАДАНИЕ 5.5

Реализовать для выбранной в задании 5.2 предметной области экспертную систему на языке пролог.