CLIPS中文用户手册

《CLIPS中文用户手册》由会员分享，可在线阅读，更多相关《CLIPS中文用户手册（131页珍藏版）》请在装配图网上搜索。

1、· CLIPS用户向导水银测试版2007.12.31 Joseph C. Giarratano, Ph.D.自述文件通往智慧的第一步是你得承认你的无知，其次是你不必让全世界都知道你的无知。这部分被称作序言，但是在还没有人读过它之前，我将它重新命名成一个惯用的标题，以便让计算机用户选择性的遵从。另一个建议是将之命名为：“别读我”章节，但如今的人们相信所有他们阅读过的一切，我恐怕他们真的就不读它了。序言的目的，噢，抱歉，我应该称之为自述文件，它提供了书本中所包含知识的元知识。之所以称谓为元知识，是指它是关于知识的知识。所以关于自述文件的描述事实上我们得称之为“元元知识”。如果你被搞糊涂了

2、或者你对这些不感冒，那么你可以跳开去选择从书中任何地方看起，因为我得照顾到所有我的读者。CLIPS是什么？CLIPS是一种专家系统工具，最初由NASA/Lyndon B. Johnson太空中心软件技术研究室开发出来。自1986年首次发布以来，CLIPS经历了不断的改进和完善。现在它已经被广泛的应用在数以万计的全球用户中。CLIPS被开发出来以促进集成人类知识和经验的软件发展。在CLIPS中，知识的表示有三种方式：l        规则，规则表示法是基于启发式经验知识库的首要选择。l   

3、60;    自定义函数和通用函数，这种方式是程序式知识表示的首选。l        面向对象设计，也是程序式知识表示的首选。面向对象的程序设计被支持的5个普遍接受的特征是：类，消息处理函数，抽象，封装，继承和多态性。模式匹配可以是对象和事实。你可以仅用规则，或者仅用对象或者两者混合使用来开发软件。CLIPS同时支持与其他语言的集成，如C和Java。事实上，CLIPS是C Language Integrated Production的缩写。规则能基于事实与对象的匹配，规则和对象同时组成了一个集成

4、系统。除了被当作一个独立的工具之外，CLIPS还能被程序语言调用，运行其函数，然后返回给调用函数控制权。同样的，程序代码也能作为一个外部函数在CLIPS中被定义和调用。当外部代码执行完毕后，控制权返回到CLIPS。如果你已经对面向对象的程序设计语言如C+，Smalltalk，Objective C或者Java很熟悉了，想必你已经了解面向对象在软件开发中的诸多优点了。如果你并不熟悉，你将会发现CLIPS是一款将面向对象概念贯彻于软件开发非常优秀的工具。这本书关于什么？CLIPS用户向导是一个介绍CLIPS的基本特征的指南，而不是打算对该工具做一个广泛的探讨。本书姐妹篇为CLIPS参考手册，它提供

5、关于该话题的所有广泛的探讨和更多其它内容。这本书的适用读者群？CLIPS用户向导的目的是对专家系统提供简单易懂的介绍，适用读者可能对专家系统一无所知或者知之甚少。CLIPS用户向导可以被用作教材或者自学材料。仅有的前提是你必须具备高级语言如Java，Ada，FORTRAN或者C的基本知识。（好的，基本不是指其他的，但是如果被问起，我们不会在公开场和下承认和取消其声明。）怎样使用这本书？CLIPS用户向导为那些想亲身尝试专家系统编程的人们提供了快速入门。例子均具有普遍性。同时，我们知道学习一种新的计算机语言是一个令人沮丧的体验，因此，本书的写作语言将采用轻快和幽默的风格（我希望如此），以代替中规

6、中矩的教科书模式。但愿，这种幽默不会冒犯有幽默感的任何人。为了最大受益，你最好是在看书的过程中，将书中的实例亲自在文本中打印出来。在你打印实例的过程中，你将会逐渐明白程序的工作原理和当你打错时出现的错误提示。案例的结果输出在案例之后给出。最后，当你看完CLIPS用户向导各章节后，你还应该看看在CLIPS参考手册中的相关材料。像其他程序语言一样，你只有亲自写程序才能够真正学好CLIPS编程。为了真正学会专家系统编程，你应该多在CLIPS中写程序，并对每个问题抱有兴趣。感谢我十分感谢那些对本书提出意见和评述的人。谢谢Gary Riley，Chris Culbert，Brian Dantes，Bry

7、an Dulock，Steven Lewis，Ann Baker（一堆外国人名）。特别感谢Bob Savely对CLIPS改进的支持。· 第一章 事实如果你忽视事实，你将永远不会担心自己的过错。本章将对专家系统的基本概念做简单的介绍。你将会知道在CLIPS中怎样插入和移出事实。如果你正在使用的机器是苹果机或者是IBM（或可兼容）的CLIPS视窗版本，那么你可以通过鼠标来选择相关的命令来代替输入命令行。键盘上的箭头键也可以移动光标对菜单选项进行选择。序言CLIPS是一种被用来编写专家系统应用程序的计算机语言。专家系统是一组计算机程序，专门用来模仿人类专家的技能和知识。相比之下，一些普通

8、的程序如报表程序，文本处理器，电子表格，电脑游戏等等，并没有包含人类的技能和知识。（专家的定义之一：就是某人带着他的公文包在离家50公里之外。）CLIPS之所以被称之为专家系统工具，是因为它是一个开发专家系统的完整环境，包括一个整合版本和一个调试工具。壳这一词被保留在CLIPS负责推理的部分中。CLIPS的壳提供了专家系统的基本元素：1.    事实表和实例表：数据的全局存储。2.    数据库：包括所有的规则和规则表。3.    推理机：控制所有规则的执行。CLIPS的程序一般包含有规则，事实和对象。推

9、理机决定了哪条规则应该被执行和在什么时候被执行。一个用CLIPS写成的基于规则库的专家系统程序是一个数据-驱动型程序，程序里的事实，对象数据通过推理机的激活执行。这里有一个例子可以帮助你知道CLIPS是如何与其他程序语言如Java，Ada，BASIC，FORTRAN和C区别开来的。在程序语言中，执行并不一定需要数据，那是因为在那些语言中的声明已经足够引起执行了。举例说明，在BASIC语言中，PRINT 2+2的声明会被立即执行，该声明是一个完整的声明，并不需要额外的数据去驱动执行。然而，在CLIPS中，规则的执行必需数据来驱动。最初，CLIPS仅有表示规则和事实的能力，然而，在6.0版本中已经

10、允许规则与对象的匹配，与规则与事实匹配一样。同时，通过发送消息来应用对象不必需要规则了，如果你仅仅只是用对象，那么推理机都可以不需要。在第一章到第七章中，我们将讨论CLIPS的事实和规则，八到十二章中包含了CLIPS的对象特点。开始和结束你可以在你的系统中输入相应的运行代码来启动CLIPS，你将看到CLIPS的提示如下所示： CLIPS> 此时，你可以开始在CLIPS中直接输入命令，这种直接输入命令的方式被称之为最高阶层。如果你拥有CLIPS的图形界面版本（GUI），你也可以用鼠标选择相应的菜单来代替输入命令行。请参考CLIPS GUI 版本的CLIPS界面向导，探讨

11、一下其里面的命令支持。在本书中，为了简约和一致性，我们假设所有的命令均为输入方式。离开CLIPS的一般方式是输入exit命令，如下： （exit） 按照CLIPS提示点击返回键。建表与其他编程语言一样，CLIPS也有关键字。举个例子，如果你想在事实表中输入数据，你可以使用assert命令。作为一个assert实例，在CLIPS提示后面正确输入下面的命令： CLIPS>(assert (duck) 这里，assert命令以(duck)作为其参数。记住点击回车键将命令行发送到CLIPS。你将看到如下响应： <Fact-1>

12、0;这表示CLIPS已经存储了duck的事实，并将其标识为1。在CLIPS中，尖括弧被用来作为条目的分隔符。CLIPS会自动的增加事实的编号，随着一个或更多的事实被添加，从最高事实-索引进行列表。注意(assert)和它的参数(duck)均用圆括弧括住，像其他一些专家系统语言一样，CLIPS采用LISP式样语法，用圆括弧作为分隔符。虽然CLIPS并不是采用LISP语言编写，但是LISP影响了CLIPS的发展。检查两遍假设你想查看一下事实表中的内容，如果你的CLIPS支持GUI，你便可以在菜单中选择相应的命令，或者，你还可以通过键盘键入相应的命令行。接下来，我们将来描述一下键盘命令。查看事实库的

13、键盘命令是facts命令。在CLIPS提示后输入(facts)，CLIPS响应后会将事实表列出。一定记得将命令用圆括弧括住，否则CLIPS会不识别。在该实例中，(facts)命令的句法如下： CLIPS>(facts)f-0 (initial-fact)f-1 (duck)For a total of 2 facts.CLIPS> f-0和f-1为CLIPS对事实分配的事实标识。每个事实被添加进CLIPS，被分配唯一的事实标识，以“f”开头，后面的数字为事实索引。当启动CLIPS，输入如clear或reset（随后有详细的探讨）后，事实索引将会被归零，然后随着每

14、个事实的添加（assert）逐步加一。（clear）和(reset)命令同时增加一个(initial-fact)事实，编号为f-0。在CLIPS的早期版本中，该事实被CLIPS隐式用来初始化一些规则和被用户显式调用来使事实库初始化，但是现在，该事实仅被用来提供向后兼容性。如果你将duck在事实表中输入两次，将会出现什么结果呢？让我们试试看，增加一个新事实（duck），然后调用（facts）命令如下所示： CLIPS>(assert (duck)FALSECLIPS>(facts)f-0 (initial-fact)f-1 (duck)For a total of 2 fa

15、cts.CLIPS> CLIPS返回FALSE消息，表示不可能执行该条命令，且你将只能见到原始的事实：“f-1 (duck)”。这说明CLIPS不能接受事实的复制输入。然而，CLIPS中还有一个超越命令：set-fact-duplication，该命令允许事实的重复输入。当然，你可以输入其他不同的事实。举个例子，增加一个(quack)事实，然后运行(facts)命令，如下： CLIPS>(assert (quack)<fact-2>CLIPS>(facts)f-0 (initial-fact)f-1 (duck)f-2 (quack)For a tota

16、l of 3 facts.CLIPS> 注意，（quack）事实已经被添加到事实表中了。事实也会被移出和撤销。当一个事实被撤销，其他的事实索引不会改变，因此会出现事实索引的“丢失”。类似于一个足球运动员离开球队如果没有被补充，其他队员的号码不会因为缺失号码而发生调整（除非他们非常讨厌这个离队的家伙，想要忘掉他曾在队中效力过）。· 清除所有事实Clear命令将所有的事实从内存中移出，代码如下所示： CLIPS>(facts)f-0 (initial-fact)f-1 (duck)f-2 (quack)For a total of 3 facts.CLIP

17、S>(clear)CLIPS> 事实表中的所有事实被清除。（clear）命令实质上将CLIPS恢复到起始启动状态，它清除了CLIPS的内存空间，重置事实标识为0和增加了一个(initial-fact)事实。增加(animal-is duck)事实，然后查看事实表，会发现(animal-is duck)的事实标识为f-1，这是因为(clear)命令重置了事实表的标识。该命令事实上并不只是起清除所有事实的作用，除此之外，它还清除所有的规则，在下一章中你就会看到。下面的实例显示了怎样将三个事实加入到事实表，并用(facts)命令查看，然后(clear)命令将这三个事实从内存中清

18、除并重置事实标识为f-0。 CLIPS>(clear)CLIPS>(assert (a) (b) (c)<Facts-3>CLIPS>(facts)f-0 (initial-fact)f-1 (a)f-2 (b)f-3 (c)For a total of 4 facts.CLIPS>(facts 0)f-0 (initial-fact)f-1 (a)f-2 (b)f-3 (c)For a total of 4 facts.CLIPS>(facts 1)f-1 (a)f-2 (b)f-3 (c)For a total of 3 facts.CL

19、IPS>(facts 2)f-2 (b)f-3 (c)For a total of 2 facts.CLIPS>(facts 1 2)f-0 (initial-fact)f-1 (a)f-2 (b)For a total of 2 facts.CLIPS>(facts 1 3 2)f-0 (initial-fact)f-1 (a)f-2 (b)For a total of 2 facts.CLIPS> 注意，仅用一个(assert)便可以增加三个事实：(a),(b)和(c)。最高索引为3，通过CLIPS的信息消息<Fact-3>返回。也可以用每个命

20、令增加一个事实的方式（那些这样做的人也许是为了炫耀他们的打字速度）。注：（facts）命令的完整语法为：(facts <start> <end> <maximum>)，<start>表示显示索引号大于等于<start>的事实，<end>表示小于等于<end>的事实，<maximum>表示显示在<start>和<end>之间最多<maximum>个事实。敏感字段和详解事实(duck)和(quack)被称之为单字段。一个字段就是一个占位符（命名或未命名），通常拥有一个

21、值。一个简单的类比，你可以将字段想像成一幅画框，这个画框能够装载一幅画，也许画中是你的宠物鸭（也许你会好奇怎样用一幅画表现“quack”,有两个法子：（1）是弄一个示波器来显示一只鸭子说“quack”的波形图，信号的输入来源于一个麦克风；（2）对于那些有科学主义倾向的人，也许还得对“quack”信号做一个傅立叶变换；（3）电视里那些叫卖神奇的祛皱，减肥广告。等等）。只有用deftemplates才叫做占位符，将在第五章中进行详细的介绍。注：这里的（3）提到的电视广告，意思是电视广告里的广告者会大呼小叫的对他们的产品爆发欢呼，声音像鸭子叫一样，讽刺幽默。(duck)事实是一个单独，未命名占位符的

22、事实，值为duck。下面有一个关于单字段事实的例子，一个字段即是一个值的占位符。类比想像一下字段，就像碟子(字段)盛食物(值)一样的道理。未命名字段的顺序非常重要。举例，如果一个事实被定义为： (Brian duck) 表示一个叫Brian的猎人射杀了一只鸭子，那么事实: (duck Brian) 则表示鸭子猎手射杀了一个叫Brian的猎人。与之相比，命名字段的顺序是不重要的，稍后你将在deftemplate中看到。事实上，一个好的软件工程应该采用关系型表示法来表述字段，一个好的事实表示如下： (hunter-game duck Brian)&

23、#160;表示第一个字段代表猎人，第二个字段代表游戏名称。现在，一些定义是必需的了。一个表是一组无内在序列的项目集合。之所以称一个表为有序的，意味着表中的位置是非常重要的。一个多字段是有序字段，每个字段都有一个值，特殊符号nil意思是无，通常作为一个占位符用在空字段中。举例如下： (duck nil) 可以表示猎人的捕鸭袋中今天一无所获。注意，nil表示了一个占位符，虽然它没有值。举例，试想一个字段就是一个邮箱，没有邮箱和邮箱中没有信件是完全两码事。如果没有nil，这个事实就是一个单字段事实(duck),如果一个规则依赖于两字段激活，则该单字段事实不会被激活，稍后你会看到的

24、。这里有许多不同有效的字段类型：float，integer，symbol，string，external-address，fact-address，instance-name和instance-address。这些字段类型用来存储字段值的类型。未命名的字段中，值的类型由你的输入决定。在deftemplates中，你可以显式的声明字段所包含值的类型。显式的声明加强了软件工程的概念，是产生一个高效软件的编程训练。Symbol是一类字段类型，该类型起始于一个可印刷的ASCII码并被选择性的加一个0或更多的可印刷字符。字段由空格或占位符被普通的分隔。举例： (duck-shot Brian

25、Gary Rey) 有四个字段，指示了所有的杀鸭猎人。在这个事实中，字段被空格分隔，并由圆括弧括起来。事实中不能嵌入其他的事实。举例，下面即是一个非法的事实： (duck (shot Brian Gary Rey) 然而，如果“shot”被当作一个字段名，上面的事实可能是一个合法的deftemplate事实。后面的三个人名为该字段下的值。CLIPS区分大小写。同样，CLIPS中特定的符号有特殊的意义。  ( ) & | < ; ? $ “&”，“|”和“”不会独立的使用或作为符号的任何部分。一些字符的作用等同于分隔符以结束

26、一个符号。下面的字符的作用等同于分隔符号。l        所有的不可印刷的ASCII码，包括空格，回车键，制表键和换行键。l        双引号，“”l        起始和结束圆括号，（）l        &号l        竖线，|

27、l        小于，<.这也是尖括号的一部分。l        波浪字符，l        分号，；指示一个注释的开始，回车键结束l        ？和$?也许不能作为一个符号的开始，但是可以插入其中分号在CLIPS的作用是指示一个注释的开始，如果你试图增加一个分号，CLIPS便会认为你在输入一段注释并等待你

28、的完成。如果你在最高阶层(top-level)中不经意的输入了一个分号，那么输入一个圆括号的结束部分：）并回车。CLIPS会以一个错误消息响应并提示给你（就像生活中的某些时候，你得做些错误的事情以使得某些事情正确）。随着你通读这本手册，你将会逐渐明白上面那些符号的意义。除了“&”，“|”和“”之外，你将使用其他的表示符号，然而，也许对于有些人，在读程序和试图理解程序运行机理时有些困惑。通常情况下，最好是避免使用这些符号来表示字符，除非你有更好的理由需要用到它们。下面是这些符号的一些例子： duckduck1duck_soupduck-soupduck1-1_soup-soup

29、d!?#% 第二类类型的字段是string。一个字符串必须用双引号引起来，双引号是字段的一部分。引号中可以有0个或多个字符。一些例子如下： “duck”“duck1”“duck/soup”“duck soup”“duck soup is good!”· 第三和第四种字段类型为数字型字段。该字段用来表示整型或浮点型字段。浮点型通常被简化为float。（float-point->float）CLIPS中的数字均为“long long”整型或双精度浮点型。没有小数点的数字即是整型，除非它们不属于整型范围。整型的范围由数字的位数决定，N，用来表示整型如下所示：

30、60;-2N-1 2N-1-1 对于64位机器“long long”整型，符合该范围的数字为： -9，223，372，036，854，775，808 9，223，372，036，854，775，807 下面给出一些数字的例子，增加下面的数据到事实中，最后一个数字为指数表示法，用“e”或“E”代替乘以10。 CLIPS>(clear)CLIPS>(facts)f-0 (initial-fact)For a total of 1 fact.CLIPS>(assert (number 1)<Fact-1>CLIPS>(ass

31、ert (x 1.5)<Fact-2>CLIPS>(assert (y -1)<Fact-3>CLIPS>(assert (z 65)<Fact-4>CLIPS>(assert (distance 3.5e5)<Fact-5>CLIPS>(assert (coordinates 1 2 3)<Fact-6>CLIPS>(assert (coordinates 1 3 2)<Fact-7>CLIPS>(facts)f-0 (initial-fact)f-1 (number 1)f-2 (x

32、 1.5)f-3 (y -1)f-4 (z 65)f-5 (distance 350000.0)f-6 (coordinates 1 2 3)f-7 (coordinates 1 3 2)For a total of 8 facts.CLIPS> 如你所见，CLIPS将输入的指数表示法转换成数字350000.0，这是因为当数字足够小，就会被从指数表示转换到浮点型格式。注意上面的每个数字前面都有一个符号开头，如“number”，“x”，“y”等。在CLIPS6.0版本以前，允许仅一个数字的事实，然而，现在必需一个符号作为第一字段，同时，CLIPS的一些专用字段不能用来作为第一字段

33、，但是可以用来作为其他字段。举个例子，专用关键字not用来指代否定模式，但是不能作为一个事实的第一字段。一个事实由一个或多个被圆括弧括住的字段组成。为了简单化，我们在前面七章中将仅仅讨论事实，但也有许多对模式匹配应用于对象做了讨论。例外的是，一些函数如assert和retract仅仅只能用于事实，而不能用于对象。对对象相应的处理方法将会在第八到第十二章中讨论。一个事实可以是有序的，也可能是无序的。所有前面你已经看到的事实都是有序事实，因为字段的顺序决定了它们的不同。举个例子，注意，CLIPS会自动将包含相同数字“1”,“2”和“3”的事实区分开。 f-6 (coordinates 1

34、 2 3)f-7 (coordinates 1 3 2) 有序事实必须用字段对位于其定义的数据。举例说明，有序事实(duck Brian)有两个字段，同样(Brian duck)也有两个字段，然而，CLIPS将其看作两个不同的事实，因为有序事实字段的值是不同的。相反，事实(duck-Brian)仅有一个字段，因为有一个“-”符号将两个值连结。定义模板事实(Deftemplate facts)，稍后会做详细的表述，它是无序的，因为它用命名字段来定义数据。这与在C和其他语言中应用结构体一样。多字段通常被由一个或多个的空格，制表，回车或表格组成的空白隔离开来。举例说明，输入下面的例子，你将

35、发现每个被存储的事实都是一样的。 CLIPS>(clear)CLIPS>(assert (The duck says “Quack”)<Fact-1>CLIPS>(facts)f-0 (initial-fact)f-1 (The duck says “Quack”)For a total of 2 facts.CLIPS>(clear)CLIPS>(assert (The duck says “Quack” )<Fact-1>CLIPS>(facts)f-0 (initial-fact)f-1 (The duck says

36、“Quack”)For a total of 2 facts.CLIPS> 回车的使用是为增加可读性。在下面的例子中，每个字段后加一个回车，增加的事实与将字段都写在一行的效果是一样的。 CLIPS>(clear)CLIPS>(assert (Theducksays“Quack”)<Fact-1>CLIPS>(facts)f-0 (initial-fact)f-1 (The duck says “Quack”)For a total of 2 facts.CLIPS> 然而，当你在输入一个字符串的时候，要注意插入回车后的效果

37、，例子如下： CLIPS>(assert (Theducksays“Quack”)<Fact-2>CLIPS>(facts)f-0 (initial-fact)f-1 (The duck says “Quack”)f-2 (The duck says “Quack”)For a total of 3 facts.CLIPS> 如你所见，在双引号中插入的回车在字符串输出中会将双引号的后半部分移到下一行。CLIPS会认为f-1与f-2是两个不同的事实，这一点很重要。同样，我们也注意到CLIPS会保存事实中字段里的大写和小写字母。也就是“The”中的

38、“T”和“Quack”中的“Q”。CLIPS被认为是区分大小写的，因为它将大写和小写字母区别对待。举例说明，增加事实(duck)和(Duck),然后调用(facts)命令，你会发现CLIPS增加了两个不同的事实(duck)和(Duck),这正是因为CLIPS是区分大小写的缘故。下面的例子将更清楚的表现了回车应用于表中，增加可读性的作用。增加下面的事实，使用空格和回车将字段合适的安排在行中。破折号和减号被使用来创建单字段，这样，CLIPS就会将“fudge sauce”作为一个单字段了。 CLIPS>(clear)CLIPS>(assert (grocery-listice

39、-creamcookiescandyfudge-sauce)<Fact-1>CLIPS>(facts)f-0 (initial-fact)f-1 (grocery-list ice-cream cookie candy fudge-sauce)For a total of 2 facts.CLIPS> 如你所见，CLIPS将回车和制表置换为单空格。当人们在读一段程序时，使用合适的空格会带来许多方便，CLIPS会将其自动置换为单空格。· 风格问题用事实的第一个字段来描述后续字段的关系是很好的基于规则编程风格。在此风格中，第一个字段被称为关系，事实的剩余

40、字段被用来指定值。例子：(grocery-list ice-cream coolies candy fudge-sauce)中破折号用来将多词组合成一个单字段。良好的文档处理在专家系统中比其他语言如Jave，C，Ada等更显重要，这是因为专家系统中的规则并不是普通的按顺序执行。CLIPS采用模板(deftemplate)的意义来描述事实以帮助程序员编写程序。另一个关联的事实是(duck)，(horse)和(cow)。一个好的提交它们的格式如下所示： (animal-is duck)(animal-is horse)(animal-is cow) 或采用单事实： (

41、animals duck horse cow) 通过关系animal-is和animals来表述它们之间的关系，使得人们在阅读代码时能够一目了然。一个明确的关联，animal-is和animals，比隐式的定义(duck)，(horse)和(cow)能使人们得到更多的信息。这个足够简单的例子让任何人都能断定字段间的隐含关系，但当人们在写一个并没有明确关系的事实时，同时也是一个简单的圈套（事实上，使事情复杂化要比使事情简单化简单很多，这是因为人们通常对于复杂的印象比简单要深刻许多。）消除空格之前我们介绍了空格用来分隔多字段，下面我们将看到在事实中，空格的作用不仅仅如此。举个例子：

42、60;CLIPS>(clear)CLIPS>(assert (animal-is walrus)<Fact-1>CLIPS>(assert ( animal-is walrus )FALSECLIPS>(assert ( animal-is walrus )FALSECLIPS>(facts)f-0 (initial-fact)f-1 (animal-is walrus)For a total of 2 facts.CLIPS> 仅有一个事实(animal-is walrus)被添加了，CLIPS忽视了空格，并认为三个被添加的事实是相同

43、的。因此，当输入相同的事实时，CLIPS返回FALSE。CLIPS不允许输入相同的事实，除非你改变set-fact-duplicate设置。如果你想在事实中包含空格，那么你必须使用双引号，举例如下： CLIPS>(clear)CLIPS>(assert (animal-is “duck”)<Fact-1>CLIPS>(assert (animal-is “duck ”)<Fact-2>CLIPS>(assert (animal-is “ duck”)<Fact-3>CLIPS>(assert (animal-is “

44、duck ”)<Fact-4>CLIPS>(facts)f-0 (initial-fact)f-1 (animal-is “duck”)f-2 (animal-is “duck ”)f-3 (animal-is “ duck”)f-4 (animal-is “ duck ”)For a total of 5 facts.CLIPS> 注意上面，在CLIPS中，空格的使用使得每个事实都不同，虽然在我们看来是同一个事实。如果你想在字段中包含双引号，该怎么办？正确的方法是使用反斜线符号“”将双引号插入到事实中，如下面的例子所示： CLIPS>(cle

45、ar)CLIPS>(assert (single-quote “duck”)<Fact-1>CLIPS(assert (single-quote “”duck“”)<Fact-2>CLIPS>(facts)f-0 (initial-fact)f-1 (single-quote “duck”)f-2 (single-quote “duck”)For a total of 3 facts.CLIPS> 撤销事实现在你已经知道怎么添加一个事实到事实表中，现在是时候学习怎样撤销它们了。将事实表中的事实移除称之为撤销，使用retract命令。撤销一个事

46、实，你必须指定所撤销事实的索引作为撤销命令的参数，建立你的事实表如下所示： CLIPS>(clear)CLIPS>(assert (animal-is duck)<Fact-1>CLIPS>(assert (animal-sound quack)<Fact-2>CLIPS>(assert (The duck says “Quack.”)<Fact-3>CLIPS>(facts)f-0 (initial-fact)f-1 (animal-is duck)f-2 (animal-sound quack)f-3 (The d

47、uck says “Quack.”)For a total of 4 facts.CLIPS> 如果要移除索引为f-3的最后一个事实，键入撤销命令并选择你所要撤销的事实，如下所示： CLIPS>(retract 3)CLIPS>(facts)f-0 (initial-fact)f-1 (animal-is duck)f-2 (animal-sound quack)For a total of 3 facts.CLIPS> 如果你试图移除一个已经被移除的或者根本不存在的事实，将会出现什么结果？让我们来试试： CLIPS>(re

48、tract 3)PRNTUTIL1 Unable to find fact f-3.CLIPS> 可以看到，当你试图移除一个不存在的事实时，CLIPS会发布一个错误提示。如果你没有给予，你当然也没有道理拿回什么。现在，让我们撤销其他的事实，如下所示： CLIPS>(retract 2)CLIPS>(facts)f-0 (initial-fact)f-1 (animal-is duck)For a total of 2 facts.CLIPS>(retract 1)CLIPS>(facts)f-0 (initial-fact)For a tota

49、l of 1 fact.CLIPS> 撤销一个事实，你必须指定该事实的索引。你可以一次撤销多条事实，如下所示： CLIPS>(clear)CLIPS>(assert (animal-is duck)<Fact-1>CLIPS>(assert (animal-sound quack)<Fact-2>CLIPS>(assert (The duck says “Quack.”)<Fact-3>CLIPS>(retract 1 3)CLIPS>(facts)f-0 (initial-fact)f-2 (a

50、nimal-sound quack)For a total of 2 facts.CLIPS> 撤销多条事实，只要在retract命令后跟上相应的事实索引号即可。你也可以用(retract *)撤销所有的事实，这里的*指代所有的事实。 CLIPS>(clear)CLIPS>(assert (animal-is duck)<Fact-1>CLIPS>(assert (animal-sound quack)<Fact-2>CLIPS>(assert (The duck says “Quack.”)<Fact-3>

51、CLIPS>(facts)f-0 (initial-fact)f-1 (animal-is duck)f-2 (animal-sound quack)f-3 (The duck says “Quack.”)For a total of 4 facts.CLIPS>(retract *)CLIPS>(facts)CLIPS>· 监视事实CLIPS提供了一些帮助你调试程序的命令。其中一个命令可以帮助你连续监视事实(watch facts)的增加和撤销，这比你总是不断输入(facts)命令来查看事实表中的变化要方便得多。监视事实是通过输入(watch facts)命

52、令来实现的，如下例子所示： CLIPS>(clear)CLIPS>(watch facts)CLIPS>(assert (animal-is duck)=>f-1 (animal-is duck)<Fact-1>CLIPS> 右双箭头符号=>表示事实正在被添加到内存中，左双箭头<=表示事实正在从内存中移除，如下所示： CLIPS>(reset)<=f-0 (initial-fact)<=f-1 (animal-is duck)=>f-0 (initial-fact)CLIPS>(a

53、ssert (animal-is duck)=>f-1 (animal-is duck)<Fact-1>CLIPS>(retract 1)<=f-1 (animal-is duck)CLIPS>(facts)f-0 (initial-fact)For a total of 1 fact.CLIPS> (watch facts)命令提供对事实表状态的动态显示，(facts)命令显示的是静态的当前事实表中所包含的事实。关闭监视事实的命令为：(unwatch facts)。你可以监视的项目有很多，下面列举出来，在CLIPS参考指南中有详细的表述。C

54、LIPS中的注释以分号开始，分号后面的内容将会被CLIPS忽略。 (watch facts)(watch instances) ; 应用于对象(watch slots) ; 应用于对象(watch rules)(watch activations)(watch messages) ; 应用于对象(watch message-handlers) ; 应用于对象(watch generic-functions)(watch methods) ; 应用于对象(watch deffunctions)(watch compilations) ; 默认的(watch statistics)(wa

55、tch globals)(watch focus)(watch all) ; 监视所有项目 随着你使用到CLIPS的更多功能，你将发现(watch)命令在调试过程中非常的有用。通过输入unwatch命令可以关闭监视(watch)命令。举例说明，如果要关闭监视编译，则输入(unwatch compilations)即可。一点帮助CLIPS提供有效的在线帮助。获得帮助只需输入(help)命令然后回车即可。不久，你将会看到一个细目菜单。更多的关于(help)命令的信息，请参考HELP_USAGE帮助章节。退出帮助的方法是一直按回车键，直到CLIPS提示出现。如果出现错误消息提示，则表明CL

56、IPS没有找到帮助文件：clips.hlp，你可以用(help-path)命令来找出CLIPS该文件的路径。第二章 规则如果你想你的生活硕果累累，那么别打破规则-而是去制定规则！在前面一章中的学习中，你已经对事实有所了解了。现在你将马上看到专家系统的规则将怎样利用事实驱动程序执行。构造良好的规则完成一项有价值的工作，专家系统必须得有事实和规则。前面你已经知道了事实的添加和撤销，现在你将了解规则是怎样工作的。一条规则与程序语言如Java，C或Ada中的IF THEN表述非常相似。IF THEN规则可以用自然语言与计算机语言来混合表示，如下所示： IF certain condition

57、s are trueTHEN execute the following actions 上述表述又被称为伪代码，伪代码字面的意思是错误的代码。伪代码不能被计算机识别和执行，但是它对书写可执行代码提供了有用的指南。伪代码在文档规则中也非常有用。如果你记住IF THEN的类比特性，那么将规则从自然语言转化到CLIPS语言将很简单。随着你CLIPS实践的增加，你将发现在CLIPS中写规则非常的简单。你可以在CLIPS中直接输入规则，也可以新建一个文本文件，将规则写在里面，然后加载到CLIPS中来。关于鸭子叫声规则的伪代码可以写成如下形式： IF the animal is a

58、duckTHEN the sound made is quack 下面是采用CLIPS语法将上面的伪代码写成一个事实和一个命名为duck的事实。规则名紧跟在关键字defrule后面。虽然你可以将规则都写在一行里面，但是我们通常将规则分成几段放在几行里书写，便于程序的阅读和编辑。 CLIPS>(unwatch facts)CLIPS>(clear)CLIPS>(assert (animal-is duck)<Fact-1>CLIPS>(defrule duck(animal-is duck)=>(assert (sound-is qu

59、ack)CLIPS> 如果你按照上面正确的输入，你便会看到CLIPS的提示符出现，否则，你将会看到一个错误消息提示。如果你得到一个错误消息，也许是你拼错了关键字或你遗漏了圆括号。记住，在一个声明中，圆括弧的左边和右边部分的数目是配套的。下面将给出一个相同的规则，该规则中增加了对规则每部分的注释。同时也增加了可选的规则头(rule-header)注释：“Here comes the quack”。规则中只能包含一个规则头注释，且必须写在规则名之后和第一个模式(pattern)之前。虽然现在我们只是讨论基于事实的模式匹配，一般来说，模式的匹配时基于模式实体上(pattern ent

60、ity)的。模式实体是一个事实，也可以是一个用户定义类的实例。基于对象的模式匹配将稍后讨论。CLIPS基于模式实体来进行模式匹配。当然，由空格，制表和回车组成的空格将规则的几个部分分隔开来，以增强可读性。其他的注释由分号引导，直到按下回车键结束一行。CLIPS忽略注释里的内容。 (defrule duck “Here comes the quack” ; 规则头(animal-is duck) ; 模式=> ; THEN箭头(assert (sound-is quack) ; 执行l        CLIPS

61、中，同时刻只能仅有一个规则名存在。· 输入同一个规则名，如本例中的“duck”，将会更替前面规则名为“duck”里已经存在的一切。也就是说，CLIPS中可能有许多条规则，但是只能有一条被命名为“duck”的规则。这与其他程序语言中一个程序名只能标识唯一程序段是一样的道理。规则的常规语法如下所示： (defrule rule_name “optinal_comment”(pattern_1) ; 由一些在“=>”之前的元素组成的规则左部分(pattern_2).(pattern_N)=>(action_1) ; 由一些在“=>”之后的元素组成的规则右部分 (

62、action_2) . . .(action_M) ; 最后一个“)”是与“defrule”前面的“)”配; 套的。保证你的圆括弧完整，否则你将得到错误; 消息提示整个规则必须用圆括弧括住，每个模式(pattern)和每个行为(action)都必须用圆括弧括住。行为通常是一类没有返回值(return value)的函数，但是它可以完成一些有用的执行，如(assert)和(retract)。举个例子，一个行为可以是(assert (duck)。这里的函数名是“assert”，它的参数是“duck”。注意，我们并没有希望得到一个如数字型的返回值，而是使得事实(duck)被增加到CLIPS中去。CL

63、IPS中的函数(function)是一段可执行代码，该段代码被特定的函数名标识，返回有用的值或产生有用的副作用，如(printout)。一个规则通常包含有多个模式和行为。模式和行为的数量并不一定得相等，这就是上面例子中用N和M来代指的意义。零个或多个模式写在规则名之后。每个模式包含一个或多个字段。在上面的duck规则中，模式为(animal-is duck)，字段为“animal-is”和“duck”。CLIPS试图将模式与事实表中的事实进行匹配，如果规则的模式与事实匹配成功，规则将会被激活(activated)而放入到议程(agenda)中。议程中存放的是所有被激活的规则集合。议程中通常包含

64、零个或多个激活的规则。规则中，模式后面的符号“=>”被称之为箭号(arrow)，箭号是IF-THEN规则的THEN部分开始的标记（也许可以被读作“意味着”）。规则的最后部分为零个或多个行为，当规则被触发(fire)时，这些行为将会被执行。在我们的实例中，行为是增加一个事实(sound-is quack)。Fire一词意味着CLIPS已经选定了议程中某条规则并执行。l        当议程中没有激活的规则时，程序停止执行。当议程中有多条激活规则时，CLIPS自动决定哪条规则将被合理的触发。CLIPS依照增加优先权和特权(

65、salience)来对议程的激活排序。规则中箭号之前的被称之为左部(LHS)，箭号之后的部分被称之为右部(RHS)。如果没有指定模式，则CLIPS会在输入(reset)命令后自动的激活该条规则。让鸭子叫吧CLIPS通常会执行议程中最高优先权规则右部的行为部分。随后该条规则将会被移出议程，接下来最高特权规则的行为将会被执行。这样持续执行下去，直到议程中没有激活的规则或输入了停止激活的命令为止。你可以通过议程(agenda)命令来查看议程中的内容，举例说明： CLIPS>(agenda)0        

66、;    duck: f-1For a total of 1 activation.CLIPS> 第一个数字“0”表示规则“duck”的激活特权值，“f-1”为事实的标识，(animal-is duck)为匹配激活。如果没有显式的声明特权值，则CLIPS默认为0。特权值的范围为-10000到10000。本书中，我们将用default的定义来作为标准方式。如果议程中仅有一个规则，该规则将被触发。前面知道了duck-sound规则的模式左部为： (animal-is duck) 该模式刚好与(animal-is duck)事实符合，

67、因此duck-sound规则将会被触发。模式的字段被称之为字面约束(literal constraint)。之所以称之为字面意味着有一个常数值，与之对立的是值可以改变的变量。在此例中，字面为“animal-is”和“duck”。输入run命令即可使程序运行。敲入(run)并回车，然后输入(facts)命令查看通过该规则有哪些事实被添加。 CLIPS>(run)CLIPS>(facts)f-0 (initial-fact)f-1 (animal-is duck)f-2 (sound-is quack)For a total of 3 facts.CLIPS> 在操作之前，让我们使用save命令来保存duck规则，这样你就可以避免重复输入了（如果你还没有将这些保存到编辑器中）。输入命令如下： (save “duck.clp”) 将CLIPS内存中的规则保存到命名为“duck.clp”的文件中，“.clp”是一个简单方便的扩展名，让我