看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
# H: ]$ Q7 s, Q& E" E8 P$ b" [
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

' u8 K# i# J! J' Uturtles-own [a b c d k f g h
- z3 Y2 b' P) q3 c8 m% x% W& Y. `6 Q  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
  crt 5 * num_of_building
/ v( @" y) K  f$ Z  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
( |9 `& ^* E6 k2 _3 d  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
7 E& c0 H% x- L4 nend
to scatter
ask turtles with [remainder who 5 = 0]
6 ~: \' e" r9 R* H[
set xcor xcor - 6 + random-float 15
# k: F3 [; Q. G- f! gset ycor ycor - 6 + random-float 15
) p5 ]" Y; W& `]
1 I$ J+ j1 \. O2 m$ D: kend
# a* s8 K: F+ i5 B3 I4 G, L! ~to unit_plan
ask turtles [
8 ^7 x9 S0 P! H) u0 }9 P, F, w- kif (remainder who 5 = 1) [set a who
. f. _" O2 |& s  v                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
- i$ z" ]8 w- Y          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
; ]) R0 o' h( c  O  \                          set x ( 0 - Wid / 2 )
- S4 ~2 s0 f4 H& A) }8 n) j                          set y (0 - Dep / 2 )  ]
) a: G9 P6 r: o, t1 _, b                          set d int (c / 5) * 5
! T5 O/ l3 H5 S! P   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
5 D5 c$ ?/ Y  Q" G/ |  q9 pif (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 )
/ w! G: N  v$ t1 I+ b+ _! D1 O           (ycor-of turtle f + y )
6 r% A5 n$ L5 {) x7 x/ y6 b           
           
; V2 M. ?! F) o7 V/ dif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
! S1 w  O. u* P7 a+ Y; J/ F  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
9 o7 J" d9 J- L/ F9 R                          
                          ]
. ~3 w2 E. z. I) |  kend
- L( r  E9 L3 ~( H/ O
+ Y- p+ Z% G' d' u[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
/ g3 {3 [) c$ @' \! U, w                          set y  Dep / 2
           set b  int (who / 5) * 5
' I- a1 j4 p: ~  S% X: c    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现