Réalisation d?un système expert pour le diagnostic et la thérapeutique de la maladie de la lèpre.

IV.3.1 Présentation de logiciel

Pour cette application, nous utiliserons le langage de programmation CLIPS qui est un type de langage de programmation conçu pour implémenter des systèmes experts. Un système expert est un programme spécialement conçu pour modéliser une expertise ou une Connaissance humaine.

Nous avons porte notre choix sur ce langage de programmation, parce qu'il est un outil pour le système expert il est aussi un environnement complet pour développer des systèmes experts, incluant des caractéristiques telles qu'un éditeur intégré et un outil de débogage.

IV.3.2 Le code source

(defrule presentation

(initial-fact)

=>

(printout t "*******************************************************************************************"crlf

"* SYSTEME EXPERT POUR LE DIAGNOSTIC ET LA THERAPEUTIQUE DES MALADIES DE LA LEPRE *"crlf

"*******************************************************************************************"crlf "*AUTEUR: ELVIS KIANGALA MAKANZU *"crlf

"*DATE DE CREATION: LE 10/08/2011 *"crlf

"*VERSION: CLIPS 6.30 BETA *"crlf

"*ANNEE ACADEMIQUE : 2009-2010 *"crlf

"*******************************************************************************************"crlf

crlf crlf crlf "POUR COMMENCER APPUYEZ SUR ENTREE ... "

crlf

)

(bind ?touche (readline))

(assert (fait debut))

)

(defrule regle1

(fait debut)

=>

(printout t "VOICI LES SYMPTOMES DE LA LEPRE: " crlf crlf

"1. apparition de 5 Tâches claires insensibles de la peau. " crlf

"2. apparition plus de 5 tâches claires insensibles de la peau " crlf

"3. Présence des tâches et nodules rougeâtres enflés et douloureux " crlf

"4. douleur et rougeur au niveau des yeux " crlf

"5. nerfs périphériques douloureux et enflés " crlf

"6. fièvre et malaise " crlf

"7. chaleur au niveau de la peau " crlf

"8. faiblesse musculaire." crlf

"9. Inflammation et rougeur des tâches " crlf

"10. Apparition d'une fièvre dont la progression est lente " crlf

"11. détérioration rapide des fonctions nerveuses (yeux, mains et pieds) " crlf

"12. faiblesse dans la fermeture des paupières " crlf

"13. Inflammation des lésions de la peau sans ulcération " crlf

"14. une douleur nerveuse sans perte fonctionnelle de réaction de type I " crlf

"15. OEdème périphérique qui peut être présent " crlf

"16. une implication de l'oeil c'est-à-dire l'oeil aussi est touché par la réaction lépreuse mais pas de fièvre "crlf

"18. Inflammation des lésions de la peau à la face " crlf

"19. Inflammation des lésions de la peau compliquée par l'ulcération " crlf

"20. Douleurs nerveuses " crlf

"21. Perte de fonctionnalité récente " crlf

"22. Présence d'un oedème périphérique " crlf

"23. Implication oculaire " crlf

"24. Erythème noueux non compliqué " crlf

"25. Douleur nerveuse sans perte fonctionnelle " crlf

"26. OEdème périphérique présent " crlf

"27. Non implication de l'oeil et absence ou modérée de la fièvre" crlf

"28. Fièvre modérée " crlf

"29. Erythème noueux compliqué par l'ulcération " crlf

"30. douleurs nerveuse et perte de fonctionnalité récente " crlf

"31. un oedème périphérique et la fièvre (plus de 38°C) " crlf

"32. une Irido-cyclite, orchite et glomérulonéphrite " crlf

"36. Absence ou diminution de la force musculaire " crlf

"37. Faiblesse au niveau des muscles des pieds " crlf

"38. une diminution ou une absence de clignement avec conséquences, un oeil sec sujet à des infections et à des ulcérations, Une faiblesse de la force musculaire des paupières, Ectropion : renversement des paupières en dehors, Entropion : renversement des paupières à l'intérieur. "crlf

"39. Conjonctivite simple " crlf

"40. Conjonctivite purulente " crlf

"41. Kératite " crlf

"42. Iridocyclite " crlf

"43. Entropion - ectropion " crlf

"44. Infimités au niveau des mains" crlf

"45. Infirmités au niveau des pieds" crlf

"46. Ulcères " crlf crlf

" TYPES DE REACTIONS LEPREUSES" crlf crlf

"17. Réaction lépreuse modérée de type I" crlf

"28. Réaction lépreuse modérée de type II" crlf crlf

" CLASSEMENT ET CATEGORIE " crlf crlf

"33. si le patient est classé dans la catégorie des PB et contractant une réaction lépreuse sévère de type I " crlf

"34. si le patient est classé dans la catégorie des MB et contractant une réaction lépreuse sévère de type I " crlf

"35. si le patient est classé dans la catégorie des MB et PB, contractant une réaction lépreuse sévère de type II " crlf crlf)

(assert (fait question))

)

(defrule a (fait "0")=> (assert (fait"0")))

(defrule lecture

(fait question)

=>

(retract *)

(printout t crlf crlf crlf "TAPEZ LE CHIFFRE QUI CORRESPOND A VOTRE SYMPTOME ET VALIDER: ")

(bind ?symptome (readline))

(assert (fait ?symptome))

)

(defrule regle2 

(fait "1")

=>

(printout t crlf " LE PATIENT SOUFFRE DE LA LEPRE: "crlf crlf

" le patient est classé dans la catégorie des malades souffrant de la lèpre paucibacillaire (PB). Voici le traitement : " crlf crlf

" Si le patient est adulte : " crlf

" ********************" crlf crlf

" Dose supervisée mensuelle le 1^er jour : 600 mg de Rifampicine et 100 mg de Dapsone. " crlf

" Dose quotidienne le 2^ème jour à 28^ème jour : 100 mg de Dapsone "crlf

" La durée du traitement est de 6 mois "crlf crlf

" Si le patient est un enfant : "crlf

" *********************** " crlf crlf

" Dose supervisée mensuelle le 1^er jour : "crlf crlf

" 300 mg de Rifampicine et 25 mg de Dapsone pour les enfants âgés de moins de 10 ans. " crlf

" 450 mg de Rifampicine et 50 mg de Dapsone pour les enfants âgés de 10 à 14 ans." crlf

" Dose quotidienne le 2^ème jour à 28^ème jour : "crlf

" 25 mg de Dapsone pour les enfants âgés de moins 10 ans. " crlf

" 50 mg de Dapsone pour les enfants âgés de 10 à 14 ans. " crlf

" La durée de traitement est de 6 mois. " crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle7

(fait "2")

=>

(printout t crlf " LE PATIENT SOUFFRE DE LA LEPRE "crlf crlf

" le patient est classé dans la catégorie des malades souffrant de la lèpre multibacillaire (MB), voici le traitement : "crlf

" Si le patient est un adulte : "crlf crlf

" *********************** " crlf crlf

"Dose supervisée mensuelle le 1^er jour : 600 mg de Rifampicine, 300 mg de Clofazimine et 100 mg de Dapsone. "crlf

"Dose quotidienne le 2^ème jour à 28^ème jour : 100 mg de Dapsone et 50 mg de Clofazimine. "crlf

" La durée du traitement est de 12 mois. "crlf

" Si le patient est un enfant : "crlf crlf

" *********************** " crlf crlf

"Dose supervisée mensuelle le 1^er jour : 600 mg de Rifampicine, 300 mg de Clofazimine et 100 mg de Dapsone. "crlf

"Dose quotidienne le 2^ème jour à 28^ème jour : 100 mg de Dapsone et 50 mg de Clofazimine. "crlf

" La durée du traitement est de 12 mois. "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle8

(fait "3")

=>

(printout t crlf " si le patient présente des Tâches et nodules rougeâtres enflés et douloureux sur le corps alors : "crlf crlf

" le patient a contracté une réaction lépreuse. "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle9

(fait "4")

=>

(printout t crlf " si le patient présente des douleurs et rougeur au niveau des yeux alors :"crlf crlf

" le patient a contracté une réaction lépreuse "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle10

(fait "5")

=>

(printout t crlf " si le patient ressent des nerfs périphériques douloureux et enflés alors :"crlf crlf

" le patient a contracté une réaction lépreuse "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle11

(fait "6")

=>

(printout t crlf " si le patient a des fièvres et malaises alors : "crlf crlf

" le patient a contracté une réaction lépreuse "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle12

(fait "7")

=>

(printout t crlf " si le patient ressent de la chaleur au niveau de la peau alors : "crlf crlf

" le patient a contracté une réaction lépreuse "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle13

(fait "8")

=>

(printout t crlf " si le patient ressent une faiblesse musculaire alors : "crlf crlf

" le patient a contracté une réaction lépreuse "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle14

(fait "9")

=>

(printout t crlf " si le patient présente un symptôme particulier de réaction lépreuse telle qu'une inflammation de la peau et rougeur des tâches alors : "crlf crlf

" le patient contracte une réaction lépreuse de type I "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle15

(fait "10")

=>

(printout t crlf " si le patient présente un symptôme particulier de réaction lépreuse comme apparition d'une fièvre dont la progression est lente alors : "crlf crlf

" le patient contracte une réaction lépreuse de type I "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle16

(fait "11")

=>

(printout t crlf " si le patient présente un symptôme particulier de réaction lépreuse comme une détérioration rapide des fonctions des yeux, des mains et des pieds, alors : "crlf crlf

" le patient contracte une réaction lépreuse de type I "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle17

(fait "12")

=>

(printout t crlf " si le patient présente un symptôme particulier de réaction lépreuse comme une faiblesse dans la fermeture des paupières alors : "crlf crlf

" le patient contracte une réaction lépreuse de type I "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle18

(fait "13")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente une inflammation des lésions de la peau, sans ulcération alors : "crlf crlf

" le patient contracte une réaction lépreuse modérée de type I "crlf

" Douleur nerveuse sans perte fonctionnelle "crlf

" OEdème périphérique pouvant être présent "crlf

" Pas de fièvre "

" Non implication de l'oeil "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle19

(fait "14")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente une douleur nerveuse sans perte fonctionnelle alors : "crlf crlf

" le patient contracte une réaction lépreuse modérée de type I "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle20

(fait "15")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente un oedème périphérique qui peut être présent alors : "crlf crlf

" le patient contracte une réaction lépreuse modérée de type I "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle21

(fait "16")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente une implication de l'oeil c'est-à-dire l'oeil aussi est touché par la réaction lépreuse mais pas de fièvre alors : "crlf crlf

" le patient contracte une réaction lépreuse modérée de type I "crlf clrf)

(reset)

(assert (fait question))

)

(defrule regle22

(fait "17")

=>

(printout t crlf " si le patient contracte une réaction lépreuse modérée de type I, voici le traitement : "crlf crlf

" les anti-inflammatoires non stéroidiens, tel que l'aspirine, à raison de 1gr chaque 8 heures pour un adulte "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle23

(fait "18")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente une Inflammation des lésions de la peau à la face alors : "crlf crlf

" le patient contracte une réaction lépreuse sévère de type I "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle24

(fait "19")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente une Inflammation des lésions de la peau compliquée par l'ulcération alors : "crlf crlf

" le patient contracte une réaction lépreuse sévère de type I."crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle25

(fait "20")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente une douleur nerveuse alors : "crlf crlf

" le patient contracte une réaction lépreuse sévère de type I. "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle26

(fait "21")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente une perte de fonctionnalité récente alors : "crlf crlf

" le patient contracte une réaction lépreuse sévère de type I "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle27

(fait "22")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente un oedème périphérique observé alors : "crlf crlf

" le patient contracte une réaction lépreuse sévère de type I "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle28

(fait "23")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type I mais présente une implication oculaire avec la présence de la fièvre alors : "crlf crlf

" le patient contracte une réaction lépreuse sévère de type I "crlf crlf )

(reset)

(assert (fait question))

)

(defrule regle29

(fait "24")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type II mais présente un Erythème noueux non compliquée alors : "crlf crlf

" le patient contracte une réaction lépreuse modérée de type II "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle30

(fait "25")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type II mais présente des douleurs nerveuses sans perte fonctionnelle alors : "crlf crlf

" le patient contracte une réaction lépreuse modérée de type II "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle31

(fait "26")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type II mais présente un oedème périphérique présente alors : "crlf crlf

" le patient contracte une réaction lépreuse modérée de type II "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle32

(fait "27")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type II mais présente une non implication de l'oeil et absence ou modérée de la fièvre alors : "crlf crlf

" le patient contracte une réaction lépreuse modérée de type II "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle33

(fait "28")

=>

(printout t crlf " si le patient contracte une réaction lépreuse modérée de type II, alors voici le traitement : "crlf crlf

" utiliser un anti-inflammatoire non stéroïdien  : Ibuprofène (plus effective) ou Aspirine "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle34

(fait "29")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type II mais présente des Erythème noueux compliquée par l'ulcération alors : "crlf crlf

" le patient a contracté une réaction lépreuse sévère de type II "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle35

(fait "30")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type II mais présente des douleurs nerveuse et perte de fonctionnalité récente alors : "crlf crlf

" le patient a contracté une réaction lépreuse sévère de type II "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle36

(fait "31")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type II mais présente un oedème périphérique et la fièvre (plus de 38°C) alors : "crlf crlf

" le patient a contracté une réaction lépreuse sévère de type II "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle37

(fait "32")

=>

(printout t crlf " si le patient contracte une réaction lépreuse de type II mais présente une Irido-cyclite, orchite et glomérulonéphrite alors : "crlf crlf

" le patient a contracté une réaction lépreuse sévère de type II "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle38

(fait "33")

=>

(printout t crlf " si le patient est classé dans la catégorie des PB et contractant une réaction lépreuse sévère de type I, alors voici le traitement :   "crlf crlf

" Le traitement standard : "crlf

" Utiliser le médicament PREDNICAP avec le schéma suivant  " crlf crlf

" 1^ère semaine 40 mg Plaquette n°1 : bleu "crlf

" 2^ème semaines 30 mg Plaquette n°2 : rouge "crlf

" 3 ^ème semaines 20 mg Plaquette n°3 : rosé "crlf

" 4 ^ème semaines 15 mg Plaquette n°4 : orange "crlf

" 5 ^ème semaines 10 mg Plaquette n°5 : jaune "crlf

" 6 ^ème semaines 5 mg Plaquette n°6 : blanche " crlf

" Mais si le patient est un enfant âgé de 6 à 12 ans et une femme enceinte classé dans la catégorie des PB toujours et contractant une réaction lépreuse sévère de type I, alors voici le traitement : " crlf

"Utiliser toujours le médicament PREDNICAP avec le schéma suivant : "crlf crlf

" 1^ère semaine 30 mg Plaquette n°2 : rouge "crlf

" 2^ème semaines 20 mg Plaquette n°3 : rosé "crlf

" 3 ^ème semaines 15 mg Plaquette n°4 : orange "crlf

" 4 ^ème semaines 10 mg Plaquette n°5 : jaune "crlf

" 5 ^ème semaines 5 mg Plaquette n°6 : blanche "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle39

(fait "34")

=>

(printout t crlf " si le patient est classé dans la catégorie des MB et contractant une réaction lépreuse sévère de type I, alors voici le traitement : "crlf crlf

" 1^ère semaine 40 mg Plaquette n°1 : bleu "crlf

" 2^ème semaines 30 mg Plaquette n°2 : rouge "crlf

" 3 ^ème semaines 20 mg Plaquette n°3 : rosé "crlf

" 4 ^ème semaines 15 mg Plaquette n°4 : orange "crlf

" 5 ^ème semaines 10 mg Plaquette n°5 : jaune "crlf

" 6 ^ème semaines 5 mg Plaquette n°6 : blanche " crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle40

(fait "35")

=>

(printout t crlf " si le patient est classé dans la catégorie des MB et PB, contractant une réaction lépreuse sévère de type II, alors voici le traitement : "crlf crlf

" le 1^èr médicament utilisé est la Clofazimine à la dose de : "crlf

" - 300 mg par jour pour 1 à 3 mois "crlf

" - 200 mg par jour pour 3 ou 6 mois "crlf

" - 100 mg aussi longtemps que les symptômes persistent "crlf

" Le 2^ème médicament utilisé est le Prednicap à la dose de : "crlf

" Semaine 1 : 40 mg, Plaquette n°1 : bleu "crlf

" Semaine 2 : 30 mg, Plaquette n°2 : rouge "crlf

" Semaine 3 : 20 mg, Plaquette n°3 : rose "crlf

" Semaine 4 : 15 mg, Plaquette n°4 : orange "crlf

" Semaine 5 : 10 mg, Plaquette n°5 : jaune "crlf

" Semaine 6 : 5 mg, Plaquette n°6 : blanche " crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle41

(fait "36")

=>

(printout t crlf "  si le patient ressent une absence ou diminution de la force musculaire, alors : "crlf crlf

" effectuer le test de la force des muscles de la main. " crlf

" voici le test : "crlf crlf

" Demander au patient d'écarter aussi loin que possible le cinquième doigt. Si l'écartement est complet, appliquer une contre pression au niveau de la base de l'auriculaire avec l'index de votre main. Ce test doit être effectué sur les deux mains." crlf

" Prendre la main du malade dans la votre (examinateur). Demander au malade de faire la flexion du coude. Ensuite une hyper-extension du poignet. " crlf

" Demander au malade de redresser le pouce, afin qu'il soit perpendiculaire à la paume de la main, comme si le pouce était dirigé vers son nez. "crlf

" Appliquer un contre-appui à la base du pouce avec son index et demander au malade de résister à cette contre-pression. Ce test doit être effectué sur les deux mains. " crlf

" Serrez le poignet du malade et demander au malade d'effectuer une dorsiflexion de la main fermée. " crlf

" Serrez avec l'autre main exerce une contre-pression sur le dos de la main fermée. " crlf

" Dans le cas de l'atteinte du nerf radial, on peut avoir une main tombante. "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle42

(fait "37")

=>

(printout t crlf " si le patient a une faiblesse au niveau des muscles des pieds alors : "crlf crlf

" - effectuer lui le test de la force des muscles du pied. " crlf

" - voici le test : Saisir la jambe du malade au niveau du tiers inferieur, le malade qui est en position assise doit effectuer une dorsiflexion de son pied. Appliquer avec la main une force progressive et régulière contre cette flexion. "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle43

(fait "38")

=>

(printout t crlf " si le patient présente des symptômes suivant : "crlf crlf

"- une diminution ou une absence de clignement avec conséquences, un oeil sec sujet à des infections et à des ulcérations  "crlf

"- Une faiblesse de la force musculaire des paupières "crlf

"- Ectropion : renversement des paupières en dehors "crlf

"- Entropion : renversement des paupières à l'interieur. "crlf

"Alors le patient souffre de l'infirmité au niveau de l'oeil : voici la solution : "crlf crlf

" Informer le malade sur son état et les conséquences qui en découlent, "crlf

" Garder les yeux propres" crlf

" Proteger contre la poussière, le vent, la sécheresse, le soleil et la chaleur" crlf

" Examiner les yeux une ou deux fois par jour pour détecter les impuretés, en utilisant le miroir ou en demandant à un tiers de le faire pour vous. "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle44

(fait "39")

=>

(printout t crlf " si le patient souffre d'une conjonctive simple, alors : "crlf crlf

" le patient présente une infirmité au niveau de l'oeil, voici le traitement : "crlf crlf

" Application locale d'antiseptiques et d'analgésiques. "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle45

(fait "40")

=>

(printout t crlf " si le patient souffre d'une conjonctive purulente ,alors : "crlf crlf

" le patient présente une infirmité au niveau de l'oeil, voici le traitement : " crlf

" - tétracycline ou chloramphénicol, " crlf

" - Pommade : 3 x 1/jour, " crlf

" - Goutte : 3 x 1/jour, " crlf

" - En cas de forte irritation : bandage en cas de photophobie : lunettes foncées " crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle46

(fait "41")

=>

(printout t crlf " si le patient souffre d'une keralite , alors  : "crlf crlf

" le patient présente une infirmité au niveau de l'oeil, voici le traitement : "crlf

" - Atropine : 1% gouttes, 3 x 1/jour, "crlf

" - Antibiotique local (tétracycline ou chloramphénicol), "crlf

" - Pommade : 3 x /jour, "crlf

" - Goutte : 3 x /jour "crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle47

(fait "42")

=>

(printout t crlf " si le patient souffre d'une Iridocyclite ,alors  : "crlf crlf

" le patient présente une infirmité au niveau de l'oeil, voici le traitement : "crlf crlf

" - Atropine : 1% gouttes : 3 x 1/jour, "crlf

" - Corticostéroides (gouttes ou pommade):2 x 1/jour, "crlf

" - Bandage" crlf crlf)

(assert (fait question))

)

(defrule regle48

(fait "43")

=>

(printout t crlf " si le patient souffre d'une Entropion - ectropion, alors : "crlf crlf

" le patient présente une infirmité au niveau de l'oeil, voici le traitement : appliquer les mésures thérapeutiques suivantes : "crlf

" - Garder les yeux propres; "crlf

" - Proteger contre la poussière, le vent, la secheresse, le soleil et la chaleur; "crlf

" - Couvrir les yeux la nuit; "crlf

" - Examiner les yeux une ou deux fois par jour pour detecter les impuretés, en utilisant le miroir ou en demandant à un tiers de le faire pour vous; "crlf

" - Débarrasser l'oeil de tout corps étranger avec un bout de tissu propre. " crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle49

(fait "44")

=>

(printout t crlf " si le malade présente des infirmités au niveau des mains présentant les symptômes suivants : "crlf crlf

" - la perte de la sensibilté de la paume de la main et des doigts; "crlf

" - une diminution de la force du pouce, de l'auriculaire et du poignet. "crlf

"Alors voici le traitement: "crlf crlf

" Prévention : "crlf crlf

"Informer le malade de son état et des conséquences qui découlent" crlf

"Continuer la PCT" crlf

"Eviter le contact direct de la main avec toute source de chaleur (marmitte, eau chaude, cigarette) "crlf

"Eviter tous les objets rugueux et tranchants" crlf

"Eviter les longues et dures activités qui pourront donner lieu à des ampoules aux mains (couper du bois, piler le maïs, labourer la terre, etc....). "crlf crlf

"Traitement : "crlf crlf

"Porter les gants lors de la cuisson" crlf

"Utiliser un bâton pour attiser le feu" crlf

"Changer d'activités de temps en temps pendant la journée" crlf

"Arrêter le travail de temps en temps pour mettre les mains repos "crlf

"Examiner les mains le matin et le soir" crlf

"Adapter les outils de travail: " crlf

" Metalasser l'outil de travail tel : la houe, la machette, la hache, etc. ...) " crlf

"Alterner les travaux " crlf

"Se reposer souvent" crlf

" Exercices : actifs et passifs" crlf crlf

"Etendre passivement et activement les doigts" crlf

"Exercices passifs pour les griffes souples : consiste au redressement des doigts qui ont tendance à se courber (eviter de forcer les doigts raides ). " crlf

" Soins : mains insensibles " crlf crlf

"Tremper les mains à l'eau savonneuse chaque matin et soir" crlf

"Poncer à la pierre ponce" crlf

"Huiler et masser" crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle50

(fait "45")

=>

(printout t crlf " si le malade présente des infirmités au niveau des pieds présentant les symptômes suivants : "crlf crlf

" - perte de la sensibilté au niveau de la plante des pieds et des orteils; "crlf

" - diminution de la force des muscles releveurs des pieds et des orteils. "crlf

" Alors afficher le traitement: "crlf crlf

"Prévention : "crlf crlf

"Informer le malade de son état et des conséquences qui découlent" crlf

"Continuer la PCT "crlf

"Eviter de longues distances à pied" crlf

"Eviter de marcher à grands pas" crlf

"Eviter de marcher à pieds nus" crlf

"Eviter tout contact du pied avec une source de chaleur" crlf

"Eviter les chaussures serrées" crlf

"Eviter toute blessure sur pieds insensibles " crlf

"Traitement : "crlf crlf

"Porter des chaussures protectrices (sandales en caoutchouc micro cellulaire) " crlf

"Marcher à petits pas" crlf

"Bander les pieds lorsqu'on est à côté du feu" crlf

"Reposer souvent les pieds pendant la marche" crlf

"Examiner régulièrement les pieds" crlf

"Examiner les pieds le matin et le soir" crlf

"Exercices: actifs et passifs (croquis) " crlf crlf

"Etendre passivement les orteils " crlf

"Etirer le tendon d'Achille en position assise" crlf

"Etirer le tendon d'Achille en position debout" crlf

"Soins : " crlf crlf

"Port de chaussures protectrices" crlf

"Tremper les pieds dans l'eau chaque matin et soir" crlf

"Poncer" crlf

"Huiler et masser" crlf crlf)

(reset)

(assert (fait question))

)

(defrule regle51

(fait "46")

=>

(printout t crlf " si le patient souffre d'un ulcère présentant des symptômes suivants: "crlf crlf

"Les crevasses : à partir de la peau sèche (suite à l'atteinte des fibres autonomes) " crlf

"Les ampoules : par le contact avec la chaleur/brûlure, par la friction répétée" crlf

"Les blessures : par accident/traumatisme" crlf

"Pression répétée" crlf

"Perte de sensibilité" crlf

"Perte de la couche protectrice (atrophie des muscules ) " crlf

"Présence d'un os proéminant... " crlf

"Alors afficher le traitement : il est médical et chirurgical: crlf crlf

"Il est recommandé des exercices actifs aux malades avec contracture débutante; "crlf

"Les mains en griffe mobile peuvent être améliorées par des techniques chirurgicales de transfert de tendons, ou de greffe, suivies d'une physiothérapie soutenue pendant plusieurs mois. " crlf crlf)

(reset)

(assert (fait question))

)

IV.3.3 Resultat

Ci-dessous sont présentées quelques captures d'écrans représentant les résultats de l'application produite :

a. La première page présente la première interface de notre système expert:

b. L'affichage de la liste des différents symptômes de notre système expert :

c. L'affichage de la liste des symptômes et des réactions lépreuses :

d. L'affichage des différents symptômes de la lèpre et leurs traitements :

e. L'affichage des différents symptômes et leurs traitements :

f. L'affichage des différents symtômes et leurs traitements :

IV.4 CONCLUSION

Dans ce chapitre nous avons présenté l'objectif, le fondement et l'implémentation de notres système expert par CLIPS.

Nous avons clôturé ce chapitre par le code source et les différentes captures d'écran de notre logiciel représentant les résultats d'une application produite.

CONCLUSION GENERALE

Nous voici au terme de ce travail consacré à la réalisation d'un système expert pour le diagnostic et la thérapeutique de la maladie de la lèpre.

En effet, le système expert que nous avons réalisé grâce au langage de programmation appelé clips est capable de répondre au besoin d'un utilisateur ou spécialiste en répondant aux différents problèmes.

Au cours de cette étude , nous avons subdivisé notre travail en quatre chapitres dont le premier présente la maladie de la lèpre en partant de son origine jusqu' aux différents types de lèpre et le schema de son traitement.

Dans le deuxième chapitre nous avons parlé de l'intelligence artificielle en commençant par son origine jusqu'au développement technologique.

Dans le troixième chaiptre nous avons parlé du concept de base d'un système expert qui est une application de l'intelligence artificielle.

Dans le quatrième chapitre, nous avons conçu et implémenté le système expert pour le diagnostic et la therapeutique de la maladie de la lèpre.

Ce travail est une oeuvre humain qui n'est pas parfaite.Toutes vos remarques et suggestions sont les bienvenues pour son amélioration.

REFERENCES BIBLIOGRAPHIQUES

I. Ouvrages

1. P.N.E.L, Guide manuel de la lèpre , 1^ère Editions. Decembre 2009.

2. WALLACH D., BACH M.A., « Acquisitions récentes sur la maladie de Hansen », Ann. Dermat. Vénéréol., 1988, p73-76.

3. DAHW, la lèpre chez l'africain, Würzburg 1986, p100-150.

4. ILEP, Guide d'apprentissage n°1, comment diagnostiquer et traiter la lèpre, Septembre 2002, p40-45.

5. OMS, Guide pour l'élimination de la lèpre, Juillet 2000, p34-80.

6. ILEP, comment reconnaitre et traiter les réactions lépreuses, Aout 2008, p58-98.

7. PNEL, Guide de Prévention des Infirmités et Réadaptation Physique des Lépreux, Juin 2006, p60-110.

8. OMS, Série de rapports techniques (Epidémiologie de la lèpre et lutte antilépreuse : rapport d'un groupe d'étude de l'OMS), n°716, Novembre 1985,p70-95.

9. LECHAT M.F. et Al. , OMSLEP, Système d'enregistrement et de notification des malades de la lèpre, 3^ème éditions, Bruxelles, Université Catholique de Louvain, Ecole de Santé Publique, 1987, p80-85.

10. OMS, « Progrès de l'élimination de la lèpre en tant que problème de santé publique, Relevé épidémiologique hebdomadaire, 2010, p145-168.

11. P.N.E.L, Rapport annuel 2009

12. J.PITRAT, La naissance de l'Intelligence Artificielle, La Recherche n°70, Octobre 1985,p50-70.

13. CHALLONER Jack, L'Intelligence artificielle : Un guide d'initiation au futur de l'informatique et de la robotique, Pearson Education, 2003,p80-81.

14. LAURIERE Jean-Louis, Intelligence Artificielle, Editions Eyrolles,1986,p60-65.

15. P.H.WINSTON, Intelligence artificielle, Interéditions, 1988, p22-23.

16. N. NILSSON, Principes d'Intelligence artificielle, Editions Cépadues, 1988,p4-10.

17. KUTANGILA MAYOYA David, intelligence artificielle, Notes de cours, inédit, 2^ème Génie Informatique Appliquée, ISTA, Kinshasa, 2008-2009, p5-10.

18. H.FARRENY, M.GHALLAB, Eléments d'intelligence artificielle, Editions Hermès 1987,p30.

19. CARDON Alain, modéliser et concevoir une machine pensante, approche de la conscience artificielle, Vuibert, 2004, p40-45.

20. R.SHINGHAL, Formal concepts in artificial intelligence, Chapman & Hall, 1991, p56.

21. CARDON Alain. op.cit,p60.

22. Sallantin, Les agents intelligents, Editions Hermès, 2000,p66-80.

23. P. Jackson. Introduction to Expert Systems. Addition-wesley,1986,p50

24. H. Farreny : les SE, principes et exemples(Cepadues, 1985).

25. Alain BONNET, Jean-Paul HATON, Jean-Michel TRUONG, système experts: vers la maîtrise technique, InterEditions,1986,p12-16.

26. R. Forsyth. Expert Systems : Principles and Case Studies. Chapman and Hall,1984,p10-16.

27. Michel le SEAC'H, développer un système expert, chez Editests, 1989,p50-52.

28. PHIL. REITZ, les systèmes experts, cours Dea Ing IA, département ARC, LIRMM, 1993, p10-15.

II. Sites internet

a. http://www.agentware.com

b. www.igm_univ-mlv.fr

c. www.igm_univ-mlv.fr/Fonctionnement_SE.html

TABLE DES MATIERES