-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathtp3_ej10_SALIDA.txt
102 lines (91 loc) · 2.16 KB
/
tp3_ej10_SALIDA.txt
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
CLIPS (6.30 3/17/15)
CLIPS> (deftemplate especie_pajaro
(slot nombre_especie)
(slot sexo)
(slot colorAlas)
(slot colorCabeza)
(slot colorPecho)
(slot colorCola)
(slot long-min-max)
(slot enverg-min-max))
CLIPS> (deftemplate subespecie_pajaro
(slot nombre_especie)
(slot sexo)
(slot partColorAlas)
(slot partColorCabeza)
(slot partColorPecho)
(slot partColorCola))
CLIPS> (deffacts especies_pajaros
(especie_pajaro
(nombre_especie Jilguero)
(sexo Macho)
(colorAlas Amarillo_olivaceo)
(colorCabeza Amarillo_olivaceo)
(colorPecho Amarillo_olivaceo)
(colorCola Amarillo_olivaceo)
(long-min-max 13)
(enverg-min-max 23))
(especie_pajaro
(nombre_especie Cardenal)
(sexo Macho)
(colorAlas Negro)
(colorCabeza Rojo)
(colorPecho Blanco)
(colorCola Negro)
(long-min-max 13)
(enverg-min-max 23))
)
CLIPS> (deffacts subespecies_pajaros
(subespecie_pajaro
(nombre_especie Jilguero_dorado)
(sexo Macho)
(partColorAlas Oscuro)
(partColorCabeza Intenso)
(partColorPecho Oscuro)
(partColorCola Intenso)))
CLIPS> (defrule esp_jilguero
(especie_pajaro
(nombre_especie ?nombre)
(sexo ?sexo)
(colorAlas ?colorAlas)
(colorCabeza ?colorCabeza)
(colorPecho ?colorPecho)
(colorCola ?colorCola)
(long-min-max ?long)
(enverg-min-max ?enverg))
(especie_pajaro(sexo Macho)
(colorAlas Amarillo_olivaceo)
(colorCabeza Amarillo_olivaceo)
(colorPecho Amarillo_olivaceo)
(colorCola Amarillo_olivaceo))
(test (> ?long 12))
(test (< ?long 13.5))
(test (> ?enverg 21))
(test (< ?enverg 25))
=>
(assert(especie Jilguero)))
CLIPS> (defrule subesp_jilguero
(subespecie_pajaro
(nombre_especie ?nombre)
(sexo ?sexo)
(partColorAlas ?partColorAlas)
(partColorCabeza ?partColorCabeza)
(partColorPecho ?partColorPecho)
(partColorCola ?partColorCola))
(subespecie_pajaro
(sexo Macho)
(partColorAlas Oscuro)
(partColorCabeza Intenso)
(partColorPecho Oscuro)
(partColorCola Intenso))
(especie Jilguero)
=>
(assert(subespecie Jilguero_dorado)))
CLIPS> (defrule mostrar_resultado
(subespecie ?x)
=>
(printout t "La subespecie es :" ?x crlf))
CLIPS> (reset)
CLIPS> (run)
La subespecie es :Jilguero_dorado
CLIPS>