netlogo代码.docVIP

breed [persons person] breed [bugs bug] persons-own[ ;设置人的个人属性：情感 emotion ] bugs-own[ ;设置物的个人属性：情感 emotion ] to do-plot ;用于计算物的数量和情感的值 set-current-plot num set-current-plot-pen plot-1 plot count bugs set-current-plot emotion set-current-plot-pen emotion-1 ask bugs[ plot emotion ] end to direction-decision ;为距离门远的逃跑对象设置“邻居”，根据人的心理尽可 ;能模拟逃跑现场 ask bugs with [xcor 26][ let x bugs-on neighbors let temp-direction heading let temp-emotion emotion let sum-heading 0 let ne-num count x if (ne-num = 1 )[ ask x[set shape circle set sum-heading sum-heading + heading ] set sum-heading sum-heading / ne-num set temp-direction sum-heading ] set heading temp-direction ifelse(xcor = 4 and heading = 180 and heading 360) ;之后的ifelse代码是为了防止当逃跑对象 ;撞到墙后采取合理的转向 [ ; show 11111111111111111111 set heading random 90 + 45 ][ ifelse (ycor = 26 and( ( heading = 270 and heading = 360 ) or (heading 0 and heading = 90)) )[ ; show 222222222222222222222 set heading random 90 + 45 ][ if (ycor = 4 and heading = 90 and heading 270)[ ; show 3333333333333333 set heading random 90 + 45 ]]] fd 0.2 ] end to init ;init是为了模拟现场环境声明的必要变量和属性 clear-all create-persons 5 [ set xcor random 25 + 3 set ycor random 25 + 3 set shape person set size 1.5 set color white set emotion random-float 0.2 ] create-bugs ss [ set xcor random 25 + 3 set ycor random 25 + 3 set shape bug set size 1.0 set emotion random-float 0.2 ] ask patches [ set pcolor black ] ask patches [ if( pxcor = 2 and pycor = 2 and pycor = 28 );zuo