看看这段代码的问题

etamina

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

& J& u  W- b3 Q* \. m但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
' h: d: A% o9 {3 R, ~3 e% k$ {
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
' A9 d; y+ y$ a]
to new
  ca
  crt 5 * num_of_building
5 S7 E1 p: g& F* R  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
& w- [; ?, n" y7 |: `" r  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
' U8 F- i; H3 c9 T' Rend
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
( i' f. r8 L6 r& qif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
0 m" x( b) D+ E    setxy ( xcor-of turtle b + x )
) R. |& I+ F! R( Z( o" f          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
' `7 G. P0 I+ v                          set x ( 0 - Wid / 2 )
9 c+ Y) h% U, c% K& _1 Q( o                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
4 {6 y% F0 Z1 w9 ?! ~6 }         
& l/ r$ v1 ]( Y5 d3 p% Q( G3 ~* A            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
/ F* Z7 \% A# u3 G                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
: p/ W" i0 K6 ^# J( C0 b  setxy   ( xcor-of turtle f + x )
5 V/ ~$ i, S/ J           (ycor-of turtle f + y )
           
           
& j3 _# h8 f5 s' {! {if (remainder who 5 = 4) [set g who
8 U3 n- t$ h2 `1 F- z# P/ t                          set x Wid / 2
2 w$ F8 f5 C& y! _  t9 z                          set y  Dep / 2 ]
; T% x: J) X3 E9 d8 y2 J; E                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
, z! I4 s2 Z- u2 E/ |$ b* o7 N( S+ o           (ycor-of turtle h + y )
                          
                          
                          ]
6 ?! r6 j9 J1 [( o, s8 V: d3 ^7 C# b+ fend
% N1 U  Y# G. m$ |8 D$ v/ z/ _
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
# L4 r1 q/ ?4 T; @' O* v2 r& ]5 S应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
  }0 M, M: [- m$ F% y" A    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现