看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
- e2 ^9 m5 u# L$ j8 C4 L9 N% A8 ^
turtles-own [a b c d k f g h
) I+ I* o7 S7 Y5 t8 G, K  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
: }$ p# j8 \) i8 W]
) G! _. k6 h9 i0 ^- f' F  e2 L7 n1 ^6 tto new
  ca
1 W. z6 v$ S% f- |/ x  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
" I" b! \, a, E8 u: G! t( q  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
6 Z) R, \) b* j. F) ~5 rask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
0 }* k1 W5 B9 F$ C' H' D: a9 ]2 Y2 Yend
to unit_plan
; n# L: d& m; K: u2 Xask turtles [
  k8 Q2 N1 l* t! D6 ~: J( e5 aif (remainder who 5 = 1) [set a who
8 x, e5 ~* b) j                          set x ( 0 - Wid / 2 )
5 u1 w% b/ v/ M8 @% U! ~                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
* D+ n& n# C" y& i% @    setxy ( xcor-of turtle b + x )
* e+ O/ g! l9 B          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
5 q! a2 a  ?; k                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
+ b! D- e. @0 e* T1 r% a/ J- ]         
/ J  w) e. W% ^9 j# F$ d' Q            
, o0 b# d3 l, \7 x/ w, Qif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
! k3 f/ {8 s; _: {) J& P0 H" u- g: Q           (ycor-of turtle f + y )
           
" Z. ]8 u, p. [0 K8 b1 n4 i           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
+ f7 B+ l4 @7 v+ m' j" i" h  k4 I           (ycor-of turtle h + y )
                          
6 h, N- v5 s8 n: V! `                          
' u5 l" G, i: W) _$ i                          ]
$ i2 |2 X. [  cend

: ~+ e& ?, B5 R8 P: V( U) n; t# C) O[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
- Z# A4 I. \4 [) f7 h  I应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
" }9 ~+ a$ Z5 e$ {2 A1 a    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
. n  h9 B6 K' V  yend
之前有个括号位置不对没发现