决策支持系统的开发与实例

1、决策支持系统的开发与实例参照 决策支持系统 理论 方法 案例高洪深 著，清华大学出版社 ， 2005年5月，第三 版 信用担保决策支持系统P287 Business Objects 决策支持系统工具P382 参照 决策支持系统的开发与应用胡于进 机 械工业出版社 2006年9月 电力营销决策支持系统(P160,P172) DSS系统效益评估 投资回报率法 ( ROI ) 评分法 价值分析法 麦粒肿诊断专家系统的开发 R1：毛囊皮根微红肿-轻型 MNPGWHZ-QX R2：鼻塞流涕-外感风热 R3：舌苔薄黄 胃纳差-胃肠积热 R4：眼睑局部显然红肿-重型 R5：眼睑局部红肿顶尖有脓点-重型 R6

2、：脓点破溃-晚期 R7: 轻型外感风热-轻风热型 R8: 重型外感风热-重风热型 R9: 重型胃肠积热-重积热型 R10: 轻型-散癞法 R11: 晚期-外敷药物 R12: 轻风热型-散癞加罐 R13：重风热型-挑癞加罐 R14：重积热型-放血法 绘制麦粒肿诊断推理树SLJG R12SL F QFR XTLJ G R13ZFR XFX F R14ZJR XWFY W R11W QR10Q XR7WGF RR8Z XR9WCJ RR6NDP KR1MNPG WHZR2R4R5YJJBR3STB H WN C DJYNDBSLTHZYJJB MXHZ动物分类专家系统 R1：有毛发-哺乳动物 R2：

3、能产乳-哺乳动物 R3：哺乳动物吃肉-食肉动物 R4：哺乳动物有蹄-有蹄动物 R5：食肉动物颜色是黄褐色有深色斑点-猎豹 R6:食肉动物颜色是黄褐色有黑色条纹-老虎 R7:有蹄动物颜色是白色有黑色条纹-斑马 专家系统开发工具CLIPS 符号体系 必需要完全照样输入计算机的字和字符，即不被、 、所括住的所有内容。 (example) (example1) ：(example), (example 1) 表示其中的字所表示的意义要用一个相应的任意值代替。表示任意多个包括0个与其中的字相应的值。 多个不包括0个。 (example integer)：(example 1) (example 6) i

4、nteger ：不输或1，34 表示选用其中的任意一项，仅且一项。 all,none,some 语言符号 字：以可打印的ASCII字符开始，后随零个 或多个字符。区分大小写。 fire，不能出现 ,？, ，|，+ 字串：零个或任意个字符 “activate the sprinkler system 数值：符号、值和指数。 事实 事实：CLIPS程序必需有据以推理的数据 和信息。由配对的括住的一个或多个 字段组成。 新的事有用(assertfact)加入到事 实表(fact-list)中；撤销已存在的事有用 (retract fact-index) (assert (emergency fire

5、) (emergency flood) (retract 1 2 3)规则(defrule rule-name optional comment patterns = actions)无模式时，系统将自动加入一个模式(initial-fact); 动作表也 可以为空。 定义规则：如果发生的紧急状况是火灾，那么就启动喷淋系 统。 规则 ;这是个简单的规则 (defrule fire-emergency “An example rule (emergency fire) = (assert (action activate-sprinklersystem) Printout命令 在规则的动作部分可

6、以用printout命令打 印输出信息 (printout logical-name printitems) (defrule fire-emergency (emergency fire) = (printout t “activate the sprinkler systemctrl) 变量 在？后面跟一个表意的字段名，以字母开 头，?speed, ?name 在规则的模式中约束一个值，然后，断言 规则动作部分中的约束变量。(defrule grandfather (is-a-grandfather ?name) = (assert (is-a-man ?name) 变量 通过变量不但可以

7、加入事实，也可以撤销 事实。 (defrule modify-grandfather-fact ?old-fact -(is-a-grandfather Jack) = (retract ?old-fact) (assert (has-a-grandchild Jack) (is-a-man)字段通配符 触发规则的模式可以使用通配符指定,？可 以代替任意一个字段 (defrule find-brown-haired-people (person ?name ? brown) = (printout ?name “has brown hair crlf) (person Jack green b

8、rown) (person Jane brown brown) 特权 特权被用来设置规则触发的优先级别。设 置范围-10000 10000,默认为0 格式: (declare (salience 特权数值)(defrule init (declare (salience 9980) ) Read函数 使用read函数获取用户输入的信息。将获取的输 入信息赋值给一个事实的语法格式为：事实名称 =read (defrule xxread (declare (salience 50) (xxread) = (printout t crlf crlf “请问是鼻塞流涕吗？ crlf “选择 y/n-) (assert (BSLT=(r