看看这段代码的问题

etamina

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

! r- y4 e% V7 @& {$ h但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
" O; ]: X- g7 K8 V1 E6 w, a/ W# ~9 n
9 g7 ~; b$ Z1 P" n& a$ |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
  ca
) P& X* `5 x: D0 e" C0 O5 b5 [+ |* |  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]
0 e6 i$ D" Q* h% e[
4 S8 q2 f# r( U& g- q# H- Lset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
0 `- t0 s, l( Vto unit_plan
* L  g1 M. Y* k$ hask turtles [
if (remainder who 5 = 1) [set a who
# H* U! t4 w5 P4 t8 }: o, p                          set x ( 0 - Wid / 2 )
- v" v) v1 i3 ~2 u* I) a                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
7 g1 ~7 B1 [4 q. X7 j          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
5 m: S- O: t2 C+ t+ }) H- p                          set x ( 0 - Wid / 2 )
. S9 d7 p. R# p1 z: U" F" K                          set y (0 - Dep / 2 )  ]
& s2 f% E2 l1 s# ?! c, \                          set d int (c / 5) * 5
) u- F& V7 g/ H" \3 i& h# H   setxy   ( xcor-of turtle d + x )
# B& N. ^" A7 K. m& @! r) m           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
( q5 b# j( U9 P7 H; n* X  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
& P2 C( T! U* x4 k# l) J1 R           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
+ P0 F) a8 M: Q' N  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
0 {; p2 S' x3 y9 u! [# j' r( F1 s1 o" w                          
6 |' P  C$ t2 p* ~( Q                          ]
/ t( y0 r: l9 l. B2 zend

' I7 A3 D' P! t) ]$ \[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
# i& d4 J  a) \( r& F应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
5 }* E  o; M  L7 z9 N6 s; m& f                          set y  Dep / 2
. m# g0 V  R- @/ \2 l+ z& n           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现