Разработка экспертной системы по определению оптимальной конфигурации ПК
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
le R2
(mobile ?mobile)
(firma ?firma)
(test (and (= ?mobile 1)(= ?firma 2)) )
=>
(printout t crlf crlf "Вы выбрали раздел мобильных ПК (ноутбуки) фирмы ASUS " crlf)
(assert (type "Мобильные ПК ASUS"))
(assert (typecnst 2)))
(defrule R3
(mobile ?mobile)
(firma ?firma)
(test (and (= ?mobile 1)(= ?firma 3)) )
=> проектирование экспертный комплектация компьютер
(printout t crlf crlf "Вы выбрали раздел мобильных ПК (ноутбуки) фирмы Samsung " crlf)
(assert (type "Мобильные ПК Samsung"))
(assert (typecnst 3)))
(defrule R4
(mobile ?mobile)
(firma ?firma)
(test (and (= ?mobile 1)(> ?firma 3)) )
=>
(printout t crlf crlf "Мобильные ПК данной фирмы не выпускаются. Выберите другую фирму-изготовитель для мобильного ПК" crlf)
(assert (config "Выберите другую фирму-изготовитель для мобильного ПК")))
(defrule R5
(mobile ?mobile)
(firma ?firma)
(test (and (= ?mobile 0)(and (= ?firma 1)(= ?firma 3))) )
=>
(printout t crlf crlf "Стационарные ПК на основе мат.плат данной фирмы не выпускаются. Выберите другую фирму-изготовитель для стационарного ПК" crlf)
(assert (config "Выберите другую фирму-изготовитель для стационарного ПК")))
(defrule R6
(mobile ?mobile)
(firma ?firma)
(test (and (= ?mobile 0)(= ?firma 2)) )
=>
(printout t crlf crlf "Вы выбрали раздел стационарных ПК на основе мат.плат фирмы ASUS " crlf)
(assert (type "Стационарные ПК ASUS"))
(assert (typecnst 4)))
(defrule R7
(mobile ?mobile)
(firma ?firma)
(test (and (= ?mobile 0)(= ?firma 4)) )
=>
(printout t crlf crlf "Вы выбрали раздел стационарных ПК на основе мат.плат фирмы GigaByte " crlf)
(assert (type "Стационарные ПК GigaByte"))
(assert (typecnst 5)))
(defrule R8
(mobile ?mobile)
(firma ?firma)
(test (and (= ?mobile 0)(= ?firma 5)) )
=>
(printout t crlf crlf "Вы выбрали раздел стационарных ПК на основе мат.плат фирмы INTEL " crlf)
(assert (type "Стационарные ПК INTEL"))
(assert (typecnst 6)))
(defrule R9
(znach ?znach)
(cash ?cash)
(test (and (= ?znach 1)(and (>= ?cash 6000)(<= ?cash 21000))) )
=>
(printout t crlf crlf "Дешевый офисный ПК" crlf)
(assert (money "Низкая ценовая категория"))
(assert (moneycnst 1)))
(defrule R10
(znach ?znach)
(cash ?cash)
(test (and (> ?znach 1)(and (> ?cash 21000)(<= ?cash 30000))) )
=>
(printout t crlf crlf "Хороший ПК" crlf)
(assert (money "Средняя ценовая категория"))
(assert (moneycnst 2)))
(defrule R11
(znach ?znach)
(cash ?cash)
(test (and (= ?znach 2)(and (>= ?cash 30000)(<= ?cash 60000))) )
=>
(printout t crlf crlf "Хороший мультимедийный ПК" crlf)
(assert (money "Высокая ценовая категория"))
(assert (moneycnst 3)))
(defrule R12
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 1)(= ?typecnst 1)) )
=>
(printout t crlf crlf "Вы выбрали мобильный ПК Acer низкой ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: Acer eMachines E525-902G16Mi CM900(2.2)/2048/160/DVD-RW/WiFi/Linux/15.6/2.53 кг." crlf)
(assert (config "Мобильный ПК Acer дешевый")))
(defrule R13
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 1)(= ?typecnst 2)) )
=>
(printout t crlf crlf "Вы выбрали мобильный ПК ASUS низкой ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: ASUS Eee PC 1005P Black Atom N450(1.66)/2048/160/WiFi/cam/Win7St/10.1/1.27 кг." crlf)
(assert (config "Мобильный ПК ASUS дешевый")))
(defrule R14
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 1)(= ?typecnst 3)) )
=>
(printout t crlf crlf "Вы выбрали мобильный ПК Samsung низкой ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: Samsung N150 Atom N450(1.66)/1024/250/WiFi/BT/cam/Win7St/10.1/1.16 кг." crlf)
(assert (config "Мобильный ПК Samsung дешевый")))
(defrule R15
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 1)(= ?typecnst 4)) )
=>
(printout t crlf crlf "Вы выбрали стационарный ПК ASUS низкой ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: Компьютер Asus Eee Box B1006 (90PE24C2112101A39CHZ) Black. Тип процессора: Intel Atom. Модель процессора: N270. Оперативная память: 2048 Мб. Объём жесткого диска: 160 Гб. Беспроводная связь WiFi. Операционная система Microsoft Windows Vista Home Basic ." crlf)
(assert (config "Стационарный ПК ASUS дешевый")))
(defrule R16
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 1)(= ?typecnst 5)) )
=>
(printout t crlf crlf "Вы выбрали стационарные ПК Gigabyte низкой ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: Gigabyte G-MAX , SVGA, LAN)." crlf)
(assert (config "Стационарный ПК GigaByte дешевый")))
(defrule R17
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 1)(= ?typecnst 6)) )
=>
(printout t crlf crlf "Вы выбрали стационарные ПК INTEL низкой ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: Intel CoreтДв i5 750 2,66 GHz, LGA1155/8MB-1333MHz,1Tb SATAII,4096Mb DDRIII,DVD-RW,Video PCI-E Radeon HD 5870 1024 mb DDR5,Card reader,БП 550W,Lan 10/100/1000." crlf)
(assert (config "Стационарный ПК INTEL дешевый")))
(defrule R18
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 2)(= ?typecnst 1)) )
=>
(printout t crlf crlf "Вы выбрали мобильный ПК Acer средней ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: Acer Extensa 5635Z-442G16Mi T4400(2.2)/2048/160/DVD-RW/WiFi/cam/Linux/15.6/2.36 кг." crlf)
(assert (config "Мобильный ПК Acer не дешевый")))
(defrule R19
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 2)(= ?typecnst 2)) )
=>
(printout t crlf crlf "Вы выбрали мобильный ПК ASUS средней ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: ASUS K70AF Turion X2 M520(2.3)/3072/320(5400)/DVD-RW/WiFi/cam/Win7HB/17.3/3.24 кг." crlf)
(assert (config "Мобильный ПК ASUS не дешевый")))
(defrule R20
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 2)(= ?typecnst 3)) )
=>
(printout t crlf crlf "Вы выбрали мобильный ПК Samsung средней ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: Samsung R430 i3 330M(2.13)/3072/320/DVD-RW/WiFi/cam/Win7HB/14/2.14 кг." crlf)
(assert (config "Мобильный ПК Samsung не дешевый")))
(defrule R21
(typecnst ?typecnst)
(moneycnst ?moneycnst)
(test (and (= ?moneycnst 2)(= ?typecnst 4)) )
=>
(printout t crlf crlf "Вы выбрали стационарный ПК ASUS средней ценовой категории." crlf)
(printout t crlf crlf "Варианты ПК: ASUS Eee TOP ET2001B Black Atom N270(1.6)/1024/160/DVD-RW/WiFi/WinXP/19.6." crlf)
(asser