用netlogo吧 可能差不多 0 W% @! Y( M+ V* |- L4 G: N" F* i3 m! O6 Z$ r' E8 ^8 m. ^8 P
turtles-own[g h] 0 n$ b* ^7 B* t' f' C) y: Rto setup: A( |4 u% \, W( s- A8 D/ u! f$ o2 P
ca 8 {( Y% v/ r* ~! J+ }: Z crt 50[set shape "circle" setxy random-xcor random-ycor] # D7 W5 N T6 ?1 b* `" mend ; c7 N @/ |" F% D% L' R0 fto go & ]) X2 Y1 i0 I" q ask turtles [set g random-float 150 " _+ J; L5 X0 B' e# }2 ~ set h random-float 50]' s8 M' J( G- k! o! T& ~
# z/ c) E$ }6 @0 @' { G y
+ {4 J$ s2 B2 w; Z ask turtles + x8 D: W0 }8 L8 s: |2 D X [ifelse max-one-of turtles-on neighbors [g] != nobody# s; E. O$ I' y" e2 J& W! _
* V* C& Y D' P* o2 @ [set h [h] of max-one-of turtles-on neighbors [g]] ! O& T; V8 p0 K [set h [h] of self] ( l. i& x/ q% Z9 D' v) {2 p " [, R: s% M9 o9 Y( {9 l# l
]8 R4 B7 \2 B1 U/ d
/ I9 @7 b! A# Z" W: ^2 B end % r5 t' A* \9 \ c类似这样的吧。