CLIPS family tree expert system

Question

I am trying to create a CLIPS program that describes family relations. I am completely lost, I don't even know where to start. Given the following deftemplates for facts describing a family tree.

    (deftemplate father‐of (slot father) (slot child))
    (deftemplate mother‐of (slot mother) (slot child))
    (deftemplate male (slot person))
    (deftemplate female (slot person))
    (deftemplate wife‐of (slot wife) (slot husband))
    (deftemplate husband‐of (slot husband) (slot wife))

Write rules that infer the following relations. Describe the deftemplates you use to solve the problem. a) Uncle, aunt b) Cousin c) Grandparent d) Grandfather, grandmother e) Sister, bother Run the expert system for your own family tree.

I have looked up similar examples and tried doing something similar but I am still struggling to understand what I need to do

Gary Riley Gary Riley · Accepted Answer · 2019-09-26T17:19:20

Here's how you could do it for determining the sister:

         CLIPS (6.31 6/12/19)
CLIPS> (deftemplate father-of (slot father) (slot child))
CLIPS> (deftemplate mother-of (slot mother) (slot child))
CLIPS> (deftemplate male (slot person))
CLIPS> (deftemplate female (slot person))
CLIPS> 
(deffacts info
   (father-of (father Bill) (child Mary))
   (mother-of (mother Jane) (child Mary))
   (father-of (father Bill) (child John))
   (mother-of (mother Jane) (child John))
   (male (person Bill))
   (male (person John))
   (female (person Jane))
   (female (person Mary)))
CLIPS>    
(defrule sister-of
   (or (male (person ?person))
       (female (person ?person)))
   (female (person ?sister&~?person))
   (father-of (father ?father) (child ?person))
   (father-of (father ?father) (child ?sister))
   (mother-of (mother ?mother) (child ?person))
   (mother-of (mother ?mother) (child ?sister))
   =>
   (printout t ?sister " is the sister of " ?person crlf))
CLIPS> (reset)
CLIPS> (run)
Mary is the sister of John
CLIPS>

CLIPS family tree expert system

1 Answers