资源描述：
《prolog实验报告-周俊雯》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、北邮人工智能实验报告prolog班级：2011211307姓名：周俊霞日期：2014-05-111、实验题目：用PROLOG完成以下系统的编写。給出代码和一个运行实例，辨别云的类型。低纬度云是那些高度等于或低于6000英尺高的云，包括层云和层积云；中纬度云是高度在6000—20000英尺的云，包括高层云、高积云和乱层云；高纬度云是那些高于20000英尺的云，包括卷云、卷层云和卷积云。积云和积雨云可以从低到高纬度之间分布；层云、高层云、卷层云、积云和积雨云呈大圆锥状；层积云、高积云、乱层云、卷积云象平滑绵延的被单；卷云有纤细
2、的外观，象一簇簇头发；乱层云和积雨云是含雨云，呈黑灰色。2、实验要求：编写一个程序辨别云的类型，程序的输入是描述云特征的事实，输出为已辨别的云的类型。*写出一个运行实例（输入、输出）。3、源代码：/*****************************************************************************Copyright(c)MyCompanyProject:CLOUDFileName:CLOUD3.PROPurpose:NodescriptionWrittenby:Visu
3、alPrologComments:******************************************************************************/include"cloud.inc"domainsCloud_x,Type,Shape,Color,What=symbolHight=integerfacts%云，有云的名字，高度，形状，颜色四个属性；cloud(Cloud_x,Hight,Shape,Color)predicatesnondetermis(Cloud_x,Type)
4、clauses%此处为某个已知的云，有云的名字，高度，形状，颜色四个属性；cloud(cloud_lily,7000,big_cone,blackgray).%判断某云是否为~~云；如is(Cloud_x,cengyun)判断某云是否为层云is(Cloud_x,cengyun):-cloud(Cloud_x,Hight,Shape,Color),Hight<=6000,Shape="big_cone",Color="white".is(Cloud_x,cengjiyun):-cloud(Cloud_x,Hight,Shap
5、e,Color),Hight<=6000,Shape="sheets",Color="white".is(Cloud_x,gaocengyun):-cloud(Cloud_x,Hight,Shape,Color),Hight>=6000,Hight<=20000,Shape="big_cone",Color="white".is(Cloud_x,gaojiyun):-cloud(Cloud_x,Hight,Shape,Color),Hight>=6000,Hight<=20000,Shape="sheets",Color=
6、"white".is(Cloud_x,luancengyun):-cloud(Cloud_x,Hight,Shape,Color),Hight>=6000,Hight<=20000,Shape="sheets",Color="blackgray".is(Cloud_x,juanyun):-cloud(Cloud_x,Hight,Shape,Color),Hight>20000,Shape="hair",Color="white".is(Cloud_x,juancengyun):-cloud(Cloud_x,Hight,Sh
7、ape,Color),Hight>20000,Shape="big_cone",Color="white".is(Cloud_x,juanjiyun):-cloud(Cloud_x,Hight,Shape,Color),Hight>20000,Shape="sheets",Color="white".is(Cloud_x,jiyun):-cloud(Cloud_x,_,Shape,Color),Shape="big_cone",Color="white".is(Cloud_x,jiyuyun):-cloud(Cloud_x
8、,_,big_cone,blackgray).goalwrite("inputthename,hight(0~200000),theshape(big_cone,orsheets,orhair),andthecolor(blackgrayorwhite)ofyourcloud"),nl,write("i
