/* * Filename: mc2.pro (marriage counsellor 2) * * Programmer: Br. David Carlson * * Date of creation: September 4, 1993 * * Revised: December 11, 1999 to run under yap. * * Description: * * This program is used to predict whether or not two people have * (or will have) marriage problems. Use the goal: marriage_problems. */ marriage_problems :- financial_problems. marriage_problems :- sexual_problems. marriage_problems :- communications_problems. marriage_problems :- psychological_problems. financial_problems :- not(family_has_income). family_has_income :- husband_employed. family_has_income :- wife_employed. /* Data on the current couple: */ communications_problems :- fail. sexual_problems :- fail. psychological_problems :- fail. wife_employed. husband_employed :- fail.