南郵 系統(tǒng)工程

課內(nèi)實(shí)驗(yàn)報(bào)告課程名： 系統(tǒng)工任課教師： 朱衛(wèi)未專 業(yè)： 工商管學(xué) 號： B11110411姓 名： 肖沐陽二○一三至二○一四年度第1學(xué)期南京郵電大學(xué)經(jīng)濟(jì)與管理學(xué)院《系統(tǒng)工程》課程實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)內(nèi)容及基本要求：實(shí)驗(yàn)項(xiàng)目名稱：實(shí)驗(yàn)類型：設(shè)計(jì)每組人數(shù)：1實(shí)驗(yàn)內(nèi)容及要求：Netlogo編程語言的特點(diǎn)和基本語法。NetlogoModel的語句解析和仿真流程分析。實(shí)驗(yàn)過程與結(jié)果：語句解析：patches-own[chemical ;;在這個運(yùn)行單位上的化學(xué)物質(zhì)（個人理解為痕跡分子）數(shù)量food ;;(0,1,或者2)nest? ;;真正的蟻巢運(yùn)行單位，其他的不是nest-scent ;; 最接近蟻巢的數(shù)量food-source-number ;;編號（1，23）來識別食物源];;;;;;;;;;;;;;;;;;;;;;;;;;;Setupprocedures設(shè)置程序;;;;;;;;;;;;;;;;;;;;;;;;;;;tosetupclear-allset-default-shapeturtles"bug"crtpopulation[setsize2 ;;更容易看到setcolorred ] ;;紅色=不是在搬食物setup-patchesreset-ticksendtosetup-patchesaskpatches[setup-nestsetup-foodrecolor-patch]endtosetup-nest ;;;;設(shè)置巢？變量設(shè)置為true的巢內(nèi)，其他的不是setnest?(distancexy00)<5;;散布巢的味道在整個世界-越靠近蟻巢氣味越強(qiáng)setnest-scent200-distancexy00endtosetup-food ;;;;在右邊設(shè)置第一個食物源if(distancexy(0.6*max-pxcor)0)<[setfood-source-number1];;在左下方設(shè)定第二個食物源if(distancexy(-0.6*max-pxcor)(-0.6*max-pycor))<[setfood-source-number2];;在左上方設(shè)定第三個食物源if(distancexy(-0.8*max-pxcor)(0.8*max-pycor))<[setfood-source-number3];;在食物源內(nèi)設(shè)置的“食數(shù)量”為1或2，隨機(jī)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];;按比例縮放顏色以顯示化學(xué)物質(zhì)（氣味）的濃度[setpcolorscale-colorgreenchemical0.15]]end;;;;;;;;;;;;;;;;;;;;;;;;Goprocedures;;;;;;;;;;;;;;;;;;;;;;;;togo ;;按鈕為永遠(yuǎn)模式askturtles[ifwho>=ticks[stop];;延遲最初離開的時間ifelsecolor=red[look-for-food ] ;;沒有搬運(yùn)食?是在尋找食[return-to-nest] ;;在搬運(yùn)食?把它帶回巢wigglefd1]diffusechemical(diffusion-rate/100)askpatches[setchemicalchemical*(100-evaporation-rate)/100 ;;慢慢消散的化學(xué)物質(zhì)（氣味）recolor-patch]tickendtoreturn-to-nest ;;龜?shù)某绦騣felsenest?[;;將食物放回巢再重新出來尋找setcolorredrt180][setchemicalchemical+60 ;;留下一些化學(xué)物質(zhì)uphill-nest-scent] ;;朝向化學(xué)物質(zhì)濃度最大的方向前進(jìn)endtolook-for-food ;;龜?shù)某绦騣ffood>0[setcolororange+1 ;;拾起食物setfoodfood-1 ;;并且減少一個食物源中的單位rt180 ;;并轉(zhuǎn)身stop];;走向化學(xué)氣味最強(qiáng)的方向if(chemical>=0.05)and(chemical<[uphill-chemical]end;;嗅左，右，決定去最強(qiáng)的氣味的方向touphill-chemical ;;龜?shù)某绦騦etscent-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;;嗅左，右，決定去最強(qiáng)的氣味的方向touphill-nest-scent ;;龜?shù)某绦騦etscent-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 ;;龜?shù)某绦騬trandom40ltrandom40ifnotcan-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;版權(quán)所有1997UriWilensky.;請參見信息的的完整版權(quán)與授權(quán)索引標(biāo)簽基本算法流程分析：“SETUP”按鈕設(shè)置螞蟻巢（紫，在中心）按鈕開始仿真。evaporation-rate滑塊控制痕跡氣味的蒸發(fā)率。而diffusion-rate滑塊控制的是氣味擴(kuò)散率?？梢砸苿踊瑝K控制螞蟻的數(shù)量。螞蟻只對氣味濃度0.052uphill-chemical””“嗅探”