专家系统实验指导书题库

1、专家系统实验课程编号适应对象智能科学与技术英文名称 Expert System指导教师：肖晓明、学时与学分教学内容教学 时数地点实验一专家系统与CLIPS2民主楼126实验二麦粒肿诊断专家系统开发2民主楼126实验三CLIPS代码分析2升华后楼205总学时：32;实验学时:6。、实验课的任务、性质与目的本实验课程是控制专业学生的一门专业课程，通过CLIPS软件环境提供的大量开发性、验证性和设计性实验，帮助学生更好地熟悉和掌握专家系统的基本原理和方法；通过实验提高学生编写实验报告、总结实验结果的能力；使学生对专家系统的相关理论有更深刻的认识。、实验方式与基本要求,通过实践了解专本实验目的是使学生

2、进一步加深对专家系统的基本原理和方法的认识 家系统的实现手段。实验方式：1. 由指导教师讲解实验的基本要求，提示算法的基本思想；2. 实验一人一组，独立完成实验的演示、验证和开发设计；3. 学生在完成预习报告后才能进入实验室进行实验。四、考核方式与评分办法1. 学生每次做完实验要进行登记；2. 实验结束后学生应在规定时间内提交实验报告及实验结果分析等；3. 指导教师对每份实验报告进行批改、评分并将成绩登录在册。不符合实验要求的重 做;,作为平时成4. 该课程所有实验结束后 ,指导教师根据学生的实验及报告给出考核成绩 绩的重要组成部分 （占平时成绩的 60%）。实验 1 专家系统与 CLIPS实

3、验内容提要：专家系统不仅是具有特定的结构， 同时， 它还有多种知识表示形式， 及其相 应的知识推理方法。因此，直接采用程序设计语言实现专家系统是比较困难的， 而采用适当的专家系统开发工具则可以大大降低系统开发的难度。 因此，本章结 合麦粒肿系统专断专家系统开发的需要，首先安排了对专家系统及其开发工具 CLIPS 基本理论知识，以及 CLIPS 基本理论知识，以及 CLIPS 基本使用方法的 概要介绍，目的是为第 6 章“麦粒肿诊断专家系统开发 ”做好准备。实验重点：专家系统的一般结构 产生式规则的表示及其正向推理 专家系统开发工具的结构和特点 专家系统开发工具 CLIPS 的基本语法 专家系统

4、开发工具 CLIPS 的基本使用实验目的CLIPS 的设计目标与特点CLIPS 的基本语法CLIPS 的基本使用掌握专家系统的一般结构 掌握产生式规则的表示及其正向推理 掌握专家系统开发工具的结构和特点 了解专家系统开发工具 掌握专家系统开发工具 掌握专家系统开发工具实验内容及要求CLIPS 的设计目标与特点CLIPS 的基本语法CLIPS 的基本使用学习专家系统的一般结构 学习产生式规则的表示及其正向推理 学习专家系统开发工具的结构和特点 学习专家系统开发工具 学习专家系统开发工具 学习专家系统开发工具实验步骤本实验包括以下六个具体步骤， 分别是： 学习专家系统的一般结构、 学习产生式规则的

5、表示及其正向推理、 学习专家系统开发工具的结构和特点、 学习专家 系统开发工具 CLIPS 的设计目标与特点、学习专家系统开发工具 CLIPS 的基本 语法，以及学习专家系统开发工具 CLIPS 的基本使用。1 学习专家系统的一般结构：专家系统（ES, Expert System）是利用大量专家知识，运用只是推理方法 解决特定领域中实际问题的计算机程序系统。 专家系统由产生式规则专家系统发 展而来，主要包括知识库、推理机、综合数据库、知识获取程序、人机接口，以 及解释程序六大部分。其中，知识库、推理机、综合数据库，以及人际接口是目 前大多数专家系统的主要内容， 而知识获取程序和解释则是所有专家

6、系统都期望 具有的两个模块。 在专家系统的一般结构中， 知识库用于存放各领域专家提供的 经验性知识：综合数据库用于存放关于问题求解的初始数据、中间结果、假设、 目标，以及最终求解结果（事实） ；推理机在一定的控制策略下针对综合数据库 中的当前信息， 识别和选取知识库中对当前问题求解有用的知识进行推理； 知识 获取程序完成把专家只是按一定表示形式输入到知识库中， 部分代替知识工程师 进行知识的自动获取， 实现专家系统的字学习， 不断完善知识库； 解释程序可以 根据用户提问， 对系统给出的结论、 求解过程，以及系统当前求解状态提供说明， 便于用户理解系统的问题求解， 增加用户对系统求解结果的信任程

7、度， 在知识库 的完善过程中， 便于专家或知识工程师发现和定位知识库中的错误， 便于各领域 的专业人员或初学者能够从问题的求解过程中得到直观学习； 人机接口将专家爱 或用户的输入信息翻译为系统可接受的内部形式， 同时，也把系统向专家或用户 输出的信息转化成人类易于理解的外部形式。2 学习产生式规则的表示及其正向推理 目前，用于专家系统的知识表示形式主要有谓词逻辑、产生式规则、语义网 络、框架，以及剧本。其中，采用产生式规则知识表示形式建立的专家系统最为 流行和广泛，这主要因为：首先，产生式规则知识表示容易被人理解；其次，它 基于演译推理，保证了推理结果，的准确性；最后，大量产生式规则可以连接成

8、 多棵推理树，树的宽度反映了实际问题的范围，树的深度反映了问题的难度。如果把规则库 （知识库） 中所包含 按规则的前提和结论展开形成树的形 它把规则库中的所有规则都连接了起产生式规则一般表示为：如果 A 成立，则 B 成立，简记为 A-B, 其中 A 是 前提， B 是结论。一般来说，不同的产生式规则之间都是有联系的，即谋条产生 式规则的前提实力外一条产生式规则的结论。 的总目标 （某些规则的结论） 作为根节点， 式，则形成的树就被称为推理树或知识树， 来。产生式规则的推理分为正向推理和逆向推理两种， 这里主要介绍正向推理。 产生式规则的正向推理过程是： 逐条搜索规则库， 对每一条规则的的前提

9、条件检 查实事库(综合数据库) 中是否存在。 若再事实库中前提条件的个子项不是全部 存在，则放弃该条规则；若在事实库总全部存在，则实行该规则，把结论放入事 实库中。反复循环执行上述过过程，直至推出目标，并存入事实库中为止。3 学习专家系统开发工具的结构和特点 开发专家系统主要有三条途径：直接使用程序设计语言，如LISP 或PROLOG等；使用知识获取工具，如知识获取系统(KAS , Knowledge Acquisition System)到等；利用专家系统开发工具，如 CLIPS或M.1等。专家系统开发工具一般包括开发环境和运行环境两部分。其中，开发环境 有知识编辑、编译模块，知识库查询、维

10、护模块，数据库查询、维护模块，知识 库，以及实事库组成；运行环境有推理机，解释机制，人机交互，知识库，以及 实事库组成。 知识库和实时库即被包括在开发环境中， 同时也被包括在运行环境 中，它们都有一定的格式要求， 知识和事实由开发环境输入， 提供给运行环境使 用。从专家系统开发工具的结构可以看出，专家系统开发工具具有一下特点： 首先，工具有开发环境和运行环境组成，开发环境用于建立知识库、实事库、并 修改、查询知识库和事实库； 对指定知识表示形式的推理机和解释机制预先已经 做好；运行环境的目的在于支持实际系统的运行。 其次，工具提供了一套用于开 发专家系统的语言， 包括知识标示语言和工具操作语言

11、。 其中， 只是表示语言用 于完成外部知识到内部知识的编译； 利用工具操作语言可以使用工具中的开发环 境，实行运行环境中的功能。4 学习专家系统开发工具 CLIPS 的设记目标与特色CL IPS (C Lan guage In tegrated P roduction System 是由美国国家航天局约 翰逊空间中心人工智能部在 1985 年推出的专家系统开发工具，其设计目标和特 色包括：可用于管理、工业、商业、文教等各种领域的专家系统开发，具有广泛的通 用性；适用于各种型号的计算机，从 IBM PC 及其兼容机，到 VAX ，HP，SUNMACINTOSH，直至U CRAY，都可以运行CLI

12、PS，具有对机型的广泛适 用性与已有的普通软件系统易于集成，同 Fortran、ADA 等高级程序设计语言均 有接口，为用户提供了方便用 C 语言写成，运行速度快具有不确定性下进行推理的能力正是由于上述设计目标与特色， 加之美国国家航天局对 CLIPS 采取公开化， 以及免费使用的政策， CLIPS 在众多的专家系统开发工具中深受欢迎， CLIPS 研 制小组也因而获得美国航天科技奖CLIPS 与比它早的专家爱系统开发工具 ART、OPSS 有很密切的关系，继 承与吸收了 ART、OPSS的长处与优点。但是由于CLIPS最求的简单实用，以极 高度的可移植性，因此，只提供了正向推理能力、 CLI

13、PS 的发展历史证明，这并 不影响他成为一个有效的专家系统开发工具。5 学习专家系统开发工具 CLIPS 的基本语法 为了支持麦粒肿诊断专家系统 CLIPS 程序的编写，以下将分别从符号体系、 语言符号、事实、规则、注释、 printout 命令、变量、字符通配符、特权、 read 函数，以及其他常用命令等 11 各方面，对 CLIPS 的基本语法进行概要介绍。符号体系CLIPS 的符号体系包括以下三种类型。 需要完全照样输入计算机的字和字符，即不被、 、 所括住的所有内容，比如（example）。方括号表示其中的内容可有可无，比如在（example1）中，方括号中的1是任选的，即输入（exa

14、m卩4）和（example 1）都是允许 的。尖括号表式其中的字所表示的意义要用一个相应的任意值代替，比如（exam pie vin teger）表示在exa mple后面一定要跟一个任意整数，即应输入（example 1）、（example 5） 或者（example -20） 等。对于用双尖括号括住的描述，表示任意多个（包括 0个）与其中的自相应的 值，比如,见到这一描述，可以输入 1，12，12 3,14 8,或-15，也可以不输入任何内容。 对于用三尖括号括住的描述， 表示任意多个（但不包括0个）与其中的字相应的值，比如,相当于 。用于大括号括住的描述表示选用其中的任意一项（必须一项，

15、但也仅一项）输入，比如all , none, some，可以输入all，或者输入none,或者输入someo语言符号在 CLIPS 主要的语言符号单位是“字段”，也称为“域”（ field ）。字段包 括以下三种类型。字（word）。字以可以打印的ASCII字符开始，后随零个或多个字符。但是 “”、“ |”、“ &”、“ $”、“ ?”、“ +”、“ -”、“（）”字符及其 组合不能作为字的开始字符。 另外，字中间也不能包含“ )。比如表示发生火警的事实(emerge ncy fire) 就可以使用命令(assert (emerge ncy fire)力入至U事实表中。 虽然CLIPS不接受重

16、复输入的事实，但是可以使用一个assert命令同时输入多个 事实。比如，可以使用命令(assert (emergency fire) (emergency flood) 将 两个事实(emergency fire) (emergency flood)同时加入事实表中。撤销事实表中已经窜在的事实使用 retract 命令，其语法格式为： (retract vvvfact-i ndex)。其中，fact-i ndex称为事实索引号，是 CL IPS赋予事实的标 识，用于区分事实表众不同的事实。使用一个retract命令可以一次同时撤销一个 或多个事实。比如，使用命令( retract 1)可以撤销

17、事实表中事实索引号为 1 的一个事实，而使用命令( retract 1 2 3)则可以同时撤销事实表中事实索引号 为1、2、3的三个事实。使用facts命令可以显示当前事实表中存在的所有事实.规则规则用以表示推理和行为的过程， 它描述了题的状态转移、 性质变化等内容。在CLIPS中，定义规则使用的defrule命令，其语法格式为：(defrule optional comment=) 其中，命令的第一行是规则标题，由三部分组成，分别是：关键字 defrule； 规则明rule-name,可以为任意有效地 CLIPS字，但必须唯一，如果新输入的规 则明与已经存在的规则明相同，则已经存在的规则将被

18、新规则所取代；注解 optional comment，可有可无u，但必须是一双引号开始和结尾的字串。命令的 第二行是零个或多个模式Pattern,也就是规则的左端条件部分。每个模式由一个 或多个字段组成。对于无模式的情况，系统将自动加入一个模式( initial-fact)。 命令的第三行是一个箭头， 由一个等号和一个大于号组成。 命令的第四行是规则 的右端动作部分， 它给出了动作表， 这部分也可以为空。 一下是一个使用 defrule 命令，定义一个名为fire-emergency的规则的例子，其含义是“如果发生的紧急 情况是火灾，那么就启动喷淋装置”(defrule fire-emerge

19、ncy An example rule(emergency fire)=(assert (action activate-sprinkler-system)使用rules命令或pprule命令可以显示当前规则库中的规则。其中，使用rules 命令将显示当前规则库总存在的所有规则的名称；而使用pprule命令则可以显示某个规则的文本内容注释为了方便对程序逻辑的理解， 增强代码的可读性， 应该在代码中加入必要的注释。 CLIPS 中，注释以“；”开头，一会可换行结束，比如一下代码：； *； * 题目：火灾报警 *； * 日期：2006 年 7 月 * *实验二 麦粒肿诊断专家系统开发内容提要：学习

20、专家系统基本理论知识及其开发工具最终目的是为了进行实际系统的 开发。因此， 在上一章内容的基础上， 本章首先安排了对专家系统开发过程的概 要介绍。然后，结合相应的基本理论知识， 详细介绍了麦粒肿诊断推理树的绘制、 麦粒肿诊断专家系统 CLIPS 程序的编写，以及以批处理方式运行麦粒肿诊断专 家系统的具体过程。本章重点专家系统的开发过程。绘制麦粒肿诊断推理树。编写麦粒肿诊断专家系统 CLIPS 程序。 以批处理方式运行麦粒肿诊断专家系统。实验目的掌握专家系统的开发过程。 掌握根据产生式规则绘制相应推理树的方法。 掌握使用记事本编写 CLIPS 应用程序的方法。 掌握以批处理方式运行 CLIPS

21、应用程序的方法。实验内容与要求 学习专家系统的开发过程。 根据以下给出的麦粒肿诊断产生式规则绘制相应的麦粒肿诊断推理树。毛囊皮根微红肿T轻型。鼻塞流涕-外感风热。舌苔薄黄A胃纳差-胃肠积热。眼睑局部明显红肿 T重型。眼睑局部红肿A顶尖有脓点 -重型。脓点破溃-晚期。轻型A外感风热-轻风热型。重型A外感风热重风热型。重型A胃肠积热-重积热型。R1R2R3R4R5R6R7R8R9R10:轻型-散瘌法。R11:晚期-外敷药物。R12:轻风热型-散癞加罐。R13:重风热型7挑瘌加罐。R14:重积热型7放血法。为了后续编码的方便，在推理树的绘制过程中，首先，应以汉语拼音首 字母的形式为每一条产生式规则的

22、前提和结论进行编码，如 “散癞法 ”可以编 码为“SLF；其次，对于单前提的规则，在相应的推理树弧上应标出其相应 的规则编号，而对于具有两个或多个前提， 且前提间具有 “并且 ”关系的规则， 则应在其相应的推理树弧之间使用带有规则编号的曲线来表示。1) 参考绘制的推理树，使用记事本编写麦粒肿诊断专家系统 CLIPS 程序。 系统运行时，首先对所有的症状进行提问，收集 “yes或 “nO”回答；然后，根据提出的产生式推理规则进行正向推理， 如果能够推出治疗方法， 则显示治疗 方法，并提示是继续开始新一轮的推理还是退出程序；如果不能推出治疗方法， 则直接提示是继续开始新一轮的推理还是推出程序。2)

23、 以批处理方式运行麦粒肿诊断专家系统。3) 编写麦粒肿诊断专家系统开发实验报告书。 具体格式参考附录 A 。实验步骤本实验包括以下五个具体步骤， 分别是: 学习专家系统的开发过程、 绘制麦 粒肿推理树、编写麦粒肿诊断专家系统 CLIPS 程序、以批处理方式运行麦粒肿 诊断专家系统，以及编写麦粒肿诊断专家系统开发实验报告。1 学习专家系统的开发过程专家系统一般是由专家和知识工程师共同配合研制而成的。 专家可以不懂计 算机，但他一定是某个实际领域经验丰富的人， 而知识工程师则是既懂计算机和 专家系统原理， 同时又具有编程专家系统能力的人。 专家系统的开发一般遵循如 图 2-1 所示的过程:首先，在

24、知识工程师的引导和启发下，专家提供解决实际领 域中问题的基本知识和经验； 其次，知识工程师根据对专家知识及专家系统的理 解设计知识库、 推理机等模块； 最后，知识工程师利用知识工程语言编制知识库、 推理机等模块程序，并将模块程序集成为专家系统。专引导和启发家知识和经验知识工程师设计知识库设计推理机等模块t建立专*家系统同2-1专家系统开发过程2绘制麦粒肿诊断推理树根据上述的专家系统开发过程，由于进行麦粒肿诊断的产生式规则已经 在实验要求2）中给出，而根据第5章实验4对专家系统开发工具的结构和特 点，以及CLIPS的介绍可知，针对产生式规则的知识表示，相应的正向推理 机和解释机制也已经在 CLI

25、PS中预先做好。因此，利用 CLIPS开发麦粒肿 诊断专家系统的主要工作就只剩下编写代码， 将实验要求2）中给出的产生式 规则放入规则库（知识库），最终建立麦粒肿诊断专家系统。为了方便对麦 粒肿诊断专家系统的编码，建议首先根据已知的产生式规则绘制出相应的推 理树。如果把规则库（知识库）中所包含的总目标（某些规则的推论）作为根 节点，按规则的前提和结论展开形成树的形式，这样形成的树就被称为推理 树或知识树，它把规则库中的所有规则都连接起来。根据上述对推理树的定义，以及在实验要求 2）中给出的14条麦粒肿诊 断产生式规则，首先，以治疗麦粒肿的五种具体方法（散瘌法、散癞加罐、 挑瘌加罐、放血法和外敷

26、药物）作为根节点。然后，将所有规则的其他前提 和结论作为其他节点，规则作为连接结点间的弧，按规则的前提和结论展开， 就可以形成如图2-2所示的麦粒肿诊断推断树。规则的前提/结论编码规则的前提/结论编码毛囊皮根微红肿MNP GWHZ鼻塞流涕BSLT舌苔薄黄STBH胃纳差WNCH眼见局部明 显红肿YJJBMXHZ眼见局部红 肿YJJBHZ顶尖有脓点DJYND脓点破溃NDPK轻型QX外感风热WGFR胃肠积热WCJR重型ZX晚期WQ轻风热性QFRX重风热型ZFRX重积热型ZJRX散瘌法SLF外敷药物WFYW散癞加罐SLJC挑瘌加罐TLJG放血法FXF需要说明的是：在图首先，以汉语拼音首字母的形式为每一

27、条产生式规则的前提和结论进行了编 码，规则的前提和结论于编码的对应关系如表2-1所示。表2-1规则的前提和结论与编码的对应关系麦粒肿诊断推理树图2-22-2的推理树绘制过程中，为了后续编码的方便,其次，对于但前提的规则，在相应的推理树弧上都标出了其相应的规则 编号，比如，在“SLF”和“QX之间的弧上标出了 “R10；而对于具有两个前提， 且前提间具有 并且”关系的规则，则在其相应的推理树弧之间使用带有规则编号 的曲线来表示，比如，在分别连接“QFRX与“QX,以及“QFRX与“WGFR的两条弧之间使用了标有“ R7勺曲线。3编写麦粒肿诊断专家系统CLIPS程序由于CLIPS的当前版本还不能正

28、确地处理中文，而在编写代码的过程中， 使用中文注释可以有效地提高代码的可读性，因此，本节在编写麦粒肿诊断专家系统代码时没有直接使用 CLIPS提供的编辑环境，而是借助了 windows操作系统自带的记事本（notpad）应用程序，使用记事本编写麦粒肿诊断专家系统代码 的具体步骤如下。单击操作系统桌面左下方的 开始”一所有程序”一附件”一记事本”选项， 文件”一保存”选项，在弹出的另“ mlzzdzjxt.clP，更换存储路径为 所有文件”，然后，单击 保存”按钮,启动记事本程序。单击记事本程序菜单栏上的存为”对话框文件名右侧的下拉框中输入“C：zjxt ,修改 保存类型”下拉框为保存文件。*?

29、w 麦粒肿诊断专家系统*(exit) *;rule init:;初始化程序;rule ckM NP GWHZ:;进行程序描述，提问毛囊皮根微红肿 *(defrule in it(declare (salie nee 9980)?x (retract ?x)(assert (start)*;rule end:;结束程序，退出CL IPS(defrule ckMNP GWHZ(declare (salie nee 100)?x (prin tout t crlf crlf crlf这个程序将帮助你一步步地进行麦粒 肿的诊断crlf crlf毛囊皮根微红肿吗？” crlf选择 y / n - )(r

30、etract ?x)(assert (MNP GWHZ =(read) *(defrule end(declare (salie nee 9200);rule ckBSLT:；提问鼻塞流涕 *(defrule ckBSLT(declare (salie nee 100)(MNP GWHZ ?)=(prin tout t crlf crlf鼻塞流涕吗？” crlf选择 y / n - )(assert (BSLT =(read)(declare (salie nee 100)(YJJBHZ ?)=(prin tout t crlf crlf顶尖有脓点吗？” crlf选择 y / n - )(as

31、sert (DJYND =(read) *(prin tout t crlf crlf眼睑局部明显红肿吗？” crlf选择 y / n - )(assert (YJJBMXHZ =(read)*;rule ckYJJBMXHZ:;提问眼睑局部明显红肿*(defrule ckYJJBMXHZ(declare (salie nee 100)(BSLT ?)=;rule ckSTBH:; 提问舌苔薄黄 *(defrule ckSTBH(declare (salie nee 100)(DJYND ?)=(prin tout t crlf crlf舌苔薄黄吗？” crlf选择 y / n - )(ass

32、ert (STBH =(read) *;rule ckYJJBH Z:;提问眼睑局部红肿;rule ekWNC:; 提问胃纳差 *(prin tout t crlf crlf眼睑局部红肿吗？” crlf选择 y / n - )(assert (YJJBHZ =(read)(defrule ckYJJBHZ(declare (salie nee 100)(YJJBMXHZ ?)=(defrule ckWNC(declare (salie nee 100)(STBH ?)=(prin tout t crlf crlf胃纳差吗？ ” crlf选择 y / n - )(assert (WNC =(re

33、ad) *;rule ckDJYND:;提问顶尖有脓点;rule ckND PK:; 提问脓点破溃 *(defrule ckND PK(defrule ckDJYND(declare (salie nee 100) (WNC ?)= *(prin tout t erlf erlf脓点破溃吗？” erlf选择 y / n - )(assert (ND PK =(read) *;rule rule3:； 规则3 *;rule rulel:; 规则1*(defrule rule3a(deelare (salie nee 99)(STBH y)(WNC y)=(assert (WCJR y)(defr

34、ule rulela(deelare (salie nee 99)(MNP GWHZ y)=(assert (QX y)(defrule rule3b(deelare (salie nee 99)(STBH n)=(assert (WCJR n)(defrule rulelb(declare (salie nee 99)(MNP GWHZ n)=(assert (QX n)(defrule rule3e(deelare (salie nee 99)(WNC n)=(assert (WCJR n)* *;rule rule2:； 规则2 *;rule rule4:； 规则4 *(defrule

35、rule2a(deelare (salie nee 99)(BSLT y)=(defrule rule4a (declare(salie nee 99) (YJJBMXHZ y)=(assert (ZX y)(assert (WGFR y)(defrule rule2b(deelare (salie nee 99)(BSLT n)= *;rule rule5:； 规则5 *(assert (WGFR n)(defrule rule5a(declare (salie nee 99)(YJJBHZ y)(DJYND y)=;rule rule7:; 规则7 *(defrule rule8c(ass

36、ert (ZX y) (defrule rule5b(declare (salie nee 99)(YJJBMXHZ n)(YJJBHZ y)(DJYND n)=(assert (ZX n) (defrule rule5c(declare (salie nee 99)(YJJBMXHZ n)(YJJBHZ n)(DJYND y)=(assert (ZX n)(defrule rule7a(declare (salie nee 98)(QX y)(WGFR y)=(assert (QFRX y) (defrule rule7b(declare (salie nee 98)(QX n)=(asse

37、rt (QFRX n) (defrule rule7c(declare (salie nee 98)(WGFR n)=(assert (QFRX n)* *;rule rule6:; 规则6 *;rule rule8:; 规则8 *(defrule rule6a(declare (salie nee 99)(ND PK y)=(assert (WQ y)(defrule rule8a(declare (salie nee 98)(WGFR y)(ZX y)=(defrule rule6b(declare (salie nee 99)(ND PK n)=(assert (WQ n)(assert

38、 (ZFRX y) (defrule rule8b(declare (salie nee 98)(WGFR n)=*(assert (ZFRX n)(declare (salie nee 98)(ZX n)= (assert (ZFRX n)(defrule rule10b(declare (salie nee 98)(QX n)=(assert (SLF n)* *;rule rule9:； 规则9* *;rule rule11:; 规则11 *(defrule rule9a(declare (salie nee 98)(ZX y)(WCJR y)=(defrule rule11a(decl

39、are (salie nee 98)(WQ y)=(assert (ZJRX y)(assert (WFYW y)(defrule rule9b(declare (salie nee 98)(ZX n)=(defrule rule11b(declare (salie nee 98)(WQ n)=(assert (ZJRX n)(assert (WFYW n)(defrule rule9c(declare (salie nee 98)(WCJR n)=(assert (ZJRX n) * *;rule rule12:； 规则12 *;rule rule10:; 规则10(defrule rule

40、12a(declare (salie nee 97)(QFRX y)=(assert (SLJG y)(defrule rule10a(declare (salie nee 98)(QX y)=(defrule rule12b(declare (salie nee 97)(QFRX n)=(assert (SLF y)(assert (SLJG n)* *(prin tout t crlf crlf诊断结果：可以采用散瘌法。(assert (succeed)crif crlf)*;rule rule13:; 规则13*n*m*n*md(defrule rule13a(declare (sali

41、e nee 97)(ZFRX y)=(defrule result1(declare (salie nee 96)(SLF y)= * *(assert (TLJG y);rule result2:； 诊断结果2:采用外敷药物 *(defrule rule13b(declare (salie nee 97)(ZFRX n)=(assert (TLJG n)*(defrule result2(declare (salie nee 96)(WFYW y)=*;rule rule14:； 规则14*(prin tout t crlf crlf诊断结果：可以采用外敷药物。crlf)(assert (succeed)crlf *;rule result3:; 诊断结果3:采用散瘌加罐 * *(defrule rule14a(declare (salie nee 97)(ZJRX y)=(assert (FXF y)(defrule rule14