看看这段代码的问题

etamina

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

/ n' U) ^3 V! T6 R' F但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
! u  `8 S4 F' U
turtles-own [a b c d k f g h
) ~) {' }8 y+ Q; N+ {. a0 l1 G  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
/ J1 m( w* e) D' k! D8 B1 u]
7 N. T! c3 W5 m4 a) [to new
  ca
% [% u* A) _2 ~  crt 5 * num_of_building
) ?! R2 D/ O- R' d* S6 \% _  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  W' e; k0 g3 P8 N: f  scatter     ;;keep center-turtle random positions
! d3 _( H) w% Q! [: h  unit_plan   ;;make up the building plan
end
3 z. C5 |$ b; W; U* |/ [* S8 oto scatter
ask turtles with [remainder who 5 = 0]
% _2 \% {0 S2 n1 W7 O7 q: f) p[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
5 b$ @1 z8 I& t: m* M6 a" kend
4 w+ P1 P* W& C+ F/ W- `1 B7 }7 w+ `to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
) {) m* W2 B; X# {                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
# n! m; i  Q) y5 [$ {0 ]: _          ( ycor-of turtle b + y )
5 u% Y5 ]7 n& G2 r+ \9 ?4 Uif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
7 L0 v. [; n6 f7 [$ g5 E) C* w' G+ X                          set y (0 - Dep / 2 )  ]
2 h2 j* h' d% o" V. ?1 X                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
4 p" ~) C. p+ P' f* H9 m6 _; w           (ycor-of turtle d + y )
         
; Z( F/ n: x" O            
* ^3 n4 u1 [0 V+ `if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
. P; y8 p8 H$ o& U9 s0 n* l: E  setxy   ( xcor-of turtle f + x )
5 k$ n0 r$ b/ `/ ~           (ycor-of turtle f + y )
2 S4 f" g" d" T8 b* m5 j$ X           
; u" ^& f, z' t; l# l# T/ y           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
8 K  O! m' {8 g/ Q2 S- D                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
5 H' m* n2 I2 f2 R1 n3 F  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
- \$ j) a1 T5 j- ?9 O1 R& m  O/ D& e8 N; h                          
                          
. v, g" @7 u, Q                          ]
end
. X/ y: D1 ~+ o+ x
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
7 H' q7 z+ P& P4 m  }+ z+ w: kif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
2 I/ Q( |4 S4 b: G                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
/ x% S2 U. }) h5 X6 t0 Wend
2 g0 B! k9 M$ n" C$ F# p+ U之前有个括号位置不对没发现