doenca(astigmatismo).
doenca(catarata).
doenca(conjutivite).
doenca(estrabismo).
doenca(glaucoma).
doenca(hipermetropia).
doenca(miopia).
doenca(tercol).

sintoma(alteracaofrequentegrauoculos).
sintoma(ardornavista).
sintoma(aumentopressao).
sintoma(capacidaderefratariaalterada).
sintoma(coceira).
sintoma(confusaocores).
sintoma(corneaachatada).
sintoma(corneaovalada).
sintoma(danosnervooptico).
sintoma(dificuldadeleitura).
sintoma(dificuldadeobjproximos).
sintoma(dificuldadeobjdistantes).
sintoma(diminuicaoacuidade).
sintoma(dordecabeca).
sintoma(focoafrente).
sintoma(focoatras).
sintoma(pequenosnodulos).
sintoma(imgdistorcida).
sintoma(imgvariosfocos).
sintoma(infeccaoglandula).
sintoma(lacrimejamento).
sintoma(imgduplas).
sintoma(opacidadecristalino).
sintoma(perdavisao).
sintoma(perdaparalelismo).
sintoma(pontoscegos).
sintoma(pupilaesbranquicada).
sintoma(secrecaoolho).
sintoma(areiaolho).
sintoma(pesoolho).
sintoma(tensaoocular).
sintoma(vermelhidao).

tratamento(cirurgiarefrativa).
tratamento(remocaocristalino).
tratamento(evitarbanhosol).
tratamento(lavarmaos).
tratamento(naococar).
tratamento(cirurgialaser).
tratamento(reducaopressao).
tratamento(trabeculectomia).
tratamento(lentepositiva).
tratamento(oculos).
tratamento(lentecontato).
tratamento(lentenegativa).
tratamento(compressalocal).
tratamento(pomada).
tratamento(esperar).
tratamento(colirio).

%declaração das relacoes doenca-sintoma

%astigmatismo
doenca_relacionada_sintoma(astigmatismo,ardornavista).
doenca_relacionada_sintoma(astigmatismo,dordecabeca).
doenca_relacionada_sintoma(astigmatismo,imgdistorcida).
doenca_relacionada_sintoma(astigmatismo,imgvariosfocos).
doenca_relacionada_sintoma(astigmatismo,corneaovalada).
doenca_relacionada_sintoma(astigmatismo,opacidadecristalino).

%catarata
doenca_relacionada_sintoma(catarata,alteracaofrequentegrauoculos).
doenca_relacionada_sintoma(catarata,confusaocores).
doenca_relacionada_sintoma(catarata,dificuldadeleitura).
doenca_relacionada_sintoma(catarata,diminuicaoacuidade).
doenca_relacionada_sintoma(catarata,imgduplas).
doenca_relacionada_sintoma(catarata,pupilaesbranquicada).

%estrabismo
doenca_relacionada_sintoma(estrabismo,perdaparalelismo).

%conjutivite
doenca_relacionada_sintoma(conjutivite,lacrimejamento).
doenca_relacionada_sintoma(conjutivite,vermelhidao).
doenca_relacionada_sintoma(conjutivite,coceira).
doenca_relacionada_sintoma(conjutivite,areiaolho).

%glaucoma
doenca_relacionada_sintoma(glaucoma,perdavisao).
doenca_relacionada_sintoma(glaucoma,aumentopressao).
doenca_relacionada_sintoma(glaucoma,danosnervooptico).
doenca_relacionada_sintoma(glaucoma,pontoscegos).

%hipermetropia
doenca_relacionada_sintoma(hipermetropia,capacidaderefratariaalterada).
doenca_relacionada_sintoma(hipermetropia,dificuldadeobjproximos).
doenca_relacionada_sintoma(hipermetropia,focoatras).
doenca_relacionada_sintoma(hipermetropia,dordecabeca).
doenca_relacionada_sintoma(hipermetropia,ardornavista).
doenca_relacionada_sintoma(hipermetropia,pesoolho).
doenca_relacionada_sintoma(hipermetropia,vermelhidao).

%miopia
doenca_relacionada_sintoma(miopia,corneaachatada).
doenca_relacionada_sintoma(miopia,dificuldadeobjdistantes).
doenca_relacionada_sintoma(miopia,dordecabeca).
doenca_relacionada_sintoma(miopia,focoafrente).

%tercol
doenca_relacionada_sintoma(tercol,pequenosnodulos).
doenca_relacionada_sintoma(tercol,infeccaoglandula).


%relações doenças-tratamento

%astigmatismo
doenca_relacionada_tratamento(astigmatismo,cirurgiarefrativa).
doenca_relacionada_tratamento(astigmatismo,lentecontato).
doenca_relacionada_tratamento(astigmatismo,oculos).

%catarata
doenca_relacionada_tratamento(catarata,remocaocristalino).

%estrabismo
doenca_relacionada_tratamento(estrabismo,cirurgiarefrativa).
doenca_relacionada_tratamento(estrabismo,colirio).
doenca_relacionada_tratamento(estrabismo,oculos).

%conjutivite
doenca_relacionada_tratamento(conjutivite,evitarbanhosol).
doenca_relacionada_tratamento(conjutivite,lavarmaos).
doenca_relacionada_tratamento(conjutivite,naococar).

%glaucoma
doenca_relacionada_tratamento(glaucoma,reducaopressao).
doenca_relacionada_tratamento(glaucoma,trabeculectomia).
doenca_relacionada_tratamento(glaucoma,cirurgialaser).

%hipermetropia
doenca_relacionada_tratamento(hipermetropia,cirurgiarefrativa).
doenca_relacionada_tratamento(hipermetropia,oculos).
doenca_relacionada_tratamento(hipermetropia,lentepositiva).
doenca_relacionada_tratamento(hipermetropia,lentecontato).

%miopia
doenca_relacionada_tratamento(miopia,cirurgiarefrativa).
doenca_relacionada_tratamento(miopia,oculos).
doenca_relacionada_tratamento(miopia,lentenegativa).
doenca_relacionada_tratamento(miopia,lentecontato).


%tercol
doenca_relacionada_tratamento(tercol,esperar).
doenca_relacionada_tratamento(tercol,compressalocal).
doenca_relacionada_tratamento(tercol,pomada).


%Sintomas -> Doenca

avaliaSintoma([A|B],X) :- doenca_relacionada_sintoma(X,A), avaliaSintoma(B,X).
avaliaSintoma([],X):- write(X),write('  '), imprimir(X).

imprimir(X) :- doenca(X),write(' '), doenca_relacionada_tratamento(X,Y), write(' Tratamento : '), write(Y), write(' '). 


verificaSintomas([X|Y]) :- sintoma(X), verificaSintomas(Y).
verificaSintomas([]) :- write('').


start(X) :- write('Digite os sintomas: '),nl,read(A),((verificaSintomas(A),
avaliaSintoma(A,X))
;(not(verificaSintomas(A)),write(A),write('existe algum digitado que não é sintoma'))).