home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
FUZZY.ZIP
/
PARKINSO
< prev
next >
Wrap
Text File
|
1986-10-21
|
2KB
|
56 lines
{
This program is a simplistic diagnosis program for Parkinson's disease.
Parkinson's disease is caused by gradual loss of dopamine-producing cells
due to age combined with exposure to certain chemicals which can kill
large numbers of these cells. When cell loss reaches 80%, Parkinson's
disease occurs due to the shortage of Dopamine.
}
parkinson(Who, Age, Exposures) :- threshold(0.8),
patient(Who, Age, Exposures), diagnose(Who, Age, Exposures),
write(Who), write(" has Parkinson's disease"), nl, fail.
diagnose(Who, Age, Exposures) :- threshold(0.0),
age_loss(Age) | exposure_loss(Exposures).
age_loss(Years) :- Loss = Years * 0.01, fuzzy(Loss).
exposure_loss(0) :- !, fuzzy(0.0).
exposure_loss(N) :- M = N - 1, exposure_loss(M) | fuzzy(0.4).
patient(debbie_brockherst, 60, 0).
patient(albert_burch, 30, 0).
patient(mai_burnette, 26, 1).
patient(dana_cochran, 21, 0).
patient(mark_county, 29, 0).
patient(lynn_davis, 23, 1).
patient(john_dykstra, 42, 0).
patient(janet_edgington, 31, 1).
patient(richard_feenstra, 27, 2).
patient(ruth_francke, 37, 0).
patient(robert_franzen, 57, 0).
patient(patty_gerdes, 72, 0).
patient(charles_grady, 55, 1).
patient(sandy_gray, 21, 1).
patient(larry_hardesty, 33, 1).
patient(lorrie_hieneman, 69, 1).
patient(harold_hummell, 13, 0).
patient(allie_kendall, 72, 1).
patient(james_kirk, 35, 0).
patient(ruth_leader, 2, 1).
patient(jeffrey_markland, 59, 1).
patient(carla_miller, 19, 0).
patient(david_newberry, 22, 0).
patient(paula_peters, 47, 0).
patient(william_rehmart, 27, 1).
patient(sandra_remmers, 15, 0).
patient(brad_richards, 26, 0).
patient(thelma_roeder, 32, 0).
patient(joseph_setzer, 48, 2).
patient(dolores_speelman, 37, 1).
patient(ted_tebics, 54, 1).
patient(patricia_viers, 58, 1).
patient(henry_williams, 7, 0).
patient(timothy_zwinck, 29, 1).