开发工具:
文件大小: 3kb
下载次数: 0
上传时间: 2009-12-17
详细说明： database xpositive(symbol,symbol) xnegative(symbol,symbol) predicates run plant_is(symbol) it_is(symbol) positive(symbol,symbol) negative(symbol,symbol) clear_facts remember(symbol,symbol,symbol) ask(symbol,symbol) goal run. clauses run:- plant_is(X),!, write("\nYour plant may be a(n) ",X), nl,nl,clear_facts. run:- write("\nUnable to determine what"), write(" your plant is. \n\n"),clear_facts. positi ve(X,Y) if xpositive(X,Y),!. positive(X,Y) if not(negative(X,Y)),! and ask(X,Y). negative(X,Y) if xnegative(X,Y),!. ask(X,Y):- write(X," it ",Y,"?\n"), readln(Reply), remember(X,Y,Reply). remember(X,Y,y):- asserta(xpositive(X,Y)). remember(X,Y,n):- asserta(xnegative(X,Y)), fail. clear_facts:- retract(xpositive(_,_)),fail. clear_facts:- retract(xnegative(_,_)),fail. clear_facts:- write("\n\nPlease press the space bar to Exit"), readchar(_). plant_is(chrysanthemum) if it_is(ornamental)and positive(has,colorful_flowers). plant_is(rose) if it_is(ornamental) and positive(has,sting)and positive(does,defoliate). plant_is(cacti) if it_is(ornamental)and it_is(food)and positive(has,lanceolar_leaf). plant_is(apple) if it_is(wood) and it_is(food)and not(positive(has,nice_flower))and positive(does,defoliate). plant_is(peach) if it_is(wood) and it_is(food)and positive(has,nice_flower)and positive(does,defoliate). plant_is(aloe) if it_is(ornamental) and it_is(food)and positive(has,succulent_leaf). plant_is(pea) if it_is(ornamental) and it_is(food). plant_is(pinee) if it_is(wood) and positive(had,big_body)and positive(has,lanceolar_leaf). it_is(ornamental) if it_is(herbage) and positive(has,nice_flower). it_is(herbage) if positive(is,herb). it_is(wood) if positive(is,perennial). it_is(wood) if positive(is,woody). it_is(food) if positive(is,food). it_is(herbage) if positive(is,annual). ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
