看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
! V8 Y, a- B- A3 m$ F
7 g, S4 ]! J: S, G/ t但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
, L2 S* h. g0 X' P1 E* c. D% d5 K* q  ca
5 M- B; j( C5 U" k1 C5 a  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
to scatter
ask turtles with [remainder who 5 = 0]
[
. \! P3 t/ Z6 w" D! }set xcor xcor - 6 + random-float 15
% S) t: o6 n8 y7 sset ycor ycor - 6 + random-float 15
: w) [2 ~9 x' M6 T9 Q2 o( t; |% E/ A% W]
0 s6 |2 _( y, j" o0 s6 C, _  cend
' b" U2 `( a! q2 r. ?to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
% j8 r& W4 r) D3 W' y1 d           set b  int (a / 5) * 5
) x# T! N8 o* R3 H    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
) H8 a7 R% t3 ^1 n8 [if (remainder who 5 = 2) [set c who
7 O  f3 `5 S8 }                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
$ B6 k% l! z: l/ i6 M           (ycor-of turtle d + y )
2 W4 c/ i( A& t/ I% D         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
6 k: W; [! ^8 X- b  d) w$ C9 s8 ~  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
  u8 ~* \+ t' V# F6 N2 Y6 z           
           
' o9 N, S: e2 m1 d3 kif (remainder who 5 = 4) [set g who
4 E7 D: Q0 N/ b5 t                          set x Wid / 2
3 X* z: a+ U7 }                          set y  Dep / 2 ]
* a( ~! Y/ \9 q" t& ^                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
3 G- t+ g2 a1 T/ V5 `           (ycor-of turtle h + y )
                          
+ t2 x; ^6 J. z/ l                          
                          ]
end
( J- s' g: b# k% o6 ^% e: Q6 s
, M- z7 S  ^3 j[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
" ]" L- n+ m8 \( p应该是
ask turtles [
( |- e  k- X% sif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
3 S" }0 S5 t" `# j- ^% l    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现