Reglas para transtornos del estado de ánimo

gistfile1.txt

(defrule episodioDepresivoMayor
  (or (estadoAnimo depresivo) (estadoAnimo irritable))
  (nivelInteres bajo)
  (perdidaPeso si)
  (perdidaApetito si)
  (capacidadConcentracion bajo)
  (provocaMalestarLaboral si)
  (provocaMalestarSocial si)
  (consumoDrogas no)
  (tieneTranstornosDeMetabolismo no)

  =>
    (printout t "Posiblemente esté sufriendo un episodio depresivo" crlf)
)

(defrule episodioManiaco
  (estadoAnimo irritable)
  (duracionDias ?dias)
  (test (>= ?dias 7))
  (horasSueño ?horas)
  (test (< ?horas 5))
  (or (nivelAutoestima "muy alto") (nivelAutoestima "exagerado"))
  (or (nivelAtencion "distraido") (nivelAtencion "muy distraido"))
  (provocaMalestarLaboral si)
  (provocaMalestarSocial si)
  (consumoDrogas no)
  (tieneTranstornosDeMetabolismo no)

  =>
    (printout t "Posiblemente esté sufriendo un episodio maniaco" crlf)
)

(defrule episodioHipomaniaco
  (estadoAnimo irritable)
  (duracionDias ?dias)
  (test (>= ?dias 4))
  (horasSueño ?horas)
  (test (< ?horas 5))
  (or (nivelAutoestima "muy alto") (nivelAutoestima "exagerado"))
  (or (nivelAtencion "distraido") (nivelAtencion "muy distraido"))
  (animoCambiadoObservable si)
  (provocaMalestarLaboral no)
  (provocaMalestarSocial no)
  (consumoDrogas no)
  (tieneTranstornosDeMetabolismo no)

  =>
    (printout t "Posiblemente esté sufriendo un episodio hipomaniaco" crlf)
)

(defrule episodioMixto
  (or (estadoAnimo depresivo) (estadoAnimo irritable))
  (test (>= ?dias 7))
  (horasSueño ?horas)
  (test (< ?horas 5))
  (or (nivelAutoestima "muy alto") (nivelAutoestima "exagerado"))
  (or (nivelAtencion "distraido") (nivelAtencion "muy distraido"))
  (provocaMalestarLaboral si)
  (provocaMalestarSocial si)
  (consumoDrogas no)
  (tieneTranstornosDeMetabolismo no)
  (nivelInteres bajo)
  (perdidaPeso si)
  (perdidaApetito si)
  (capacidadConcentracion bajo)

  =>
    (printout t "Posiblemente esté sufirneod un episodio mixto" crlf)
)

(defrule tieneTrastornoDepresivoMayor
  (episodioDepresivoMayor)
  (not episodioManiaco)
  (not episodioMixto)
  (not episodioHipomaniaco)

  =>
    (printout t "Posiblemente esté sufriendo de trastorno depresivo mayor" crlf)
)

(defrule tieneTrastornoBipolarIEpisodioManiacoUnico
  (episodioManiaco)
  (not episodioDepresivoMayor)
)

(defrule tieneTrastornoBipolarIEpisodioHipomaniacoReciente
  (episodioHipomaniaco)
  (or episodioManiaco episodioMixto)
  (or (provocaMalestarLaboral si) (provocaMalestarSocial si))
)

(define tieneTrastornoBipolarIEPisodioManiacoReciente
  (episodioManiaco)
  (or episodioManiaco episodioDepresivoMayor episodioMixto)
)

(define tieneTrastornoBipolarIEPisodioMixtoReciente
  (episodioMixto)
  (or episodioManiaco episodioDepresivoMayor episodioMixto)
)

(define tieneTrastornoBipolarIEPisodioDepresivoReciente
  (episodioDepresivoMayor)
  (or episodioManiaco episodioMixto)
)

(define tieneTrastornoBipolarII
  (episodioDepresivoMayor)
  (or episodioHipomaniaco)
  (not episodioManiaco)
  (not episodioMixto)
  (or (provocaMalestarLaboral si) (provocaMalestarSocial si))
)