医疗诊断专家系统实验报告

《医疗诊断专家系统实验报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、鸡病诊断专家系统实验报告一、实验目的1.加深理解专家系统的结构原理与实际应用。2.初步常握知识获取的基本方法。3.掌握产生式规则知识表示方法及其编程实现方法。4.初步掌握知识库的组建方法。5.加深理解推理机的算法原理并初步学握其编程实现方法。—X实验内容运用所学知识，设计并编程实现一个小型专家系统。三、基本要求1.设计一个简单的医疗诊断专家系统。2.使用Prolog语言编程实现该系统。3.给出模拟运行结果。四、总体设计1•系统名称基于VisualProlog的鸡疾病诊断专家系统2.系统功能咨询功能根据用户的需要，能够为用户提供有关饲养鸡疾病方面的知识，解答用

2、户提出的问题。如鸡呼吸声咅方面、消化系统、头颈症状等。诊断功能该功能模块由两部分构成，一种是症状诊断功能，根据鸡得病后的症状，由系统识别后给出结果；另一种为形态诊断.根据鸡的动作识别并给出诊断结果。在诊断过程中抓主要因素，一般地.将呼吸系统、消化系统、头颈症状、神经运动系统、皮肤羽毛症状、冠髻症状、眼症状及解剖喉内脏的症状，在木系统中选择了三个大的方面，消化系统，呼吸系统和头颈方面。通过用户提供症状，可以大致推断出疾病。3•系统开发流程图专家系统的知识开发首先需要进行知识获取、组织、表示，然后建立数据库、知识库、模型库，在此基础上通过一定的推理机进行推理，得

3、出结论，经过专家测试后进行完善，最后得到推广应用。以下就是本专家系统开发的技术流程，如图1所示图1系统开发流程图4.鸡疾病诊断专家系统知识库的设计建立知识库的前捉，要整理好规则。如呆想精确的诊断岀疾病，必须要捉供更多的信息，换句话说就是规则要写的更复杂些。鸡疾病一般分头颈症状，冠髻症状，呼吸系统症状，消化系统症状，神经运动系统，眼症状，皮肤羽毛症状七大症状。如果通过七大症状诊断疾病，可以说知识库的构建相当困难。我选择了三大症状，分别为：消化系统症状，头颈症状，呼吸系统症状。例如规则如下：chicken(ai):-respiratory(abnormal_e)

4、,head_neck(abnormal_2),digestion(normal).在上例屮，如果呼吸系统出现症状e,头颈出现症状2,消化系统正常，就可诊断岀事加。那么下面就是对每一个症状具体分类，例如对呼吸系统分为：喘气,张口呼吸，尖叫，罗音等等。用规则表示如下：respiratory(abnormal_a):-breathe(pant).respiratory(abnormal_b):-breathe(opened_mouth).respiratory(abnormal_c):-breathe(screams)-respiratory(abnormal_d

5、):-breathe(rale).其他的方面也同上。五、程序调试及结果1•推理机的使用当程序启动后，其情形如下图2所示。图2编辑器窗口当编辑器窗口激活吋，选择Engine->Reconsult,将会把文件装入到推理机。在对话框中，还将得到这样一个消息：Reconsultedfrom:....pieExeFILE4.PRO无论用编辑器如何装入，其内容都不会保存到文件zm。如果想要保存内容,必须使用菜单命令File->Saveo菜单File->Consult不管文件是否因编辑而打开，都会装载磁盘文件中的内容。一旦查阅过定理，就可以回答各种口标。在对话框窗口

6、的空白行上，键入一个口标，不带前缀“?•”。例如，键入如图3所示的杳询代码。图3键入目标2.调试结果本系统提供三个大方面的疾病症状，包括：呼吸系统，消化系统，头颈症状。呼吸系统又包括：喘气，张口呼吸，尖叫，罗音，咳嗽，流鼻涕；消化系统是指通过观察粪便颜色实现的；头颈主要是观察鸡的动作是否止常，包扌舌：头垂地，头发黑，摇头等症状。木系统大约可诊断出20多种病，根据用户提供的不同症状，在VisualProlog环境下输入，推理机根据知识库里面的规则和事实推出结果。例如：当一只鸡出现（黑头头，淡黄色稀粪）这些症状时，诊断是什么疾病？由下图4可知，鸡疾病诊断专家系统

7、初步诊断可能为滴虫组织病，症状是有用户提供的，例如这个例子症状是头发黑和淡黃色粪便，在推理机下执行即可。348:12InsertIndentchicken(histomoniasis):一respiratory(normal)zhead_neck(atonormal_l)rdigestion(atonormalS)•chicken(histomoniasis):-respiratory(normal)*head_neck(abnorma1_4；i,digestion(normal)•4toreathe(rrnormalrr)•head(FrblackFr)•

8、feces(Frflaxen_looserr)•al