0 / 0 / 0
Регистрация: 12.10.2015
Сообщений: 16
1

Не могу довести до ума программу в CLIPS

29.11.2018, 09:25. Показов 1589. Ответов 0
Метки нет (Все метки)

Разработайте ЭС, которая определяет, будет ли в результате весеннего паводка наводнение.
Если уровень воды в реке в черте города более трех метров и дожди идут ежедневно, средняя погода за день более 10°C и много снега в горах, то в ближайшие сутки ожидается наводнение.
Если уровень воды в реке в черте города менее трех метров и дожди идут через день, средняя погода за день более 10°C и много снега в горах, то наводнение через неделю.
Если же хотя бы один из этих факторов не выполняется, то наводнения не будет.

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
(defrule data-input
  (initial-fact)
=>
  (printout t crlf "kakoi uroven vodi : ")
  (bind ?bolee 3x metrov
 (read))
  (assert ( ?uroven))
 
  (printout t crlf "Idut li dohdi ehednevno? (da - 1/net - 0) ")
  (bind ?temper (read))
  (assert (temper ?temper))  )
 
(defrule R1
    (temper ?temper)
    (test (>= ?temper 10)) 
=>
(printout t crlf crlf "ohidaetcy novodnenie " crlf))
 
(defrule R2
    (temper ?temper)
    (rain ?rain)
    (test (and(and(>= ?temper 10)(< ?temper 10)) (= ?rain 0)) )
=>
(printout t crlf crlf "navodneniya ne budet " crlf))
 
(defrule R3
    (temper ?temper)
    (rain ?rain)
    (test (and(and(>= ?temper 10)(< ?temper 10)) (<> ?rain 0)) )
=>
(printout t crlf crlf "vozmohno navodnenie  " crlf))
 
(defrule R4
    (temper ?temper)
    (test (< ?temper 5) )
=>
(printout t crlf crlf "Pogoda holodnaya " crlf))
 
(defrule R5
    (temper ?temper)
    (test (< ?temper -30) )
=>
(printout t crlf crlf "Moroz" crlf)
(assert(moroz 1)) )
 
 
(defrule R6
    (moroz ?moroz)
    (test (= ?moroz 1) )
=>
(printout t crlf crlf "Ne idti v shkolu esli shkolniki ne poshli v school to nugno dat homework" crlf))
 
(defrule R7
    (ne prishli ? moroz)
    (test   (= ?moroz1))
=>
(printout t crlf crlf "esli shkolniki ne poshli v school to nugno dat homework" crlf))
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2018, 09:25
Ответы с готовыми решениями:

Не могу довести до ума
Всем привет! У меня такой вопрос пишу простенькую игру для брата о таблице умножения. Дело в том...

посмотрите не могу довести до ума
посмотрите не могу довести до ума....как сделать чтобы заработала?

Tasm, не могу довести до ума
Добрый день, уважаемые. Хотел бы попросить помочь мне дописать программу. С ассемблером пока не...

Не могу довести до ума, не хватает функции
/* c помощью текстового редактора блокнот создать файл, содержащий текст, длина которого не...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2018, 09:25

Не могу довести до ума..а хотя все эллиментарно...(
Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Xнач до Хкон с...

Довести до ума программу
Вот задание: Запросить стороны треугольника и определить, является ли он разносторонним,...

Довести программу до ума
Доброго времени суток! В задании написано: составить программу для вычисления степеней чисел вида...

Довести программу до ума
Разработайте алгоритм и программу, реализующую этот алгоритм. Основные функции программы оформите в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru