看看这段代码的问题

etamina

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

3 a5 ^: c+ j1 }1 g. c$ E& A- A但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
4 `3 z0 g$ f- `8 r  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
! q( o/ H4 l, F5 A- Kto new
# A' y7 F8 s# \0 N. |  ca
- o3 K) H9 w1 r, t: H3 [  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
9 E. T+ w" ?3 b- V  unit_plan   ;;make up the building plan
5 v: A( _2 P# _" e- j- M* _4 Q& ~end
to scatter
ask turtles with [remainder who 5 = 0]
& r$ P/ p) W, S+ o7 x[
: P5 |! p- u- m, R& o& s3 j4 A0 n+ fset xcor xcor - 6 + random-float 15
; R' u! i$ f9 s  [( T7 o: F. }set ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
: p1 ^2 {. g- v: X8 ]$ i/ |' ^if (remainder who 5 = 1) [set a who
1 T' ^7 t- v0 s- ^# T& O                          set x ( 0 - Wid / 2 )
  I- ^7 m) P) K/ s( {* h2 X2 k                          set y  Dep / 2 ]
! L4 U6 j8 `. j2 w3 J1 a           set b  int (a / 5) * 5
" i6 u- J+ K, {' E: f9 u3 L7 Z9 W    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
. `" m: s& H4 @# p( Qif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
/ N% o4 K7 H9 L, i3 x* J- M+ Z   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
5 M  s* }8 O6 B0 q- Y                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
) o, }6 D2 ~8 B7 W( m6 t1 d/ B           
' V" S7 [- L' K           
if (remainder who 5 = 4) [set g who
, c. P3 S7 _% F* }4 a  p' U6 J                          set x Wid / 2
" Z8 k3 d5 v  v3 ]% K' x                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
                          ]
end
7 H+ @: u, w& d) m" V! F  k/ v
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
: n7 b2 U) e! U* n           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
4 u) k" x5 c, s' F' Z          ( ycor-of turtle b + y )]]
" ]' e( ]+ Y; Oend
之前有个括号位置不对没发现