set-default-shape turtles "circle" ;;设置海龟的形状 : ^5 `) v0 i5 g# ^+ Ucreate-turtles m0 [set color blue ;; 创建m0只海龟,每只的颜色为蓝色,大小为1 / Z- V7 U4 T- d7 ]- b set size 1) E, m% b' X y
] , f6 G) H$ m) `7 Q while [count links < e0] 0 A m7 C8 O Z& Q% R+ i2 U1 Y [ ;; 创建e0条边' e- G X# U# v" S
ask one-of turtles [create-link-with one-of other turtles]" J, I+ V# J4 K+ F3 m- Y
] ) |' |4 P/ U. M& g% E4 Gask n-of M turtles [set color red] ;; 随机地选择M只海龟,颜色为红色就当作是一个群