home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FUZZY.ZIP / PARKINSO < prev    next >
Encoding:
Text File  |  1986-10-21  |  1.9 KB  |  56 lines
  1. {
  2.    This program is a simplistic diagnosis program for Parkinson's disease.
  3.  
  4.    Parkinson's disease is caused by gradual loss of dopamine-producing cells
  5.    due to age combined with exposure to certain chemicals which can kill
  6.    large numbers of these cells.  When cell loss reaches 80%, Parkinson's
  7.    disease occurs due to the shortage of Dopamine.
  8.                                                                         }
  9.  
  10. parkinson(Who, Age, Exposures) :- threshold(0.8),
  11.         patient(Who, Age, Exposures), diagnose(Who, Age, Exposures),
  12.         write(Who), write(" has Parkinson's disease"), nl, fail.
  13.  
  14. diagnose(Who, Age, Exposures) :- threshold(0.0),
  15.         age_loss(Age) | exposure_loss(Exposures).
  16.  
  17. age_loss(Years) :- Loss = Years * 0.01, fuzzy(Loss).
  18.  
  19. exposure_loss(0) :- !, fuzzy(0.0).
  20. exposure_loss(N) :- M = N - 1, exposure_loss(M) | fuzzy(0.4).
  21.  
  22. patient(debbie_brockherst, 60, 0).
  23. patient(albert_burch, 30, 0).
  24. patient(mai_burnette, 26, 1).
  25. patient(dana_cochran, 21, 0).
  26. patient(mark_county, 29, 0).
  27. patient(lynn_davis, 23, 1).
  28. patient(john_dykstra, 42, 0).
  29. patient(janet_edgington, 31, 1).
  30. patient(richard_feenstra, 27, 2).
  31. patient(ruth_francke, 37, 0).
  32. patient(robert_franzen, 57, 0).
  33. patient(patty_gerdes, 72, 0).
  34. patient(charles_grady, 55, 1).
  35. patient(sandy_gray, 21, 1).
  36. patient(larry_hardesty, 33, 1).
  37. patient(lorrie_hieneman, 69, 1).
  38. patient(harold_hummell, 13, 0).
  39. patient(allie_kendall, 72, 1).
  40. patient(james_kirk, 35, 0).
  41. patient(ruth_leader, 2, 1).
  42. patient(jeffrey_markland, 59, 1).
  43. patient(carla_miller, 19, 0).
  44. patient(david_newberry, 22, 0).
  45. patient(paula_peters, 47, 0).
  46. patient(william_rehmart, 27, 1).
  47. patient(sandra_remmers, 15, 0).
  48. patient(brad_richards, 26, 0).
  49. patient(thelma_roeder, 32, 0).
  50. patient(joseph_setzer, 48, 2).
  51. patient(dolores_speelman, 37, 1).
  52. patient(ted_tebics, 54, 1).
  53. patient(patricia_viers, 58, 1).
  54. patient(henry_williams, 7, 0).
  55. patient(timothy_zwinck, 29, 1).
  56.