南邮 系统工程

课内实验报告课程名： 系统工任课教师： 朱卫未专 业： 工商管学 号： B11110411姓 名： 肖沐阳二○一三至二○一四年度第1学期南京邮电大学经济与管理学院《系统工程》课程实验报告实验内容及基本要求：实验项目名称：实验类型：设计每组人数：1实验内容及要求：Netlogo编程语言的特点和基本语法。NetlogoModel的语句解析和仿真流程分析。实验过程与结果：语句解析：patches-own[chemical ;;在这个运行单位上的化学物质（个人理解为痕迹分子）数量food ;;(0,1,或者2)nest? ;;真正的蚁巢运行单位，其他的不是nest-scent ;; 最接近蚁巢的数量food-source-number ;;编号（1，23）来识别食物源];;;;;;;;;;;;;;;;;;;;;;;;;;;Setupprocedures设置程序;;;;;;;;;;;;;;;;;;;;;;;;;;;tosetupclear-allset-default-shapeturtles"bug"crtpopulation[setsize2 ;;更容易看到setcolorred ] ;;红色=不是在搬食物setup-patchesreset-ticksendtosetup-patchesaskpatches[setup-nestsetup-foodrecolor-patch]endtosetup-nest ;;;;设置巢？变量设置为true的巢内，其他的不是setnest?(distancexy00)<5;;散布巢的味道在整个世界-越靠近蚁巢气味越强setnest-scent200-distancexy00endtosetup-food ;;;;在右边设置第一个食物源if(distancexy(0.6*max-pxcor)0)<[setfood-source-number1];;在左下方设定第二个食物源if(distancexy(-0.6*max-pxcor)(-0.6*max-pycor))<[setfood-source-number2];;在左上方设定第三个食物源if(distancexy(-0.8*max-pxcor)(0.8*max-pycor))<[setfood-source-number3];;在食物源内设置的“食数量”为1或2，随机iffood-source-number>0[setfoodone-of[12]]endtorecolor-patch ;;;;给蚁巢和食物源着色ifelsenest?[setpcolorviolet][ifelsefood>0[iffood-source-number=1[setpcolorcyan]iffood-source-number=2[setpcolorsky ]iffood-source-number=3[setpcolorblue];;按比例缩放颜色以显示化学物质（气味）的浓度[setpcolorscale-colorgreenchemical0.15]]end;;;;;;;;;;;;;;;;;;;;;;;;Goprocedures;;;;;;;;;;;;;;;;;;;;;;;;togo ;;按钮为永远模式askturtles[ifwho>=ticks[stop];;延迟最初离开的时间ifelsecolor=red[look-for-food ] ;;没有搬运食?是在寻找食[return-to-nest] ;;在搬运食?把它带回巢wigglefd1]diffusechemical(diffusion-rate/100)askpatches[setchemicalchemical*(100-evaporation-rate)/100 ;;慢慢消散的化学物质（气味）recolor-patch]tickendtoreturn-to-nest ;;龟的程序ifelsenest?[;;将食物放回巢再重新出来寻找setcolorredrt180][setchemicalchemical+60 ;;留下一些化学物质uphill-nest-scent] ;;朝向化学物质浓度最大的方向前进endtolook-for-food ;;龟的程序iffood>0[setcolororange+1 ;;拾起食物setfoodfood-1 ;;并且减少一个食物源中的单位rt180 ;;并转身stop];;走向化学气味最强的方向if(chemical>=0.05)and(chemical<[uphill-chemical]end;;嗅左，右，决定去最强的气味的方向touphill-chemical ;;龟的程序letscent-aheadchemical-scent-at-angle letscent-rightchemical-scent-at-angle 45letscent-left chemical-scent-at-angle-45if(scent-right>scent-ahead)or(scent-left>scent-ahead)[ifelsescent-right>scent-left[rt45][lt45]end;;嗅左，右，决定去最强的气味的方向touphill-nest-scent ;;龟的程序letscent-aheadnest-scent-at-angle letscent-rightnest-scent-at-angle 45letscent-left nest-scent-at-angle-45if(scent-right>scent-ahead)or(scent-left>scent-ahead)[ifelsescent-right>scent-left[rt45][lt45]endtowiggle ;;龟的程序rtrandom40ltrandom40ifnotcan-move?1[rt180]endto-reportnest-scent-at-angle[angle]letppatch-right-and-aheadangle1ifp=nobody[report0]report[nest-scent]ofpendto-reportchemical-scent-at-angle[angle]letppatch-right-and-aheadangle1ifp=nobody[report0]report[chemical]ofpEnd;版权所有1997UriWilensky.;请参见信息的的完整版权与授权索引标签基本算法流程分析：“SETUP”按钮设置蚂蚁巢（紫，在中心）按钮开始仿真。evaporation-rate滑块控制痕迹气味的蒸发率。而diffusion-rate滑块控制的是气味扩散率。可以移动滑块控制蚂蚁的数量。蚂蚁只对气味浓度0.052uphill-chemical””“嗅探”