《 系统工程》课程实验报告

《《 系统工程》课程实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、课内实验报告课程名：系统工程任课教师：朱专业：信息管理与信息系统学号：姓名：二○一四至二○一五年度第1学期南京邮电大学管理学院《系统工程》课程实验报告实验内容及基本要求：实验项目名称：Ants实验类型：设计每组人数：1实验内容及要求：1)了解Netlogo编程语言的特点和基本语法。2)完成Netlogo基本Model的语句解析和仿真流程分析。学号尾数为1号：Biology目录下的AIDS；2号：Ants3号：DaisyWorld；4号：Fireflies5号：Heatbugs；6号：Moths7号：Virus；8号：SocialSc

2、ience目录下的TrafficGrid9号：Voting；10号：Network目录下的TeamAssembly实验过程与结果：1)语句解析：patches-own[chemical蚂蚁分泌的化学物含量food食物堆中的食物量nest?蚁巢nest-scent接近蚁巢的情况food-source-number食物来源的食物量]下面的是详细的程序tosetupclear-allset-default-shapeturtles"bug"crtpopulation[setsize2设置大小为2setcolorred]蚂蚁如果没有携带食物

3、的话就是红色的setup-patchesreset-ticksendtosetup-patchesaskpatches[setup-nest设置蚁巢setup-food设置食物recolor-patch]蚂蚁颜色的设置endtosetup-nest设置蚁巢的具体程序如果在蚁巢里，变量变为1，否则就是0setnest?(distancexy00)<5;;spreadanest-scentoverthewholeworld–在蚁巢旁边更加强烈setnest-scent200-distancexy00endtosetup-food设置食物

4、堆;;setupfoodsourceoneontheright设置食物堆1号在右边的食物堆if(distancexy(0.6*max-pxcor)0)<5设置食物堆1号;;setupfoodsourcetwoonthelower-left设置食物堆2在左下角if(distancexy(-0.6*max-pxcor)(-0.6*max-pycor))<5设置食物堆2号;;setupfoodsourcethreeontheupper-left设置食物堆3在左上方if(distancexy(-0.8*max-pxcor)(0.8*max-

5、pycor))<5设定食物堆3号;;set"food"atsourcestoeither1or2,randomlyiffood-source-number>0[setfoodone-of[12]]endtorecolor-patch给蚂蚁颜色的设定函数设置蚁巢和食物源的颜色ifelsenest?[setpcolorviolet]将蚁巢设置成紫色[ifelsefood>0如果食物数量大于0的话[iffood-source-number=1[setpcolorcyan]食物堆1号，设置成青色iffood-source-number=2[

6、setpcolorsky]食物堆2号，设置成天空色iffood-source-number=3[setpcolorblue]]食物堆3号，设置成蓝色;;scalecolortoshowchemicalconcentration[setpcolorscale-colorgreenchemical0.15]]将含量为0.15的化学物设置为绿色end;;;;;;;;;;;;;;;;;;;;;;;;Goprocedures;;;运行的程序段;;;;;;;;;;;;;;;;;;;;;togo;;foreverbuttonaskturtles[

7、ifwho>=ticks[stop];;delayinitialdepartureifelsecolor=red如果颜色为红色[look-for-food]运行寻找食物的函数[return-to-nest]运行返回蚁巢的函数Wiggle随意走动fd1]diffusechemical(diffusion-rate/100)弥散的化学物质=扩散/100askpatches[setchemicalchemical*(100-evaporation-rate)/100挥发后的化学物质recolor-patch]tickendtoreturn

8、-to-nest回到蚁巢之后的运行程序具体函数代码ifelsenest?[;;dropfoodandheadoutagain放下食物，头伸出来探测setcolorred设置颜色为红色，表示没有携带食物rt180]转向180度[setc