qq_42418728的博客

实现效果：蚂蚁旅行商源码globals [count1 min1 min_list iteration holes_list prior changed]breed [ants ant]breed [holes hole]ants-own [age hos_already km moving nearest]holes-own [dis_list phe_list conbine_list]extensions [rnd]to setup ca set...

向量定向法，更新狼的移动方向globals[flag]breed[cats cat]breed[dogs dog]to update_heading;red to find black let x1 1 let y1 1 let x2 1 let y2 1 let hea 0 ask turtles with [color = red][ set x1...

globals [ initial-trees ;; how many trees (green patches) we started with burned-trees ;; how many have burned so far]breed [fires fire] ;; bright red turtles -- the leading edge of th...

turtles-own [energy]to setup __clear-all-and-reset-ticks reset-ticks ask patches[ ifelse random-float 1 < 0.2 [ set pcolor green ] [ set pcolor black ] ] ...

兰顿蚂蚁的规则：当前若为黑地，则向左转90度并设置当前块为白色，再向前进一个单位 当前若为白地，则向右转90度并设置当前块为黑色，再向前进一个单位特点：当模型进展到一定程度后，蚂蚁会挖掘一条High_Speed_Channelto setup __clear-all-and-reset-ticks reset-ticks create-turtles 1[ se...

patches-own [living]to setup __clear-all-and-reset-ticks ask patches[;if rannum < 0.2,a cell born,else nothing happend ifelse random-float 1 < 0.2[ set pcolor black ] [ ...

to setup __clear-all-and-reset-ticks create-turtles 50[ setxy random-xcor random-ycor ] set-default-shape turtles "circle"endto go ask turtles[ if random-float 1 < prob[...