看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
' S5 a/ E, _& \4 M) k" h+ r3 A4 A
1 t/ H( {& P: p" o) T3 o; G3 a但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

9 `% q7 x6 j8 ?' pturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
2 ?, F  s% u, L# A! Gto new
4 ^- y% g# \. v% [$ \/ |  ca
9 B5 H2 f% }1 v  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
# v4 e- r$ D6 r8 B2 G; Xto scatter
ask turtles with [remainder who 5 = 0]
[
6 W2 s7 K5 k/ Pset xcor xcor - 6 + random-float 15
, C- u" o$ I( K. z' S- R! bset ycor ycor - 6 + random-float 15
]
' J+ U! F  B/ x0 V, x/ h# P3 F, [, Mend
to unit_plan
ask turtles [
! L2 O0 v* z  V" c2 o% T9 d, Z8 m# ~: `if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
. H! R$ _7 j/ p  Q! R/ }                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
2 q+ i0 K1 J- I; p( q                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
+ H, w5 w5 K( a# J+ i# G" n' \. @   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
) H* f9 F7 _6 m' Q$ ]# B& ?4 @         
            
; E1 Y/ f7 z; s' }if (remainder who 5 = 3) [set k who
8 O# v0 F7 c- ~5 m1 T1 ?  r                          set x( Wid / 2)  
0 a7 |0 ?6 U: {3 c- m) D                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
& o7 h) ]( H5 b           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
1 q5 `3 f8 z! v+ q$ a                          set h  int (g / 5) * 5
1 C; j) ?- r4 r  setxy   ( xcor-of turtle h + x )
) F$ n3 m) V  ]5 ?" r7 z) ~1 i. ^           (ycor-of turtle h + y )
                          
0 g0 Y: m0 |) n' M                          
                          ]
end
5 N* z- I$ Y# ~/ @
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
5 T6 n/ E' L* v9 C+ V9 ]4 _' ^应该是
3 l/ A  |0 R$ R6 h3 a4 ^- }5 Hask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
  ~( z& t: Y: n                          set y  Dep / 2
4 C% p3 O: i0 H% x8 x* w' d           set b  int (who / 5) * 5
+ ?5 f3 h- _; K4 [0 I    setxy ( xcor-of turtle b + x )
+ a/ B/ z7 j4 `0 ]6 k5 y          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现