inteligencia artificial

Ejercicio Resuelto
1. Define una plantilla denominada persona que represente una relación de
personas con los siguientes cuatro campos simples: nombre, apellido, colorojos y altura.
(deftemplatepersona "Relación persona"
(slot nombre)
(slot apellido)
(slot color-ojos)
(slot altura) )

2. Define una plantilla persona2 pero con campos multislot para nombre y
apellidos.
(deftemplatepersona2 "Relacion persona"
(multislot nombre)
(multislot apellido)
(slot color-ojos)
(slot altura) )

3. Añade 2 hechos de tipo persona con assert. Dos personas con los campos
nombre (cadena decaracteres, como por ejemplo “Juan”), apellido (otra
cadena de caracteres), color-ojos (símbolo, como por ejemplo negros) y altura
(entero, como por ejemplo 179).
CLIPS> (assert ( persona
(nombre"Luis Daniel")
(apellido "Hernandez")
(color-ojos marrones)
(altura 189) ) )

CLIPS> (assert (persona
(nombre "María Jesús")
(apellido "Rubio")
(color-ojos marrones)
(altura 165) ) )


4.Vuelve a añadir una de ellas.
CLIPS> (assert (persona
(nombre "Maria Jesus")
(apellido "Rubio")
(color-ojos marrones)
(altura 165) ) )
FALSE

5. Muestra todos los hechos.
CLIPS> (facts)
f-0(initial-fact)
f-1 (Persona (nombre "Luis Daniel") (apellido "Hernandez") (color-ojos marrones)
(altura 189))
f-2 (Persona (nombre "Maria Jesus") (apellido "Rubio") (color-ojos marrones) (altura165))
For a total of 3 facts.

6. Muestra todos los hechos desde el primero hasta el número 2.
3: CLIPS> (facts

1 2)
f-1 (Persona (nombre "Luis Daniel") (apellido "Hernandez") (color-ojosmarrones)
(altura
189))
f-2 (Persona (nombre "Maria Jesus") (apellido "Rubio") (color-ojos marrones) (altura
165))
For a total of 2 facts.

7. Muestra sólo el hecho número 2.
4: CLIPS> (facts

2)f-2 (Persona (nombre "Maria Jesus") (apellido "Rubio") (color-ojos marrones) (altura
165))
For a total of 1 facts.

8. Muestra los hechos desde el número 1 hasta el 1, y como máximo 0 hechos....