请问：
8 K- z. Z" n* e& U. @, A0 R9 w随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？
% ?4 l$ \9 X% s+ j: H% j8 X" O8 [' L. X$ [) q) a8 h
/ a' \& [' z$ o& k5 s5 v- C! A* s
turtles-own [ energy ]
7 y: m2 v: d: M$ X7 |to setup( ?6 |# H4 { k
clear-all8 `& n' L! | t. d" v/ w# }
set-default-shape turtles "square"
% t0 d" X0 U% _7 D& S0 Q1 ~crt nutrition
* J, W8 ~9 ~5 H( R% J3 w' A% b" x( W, Wask turtles[/ I4 A( k! r7 w; ^
set color white
0 `3 X& `$ S4 S) S" a1 ^! e) H/ q6 b' i setxy random-pxcor random-pycor]5 n+ N& g8 O# l
( a5 D2 z( d/ u, _
ask n-of microbes-initialization patches
" T' r2 X& Z& Y4 k3 E [ set pcolor green]
: V0 n. \$ m' ^0 r ask turtles [set energy 1]
4 A% U$ Z9 a& g( x+ c4 }7 vend
5 x0 L+ z' `* U! `1 M# R: a
' d+ e" H5 D1 R4 Gto go
+ G; y* _$ Q/ Y: w ask turtles [set heading 90 * random 4 fd 1]
9 ?% x) b! @. c! Z: J D | ask patches with [ any? turtles-here]5 w z8 D3 u+ |3 T" f6 E
[ if pcolor = green and random 100 < chance-of-congregating [tt ]]
! h( ]+ s4 R; C' C ask turtles [ if energy = 0 [die ]]
& H# Q- _& r% N* f end: }0 k4 M7 X% A* l
C9 K4 v+ M+ A5 r c
to tt
3 Z- I! P [% task patches [set pcolor gray ]
6 l2 @4 u0 g8 H+ ]- K- jask turtles [set energy energy - 1]
2 Y0 v& R d9 y- M" jend
' L4 x, T1 u1 x* l/ n
* ^* O) j9 i" [ |
发表于 2008-4-8 10:49:43
楼主
