《农业信息学》上机实验报告

农业信息技术实验报告实验一L-Studio的使用一、实验目的及要求（1）掌握植物拓扑结构的模拟方法（2）掌握虚拟植物系统Lstudio的使用。二、实验环境CPU为酷睿2.4G、内存1G、硬盘为320G的高档微机，L-Studio系统三、实验内容（1）熟悉L-studio软件的运行环境和使用方法。（2）根据L-studio的迭代规则和语法实现课本上的实验。（3）熟悉L-studio中对分支结构的描述。四、实验步骤（1）双击L-system\L-studio.bin\LStudio.exe文件，启动L-Studio系统；（2）在project菜单下，单击new菜单项，新建一个工程；（3）在L-System界面下编写程序代码；完成书上136页的例1至例3；自行编写一段程序；（4）代码书写完毕后，在cpfg菜单下，单击go菜单项，运行出程序结果，即虚拟植物的形态；（5）通过截图记录程序运行结果。五、程序代码及实验结果1、（1）例1程序代码和运行结果截图代码：#defineSTEPS4Lsystem:1derivationlength:STEPSAxiom:AA--B[+B][-B]AhomomorphismA--,(127)F(1),(64)@O(0.8)B--,(127)F(1)Endlsystem运行结果截图：（2）例2程序代码和运行结果截图代码：#defineSTEPS4Lsystem:1derivationlength:STEPSAxiom:AA--B[+A][-A]BAB--BBhomomorphismA--,(127)F(1),(64)@O(0.8)B--,(127)F(1)Endlsystem运行结果截图：（3）例3程序代码和运行结果截图代码：#defineSTEPS4Lsystem:1derivationlength:STEPSAxiom:AA--A[+A]A[-A]AhomomorphismA--.F@o(0.5)Endlsystem运行结果截图：2、自行编写的程序代码和运行结果截图代码：#defineSTEPS4Lsystem:1derivationlength:STEPSAxiom:AA--AA-[-A+A-A]+[+A-A+A]homomorphismA--.F@o(0.5)endlsystem运行结果截图：六、总结通过此次实验，我熟悉了L-studio软件的运行环境和使用方法，对L-system有了一个较为深入的认识。也明白了L-studio的迭代规则和语法并且实现课本上的实验。也熟悉了L-studio中对分支结构的描述。总的来说，我觉得L-System系统很直观的描述和模拟了植物，对我们的现阶段学习有很大的裨益，我会更加努力，认真的继续学习更加深入的知识。实验二农业专家系统知识库构建一、实验目的及要求掌握知识表达方法，掌握利用关系型数据库MicrosoftSQLServer2008构建知识库的方法。二、实验环境CPU为酷睿2.4G、内存1G、硬盘为320G的高档微机，MicrosoftSQLServer2008三、实验内容提前收集、整理有关农业知识，并用产生式规则表示知识；熟悉关系型数据库特别是MicrosoftSQLServer2008有关内容及操作，掌握利用关系型数据库MicrosoftSQLServer2008构建知识库的方法，课上完成知识库的设计与调试，课后提交实验报告。四、实验步骤（1）打开MicrosoftSQLServer2008；构建知识库的方法农业专家系统；（2）利用关系型数据库MicrosoftSQLServer2008建立农业专家系统事实库、规则库。五、操作过程及实验结果（1）获取农业知识认真阅读一篇名为《番茄病虫害诊断专家系统知识库的构建》文献，提取其中部分农业知识，即番茄的早疫病对番茄早疫病病有如下描述：叶片患病初呈针状的小黑点，后发展为不断扩展的褐色或黑色近圆形轮纹斑，边缘多具有浅绿色或黄色晕环，中部现同心轮纹。且轮纹表面生毛状不平坦物，别于番茄圆纹病。（2）产生式规则表示知识前件：1病斑呈褐色、2病斑呈无色、3霉层呈灰色、4霉层呈无色5病斑呈轮纹并凹陷、6病斑呈不规则、7霉层无形状、8无大面积变色、9部分腐烂、10无枯萎、11有枯萎、12边缘具有浅绿色或黄色晕环、13边缘呈褐色、14轮纹表面生毛状不平坦物15轮纹表面干瘪、16不腐烂17有大面积变色备注：1-17代表病害表现的编号，即也是代表一种总值，在后期构建数据库有所用后件：早疫病规则：如果：1、3、5、6、8、9、10、12、14都发生则：为早疫病总值为68说明：总值代表后件所需前件之和（3）事实库与规则库的构建打开MicrosoftSQLServer2008软件，创建了果树病虫害情况数据库，包含三个表，即病害表现、病害综合、病害诊断（见图1）。图1数据库的建立建表情况，见图2~图4.图2病害表现表说明：字段disease_expression代表病害表现，disease_id代表病害表现的编号或总值图3病害综合说明：字段disease_totalvalue表示总值，由某一情况所有病害表现总值之和，字段disease_1~disease_17代表17种病害的各自总值目的：总值之和是不能说明就患什么病，因和是不能表明究竟是那些病害表现的和，所以为避免歧义性，能确定唯一性，所以采用这种存储。图4病害诊断说明：字段disease_name表示病害的情况，即结论。（4）在数据库中实现产生式表达知识规则编辑完毕后，根据专家系统开发平台的要求，将知识规则形式化。如果：部位=叶部并且：病症病状区分=病斑并且：症状1=病斑呈褐色并且：症状2=霉层呈灰色并且：症状3=病斑呈轮纹并凹陷并且：症状4=病斑呈不规则并且：症状5=无大面积变色并且：症状6=部分腐烂并且：症状7=无枯萎并且：症状8=边缘具有浅绿色或黄色晕环并且：症状9=轮纹表面生毛状不平坦物编写代码如下：PRINTspace(15)+'番茄早疫病的诊断'printREPLICATE('*',55)printspace(8)+'第一步：根据您输入的番茄病害情况如下'DECLARE@KCM1nchar(40)='病斑呈褐色',@KCM2nchar(40)='霉层呈灰色',@KCM3nchar(40)='病斑呈轮纹并凹陷',@KCM4nchar(40)='病斑呈不规则',@KCM5nchar(40)='无大面积变色',@KCM6nchar(40)='部分腐烂',@KCM7nchar(40)='无枯萎',@KCM8nchar(40)='边缘具有浅绿色或黄色晕环',@KCM9nchar(40)='轮纹表面生毛状不平坦物',@valueint,@id1int=0,@id2int=0,@id3int=0,@id4int=0,@id5int=0,@id6int=0,@id7int=0,@id8int=0,@id9int=0/*--第一步输入了解的事实，即前件---*/PRINTspace(15)+@KCM1PRINTspace(15)+@KCM2PRINTspace(15)+@KCM3PRINTspace(15)+@KCM4PRINTspace(15)+@KCM5PRINTspace(15)+@KCM6PRINTspace(15)+@KCM7PRINTspace(15)+@KCM8PRINTspace(15)+@KCM9printspace(8)+'第二步：根据您输入的情况初步判断'select@id1=D_disease_expression.disease_idfromD_disease_expressionwhereD_disease_expression.disease_expression=@KCM1select@id2=D_disease_expression.disease_idfromD_disease_expressionwhereD_disease_expression.disease_expression=@KCM2select@id3=D_disease_expression.disease_idfromD_disease_expressionwhereD_disease_expression.disease_expression=@KCM3select@id4=D_disease_expression.disease_idfromD_disease_expressionwhereD_disease_expression.disease_expression=@KCM4select@id5=D_disease_expression.disease_idfromD_disease_expressionwhereD_disease_expression.disease_expression=@KCM5select@id6=D_disease_expression.disease_idfromD_disease_expressionwhereD_disease_expression.disease_expression=@KCM6select@id7=D_disease_expression.disease_idfromD_disease_expressionwhereD_disease_expression.disease_expression=@KCM7select@id8=D_disease_expression.disease_idfromD_disease_expressionwhereD_disease_expression.disease_expression=@KCM8select@id9=D_disease_expression.disease_idfromD_disease_expressionwhereD_disease_expression.disease_expression=@KCM9set@value=@id1+@id2+@id3+@id4+@id5+@id6+@id7+@id8+@id9printspace(15)+'病害综合'+space(5)+ltrim(str(@value))/*--y用变量记录前件的身份--*/ifnotexists(selectD_disease_name.disease_namefromD_disease_namewhereD_disease_name.disease_totalvalue=@value)printspace(15)+'没有患早疫病'elseprintspace(15)+'疑似患有早疫病'printspace(8)+'第三步：最后诊断结果为'if(@value=68)ifnotexists(selectD_disease_name.disease_namefromD_disease_name,D_disease_totalvaluewhereD_disease_totalvalue.disease_totalvalue=@valueandD_disease_totalvalue.disease_1=@id1andD_disease_totalvalue.disease_3=@id2andD_disease_totalvalue.disease_5=@id3andD_disease_totalvalue.disease_6=@id4andD_disease_totalvalue.disease_8=@id5andD_disease_totalvalue.disease_9=@id6andD_disease_totalvalue.disease_10=@id7andD_disease_totalvalue.disease_12=@id8andD_disease_totalvalue.disease_14=@id9)printspace(15)+'没有早疫病,可能患其