Sistema_de_vacunacion

%%% La edad se mide en meses :- dynamic edad/1. %Base de paciente vacia se_aplica(0,[tuberculosis,hepatitis_b]). se_aplica(2, [pentavalente,rotavirus,neumococica,hepatitis_b, sabin]). se_aplica(4, [pentavalente,rotavirus,neumococica, sabin]). se_aplica(6, [hepatitis_b, pentavalente,rotavirus,influenza, sabin]). se_aplica(7, [influenza]). se_aplica(12, [triple_viral, varicela, hepatitis_a]). se_aplica(18, [pentavalente,neumococica,hepatitis_a, sabin]). se_aplica(48, [dpt]). se_aplica(72, [triple_viral, varicela, sr, sabin]). se_aplica(132, [vph]). %Vacunas disponibles y su edad de aplicacion edad_app(E):- E<2, se_aplica(0,V), writeln(V),!. edad_app(E):- E<4, se_aplica(2,V), writeln(V), edad_app(0),!. edad_app(E):- E<6, se_aplica(4,V), writeln(V), edad_app(2),!. edad_app(E):- E<7, se_aplica(6,V), writeln(V), edad_app(4),!. edad_app(E):- E<12, se_aplica(7,V), writeln(V), edad_app(6),!. edad_app(E):- E<18, se_aplica(12,V), writeln(V), edad_app(7),!. edad_app(E):- E<48, se_aplica(18,V), writeln(V), edad_app(12),!. edad_app(E):- E<72, se_aplica(48,V), writeln(V), edad_app(18),!. edad_app(E):- E<132, se_aplica(72,V), writeln(V), edad_app(48),!. edad_app(E):- E<180, se_aplica(132,V), writeln(V), edad_app(72),!. %Base de conocimiento para vacunas pasadas vacuna_n(E,R):- E<2, R=2. vacuna_n(E,R):- E<4, R=4. vacuna_n(E,R):- E<6, R=6. vacuna_n(E,R):- E<7, R=7. vacuna_n(E,R):- E<12, R=12. vacuna_n(E,R):- E<18, R=18. vacuna_n(E,R):- E<48, R=48. vacuna_n(E,R):- E<72, R=72. vacuna_n(E,R):- E<132, R=132. %Base de conocimiento para vacunas futuras. vacunas_nuevas(A,T):-vacuna_n(A,P), se_aplica(P,T). vacunacion:- writeln('Escribe tu edad en meses: '), read(E), (asserta(edad(E))), vacunas_p. vacunas_p:- writeln('Las vacunas que debes tener son: '), nl, edad(F), edad_app(F), nl, writeln('Las proximas vacunas que te debes aplicar son: '), nl, vacunas_futuras. vacunas_futuras:-edad(F), vacunas_nuevas(F,T), writeln(T), elimina, vacunas_futuras. elimina:- retract(edad(_)).