s452652/system_doradzwa_medycznego_prolog
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

adjusted disease data base to work properly

Browse Source
This commit is contained in:
Jakub R 2021-06-13 21:37:55 +02:00
parent 3f0ef263f9
commit 56a365d9be
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
medical_adviser.pl
View File

@ -2,16 +2,16 @@
% | == disease data base == | % | == disease data base == |
% | ======================= | % | ======================= |
disease("flu",[("pain",["throat"]),("runny nose"),("fever",-1),("general weakness"),("coughs")],[("pain",["muscles"])]). disease("flu",[("pain",["throat"]),("runny nose"),("fever",-1),("general weakness"),("coughs")],[("pain",["muscles"]),("erythrocyte",-1),("erythrocyte",0),("erythrocyte",1)]).
disease("malaria",[("fever",2),("general weakness")],[("pain",["head"]),("chills"),("erythrocyte",-1)]). disease("malaria",[("fever",2),("general weakness")],[("pain",["head"]),("chills"),("erythrocyte",-1)]).
disease("angina",[("fever",2),("coughs"),("general weakness"),("magnifying lymph nodes"),("pain",["throat"])],[("cannot swallow"),("pain",["head"]),("chills")]). disease("angina",[("fever",2),("coughs"),("general weakness"),("magnifying lymph nodes"),("pain",["throat"])],[("cannot swallow"),("pain",["head"]),("chills"),("erythrocyte",-1),("erythrocyte",0),("erythrocyte",1)]).
disease("diphtheria",[("fever",1),("general weakness"),("dyspnea")],[("Unclear Speech"),("cannot swallow")]). disease("diphtheria",[("fever",1),("general weakness"),("dyspnea")],[("Unclear Speech"),("cannot swallow"),("erythrocyte",-1),("erythrocyte",0),("erythrocyte",1)]).
disease("typhoid",[("fever",0),("pain",["stomach"]),("spleen enlargement")],["tire symptoms"]). disease("typhoid",[("fever",0),("pain",["stomach"]),("spleen enlargement")],["tire symptoms",("erythrocyte",-1),("erythrocyte",0),("erythrocyte",1)]).
disease("plague",[("fever",2),("general weakness"),("magnifying lymph nodes"),("liver enlargement"),("spleen enlargement")],[("cloded rash")]). disease("plague",[("fever",2),("general weakness"),("magnifying lymph nodes"),("liver enlargement"),("spleen enlargement")],[("cloded rash"),("erythrocyte",-1),("erythrocyte",0),("erythrocyte",1)]).
disease("haemophilia",[("epistaxis"),("impaired blood clotting"),("spleen enlargement")],[("fever",0),("fever",1),("fever",2)]). disease("haemophilia",[("epistaxis"),("impaired blood clotting"),("spleen enlargement")],[("fever",0),("fever",1),("fever",2),("erythrocyte",-1),("erythrocyte",0),("erythrocyte",1)]).
disease("whooping cough",[("fever",1),("pain",["throat"]),("paroxysmal cough")],[("conjunctivitis"),("vomits")]). disease("whooping cough",[("fever",1),("pain",["throat"]),("paroxysmal cough")],[("conjunctivitis"),("vomits"),("erythrocyte",-1),("erythrocyte",0),("erythrocyte",1)]).
disease("myasthenia",[("excessive fatigue")],[("muscle weakness"),("double vision"),("fever",0),("fever",1),("fever",2)]). disease("myasthenia",[("excessive fatigue")],[("muscle weakness"),("double vision"),("fever",0),("fever",1),("fever",2),("erythrocyte",-1),("erythrocyte",0),("erythrocyte",1)]).
disease("atrial fibrillation",[("dizziness"),("faints"),("excessive fatigue")],[("coughs"),("fever",1),("fever",2),("fever",3)]). disease("atrial fibrillation",[("dizziness"),("faints"),("excessive fatigue")],[("coughs"),("fever",0),("fever",1),("fever",2),("erythrocyte",-1),("erythrocyte",0),("erythrocyte",1)]).
% | ===================== | % | ===================== |