Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / CONSULTP.ZIP / LIFESPAN < prev next >

Wrap

Text File | 1988-06-24 | 8.6 KB | 483 lines

objective(longevity) legalvals(start)=yes,quit legalvals(weight)=110_or_less,110-170,170_or_more legalvals(frame)=small,large legalvals(fat)=normal,high legalvals(cholesterol)=normal,high legalvals(salt)=normal,high legalvals(race)=black,caucasian,asian legalvals(alcohol_consumption)=none,moderate,excessive legalvals(gender)=m,f legalvals(age)=25_or_less,25-55,55_or_over legalvals(personality)=aggressive,docile legalvals(smoker)=yes,no question(start)=Are you ready to begin? question(longevity)=SORRY, NO ANSWER--HIT RETURN question(weight)=How much does the subject weigh? question(frame)=Is the subjects frame: question(fat)=Is the unsaturated fat intake: question(cholesterol)=Is the animal fat intake: question(salt)=Is the salt intake: question(race)=What is the subjects race? question(alcohol_consumption)=Is alcohol intake: question(gender)=What is the subjects gender? question(age)=How old is the subject? question(smoker)=Is the subject a smoker? question(personality)=Is the subject: rule1: if relative_weight=normal then weight_ok=yes, cf=80. rule2: if relative_weight=underweight then weight_ok=yes,cf=90. rule3: if heart_disease_risk=below_average then hddanger=low. rule4: if heart_disease_risk=average then hddanger=low. rule5: if start=yes then hddanger=other. rule6: if age=25_or_less and gender=f then base_longevity=72,cf=50. rule7: if age=25_or_less and gender=m then base_longevity=67,cf=50. rule8: if age=25-55 and gender=f then base_longevity=67,cf=50. rule9: if age=25-55 and gender=m then base_longevity=62,cf=50. rule10: if age=55_or_over and gender=f then base_longevity=64,cf=50. rule11: if age=55_or_over and gender=m then base_longevity=60,cf=50. rule12: if weight=110_or_less and frame=small and gender=f then relative_weight=normal,cf=100. rule14: if weight=110-170 and frame=small and gender=f then relative_weight=obese,cf=80. rule17: if weight=110-170 and gender=f and frame=large then relative_weight=normal,cf=100. rule18: if weight=110-170 and frame=large and gender=f then relative_weight=normal,cf=100. rule21: if weight=170_or_more and gender=f then relative_weight=obese,cf=80. rule13: if weight=170_or_more and frame=small then relative_weight=obese,cf=100. rule15: if weight=110_or_less and frame=large then relative_weight=underweight,cf=100. rule16: if weight=110_or_less and frame=small and gender=m then relative_weight=underweight,cf=100. rule19: if weight=110-170 and frame=small and gender=m then relative_weight=normal,cf=80. rule20: if weight=110-170 and frame=large and gender=m then relative_weight=underweight,cf=80. rule22: if weight=170_or_more and gender=m and frame=small then relative_weight=obese,cf=100. rule23: if weight=170_or_more and gender=m and frame=large then relative_weight=normal,cf=80. rulexx: if relative_weight=obese then weight_ok=no,cf=100. rule24: if cholesterol=low and fat=high then heart_disease_risk=below_average,cf=80. rule25: if cholesterol=low and fat=normal then heart_disease_risk=average,cf=80. rule26: if cholesterol=high then heart_disease_risk=above_average,cf=80. rule27: if cholesterol=normal then heart_disease_risk=average,cf=100. rule28: if salt=high then blood_pressure=above_average,cf=75. rule29: if salt=normal then blood_pressure=average,cf=50. rule30: if calcium=high then osteporosis_risk=below_average,cf=90. rule31: if calcium=normal then osteoporosis_risk=average,cf=80. rule32: if calcium=low then osteoporosis_risk=above_average,cf=100. rule33: if weight_ok=no and heart_disease_risk=above_average and blood_pressure=above_average and smoker=yes then outlook=bleak,cf=100. rule34: if weight_ok=no and heart_disease_risk=above_average and blood_pressure=above_average and smoker=no then outlook=poor,cf=100. rule35: if weight_ok=no and heart_disease_risk=above_average and blood_pressure=average and smoker=no then outlook=fair,cf=80. rule36: if weight_ok=no and heart_disease_risk=above_average and blood_pressure=average and smoker=yes then outlook=poor,cf=100. rule37: if weight_ok=no and hddanger=low and blood_pressure=average and smoker=no then outlook=good,cf=80. rule38: if weight_ok=no and hddanger=low and blood_pressure=average and smoker=yes then outlook=fair,cf=80. rule39: if weight_ok=no and hddanger=low and blood_pressure=above_average and smoker=no then outlook=fair,cf=70. rule40: if weight_ok=no and hddanger=low and blood_pressure=above_average and smoker=yes then outlook=poor,cf=100. rule41: if weight_ok=yes and heart_disease_risk=above_average and blood_pressure=above_average and smoker=yes then outlook=poor,cf=100. rule42: if weight_ok=yes and heart_disease_risk=above_average and blood_pressure=above_average and smoker=no then outlook=fair. rule43: if weight_ok=yes and heart_disease_risk=above_average and blood_pressure=average and smoker=no then outlook=good. rule44: if weight_ok=yes and heart_disease_risk=above_average and blood_pressure=average and smoker=yes then outlook=fair. rule45: if weight_ok=yes and hddanger=low and blood_pressure=average and smoker=no then outlook=excellent. rule46: if weight_ok=yes and hddanger=low and blood_pressure=average and smoker=yes then outlook=fair. rule47: if weight_ok=yes and hddanger=low and blood_pressure=above_average and smoker=no then outlook=good. rule48: if weight_ok=yes and hddanger=low and blood_pressure=above_average and smoker=yes then outlook=fair. rule41: if start=yes then outlook=unknown. rule42: if race=black and origin=mediterranean then risk=high. rule43: if personality=aggressive then personality_type=type_a. rule44: if personality=docile then personality_type=type_b. rule45: if personality_type=type_a then risk=high. rule46: if start=yes then risk=unknown. rule47: if alcohol_consumption=moderate then add=good. rule48: if alcohol_consumption=none then add=fair. rule49: if alcohol_consumption=excessive then add=poor. rule50: if outlook=bleak and risk=high and add=poor then factor=minus_12. rule51: if outlook=excellent and risk=unknown and add=good then factor=plus_12. rule52: if outlook=excellent and risk=high and add=good then factor=none. rule53: if outlook=good and risk=high and add=good then factor=none. rule54: if outlook=fair and risk=high then factor=minus_12. rule55: if outlook=poor and risk=high then factor=minus_12. rule56: if outlook=excellent and risk=unknown and add=fair then factor=plus_12. rule57: if outlook=excellent and risk=unknown and add=poor then factor=plus_12. rule58: if outlook=good and risk=unknown then factor=plus_12. rule59: if outlook=fair and risk=unknown then factor=none. rule60: if outlook=bleak and risk=unknown then factor=none. rule 61: if start=yes then factor=unknown. rule 62: if start=quit then longevity=quit. rule 63: if base_longevity=72 and factor=none then longevity=72_yrs. rule 64: if base_longevity=67 and factor=none then longevity=67_yrs. rule 65: if base_longevity=64 and factor=none then longevity=64_yrs. rule 66: if base_longevity=62 and factor=none then longevity=62_yrs. rule 67: if base_longevity=60 and factor=none then longevity=60_yrs. rule 68: if base_longevity=72 and factor=plus_12 then longevity=84_yrs. rule 69: if base_longevity=67 and factor=plus_12 then longevity=79_yrs. rule 70: if base_longevity=64 and factor=plus_12 then longevity=76_yrs. rule 71: if base_longevity=62 and factor=plus_12 then longevity=74_yrs. rule 72: if base_longevity=60 and factor=plus_12 then longevity=72_yrs. rule 73: if base_longevity=72 and factor=minus_12 then longevity=60_yrs. rule 74: if base_longevity=67 and factor=minus_12 then longevity=55_yrs. rule 75: if base_longevity=64 and factor=minus_12 then longevity=52_yrs. rule 76: if base_longevity=62 and factor=minus_12 then longevity=50_yrs. rule 77: if base_longevity=60 and factor=minus_12 then longevity=48_yrs.