5专家系统.ppt

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 7.8　专家系统举例 　　无论成功与否，最后均调用clear_facts子句。即： clear_facts:-retract(xpositive(_,_)), fail. clear_facts:-retract(xnegative(_,_)), fail. clear_facts:-write(“\nPlease press the space bar to exit!”),readchar(_). 该子句中用内部谓词retract将全部的事实从动态数据库中删除，以避免影响对下一次动物的识别。 5.8.２　系统结构 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *