Лабораторная работа №1. 1. Математический аппарат баз знаний и сппр. Модификация метода ahp в системах поддержки принятия решений

• Название: 1. Математический аппарат баз знаний и сппр. Модификация метода ahp в системах поддержки принятия решений
• Дата: 09.05.2022
• Размер: 80.28 Kb.
• Имя файла: Лабораторная работа №1.docx
• Тип: Документы; #519043

Тег . Данная программа генерирует на Web – странице форму, состоящую из нескольких списков, содержащих признаки исследуемого объекта.

Создать новую CSP – страницу. Сохранить страницу под именем query.csp. Дописать серверный скрипт (см. Листинг 2), заключѐнный в теги . Данная программа производит анализ и обработку пользовательских данных и выводит результат на Web – страницу.

Создать собственную базу знаний по варианту задания (файл expsys.int) – это программа на языке Cache Object Script.

Продемонстрировать разработанную систему ППР преподавателю.


В качестве примера приведѐм экспертную систему ППР «Угадай животное». Задача состоит в том, чтобы система помогла определить животное по его характерным признакам. Т.е. пользователь системы уточняет все признаки угадываемого животного, а компьютер определяет, есть ли такое животное в базе знаний.

Листинг 1 – Формирование исходных данных (страница expsys.csp).




background="E:\img5.jpg">

color="#ff0000" size="7">Экспертная система






language="cache" runat="server"> k ^Animal

d ^expsys k ^q

//Определение количества характеристик объекта: s x="^Animal"

s ^maxLength=0 f {

Set x=$Q(@x) Quit:x=""

if $QL(x)>^maxLength s ^maxLength=$QL(x)

}

//Построение формы:

w ""

w " method='post' name='expsys' action='query.csp'>" f i=1:1:^maxLength {

w "


"

w " color=""#0000FF"" size=""5"">Признак №",i,"" w ""

s x="^Animal"

s list=##class(%ListOfDataTypes).%New() // Создание нового списка w "Значение отсутствует"

f {

Set x=$Q(@x) Quit:x=""

If (list.Find($QS(x,i))="") & ($QS(x,i)'="") {

w " value="""_($QS(x,i))_""">"_($QS(x,i))_""

}

d list.Insert($QS(x,i))

}

w ""

}

w !,"
type='submit' value='Определить'>
" w ""

w ""


background="E:\img5.jpg">

color="#ff0000" size="7">Экспертная система






language="cache" runat="server">

//Получение данных формы со страницы expsys.csp: f i=1:1:^maxLength s ^q(i)=%request.Get("Level"_(i))

//Формирование формы с пользовательскими даными: w ""

w " method='post' name='expsys' action='query.csp'>" f i=1:1:^maxLength {

w "


"

w " color=""#0000FF"" size=""5"">Признак №",i,"" w ""

s x="^Animal"

w "Значение отсутствует"

s list=##class(%ListOfDataTypes).%New() // Создание нового списка f {

Set x=$Q(@x) Quit:x=""

If (list.Find($QS(x,i))="") & ($QS(x,i)'="") {

if $QS(x,i)'=^q(i) {w " value="""_($QS(x,i))_""">"_($QS(x,i))_""

}

else {

w " value="""_($QS(x,i))_""" selected>"_($QS(x,i))_""

}

}

d list.Insert($QS(x,i))

}

w ""

}

w !,"
type='submit' value='Определить'>
" w ""

w ""

//Обработка данных формы,т.е получение экспертного заключения: w ""

s index=""

f i=1:1:^maxLength {

if ^q(i)="Значение отсутствует" {q}

elseif (i'=^maxLength) && (^q(i+1)="Значение отсутствует") {s index="^Animal("_index_""""_^q(i)_""""_")"}

elseif i'=^maxLength {s index=index_""""_^q(i)_""""_","} else {

s index="^Animal("_index_""""_^q(i)_""""_")"}

}

if index="" {w "Нет решения"} elseif $Get(@index)'="" {w @index} else

{w "Нет решения"} w ""