看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
( Z: V8 C/ \. k# [
  K1 B( w; ^; }0 M9 H! oturtles-own [a b c d k f g h
/ S3 r8 Z, ?9 V- y  f- G* H2 X  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
# T" [/ n. W. Uto new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
! H, k+ Y2 X( C  unit_plan   ;;make up the building plan
end
to scatter
& k* N  j0 I' h; i, Bask turtles with [remainder who 5 = 0]
; D4 _" i( p7 C, X4 d/ P- ?[
/ `' L' Z$ h; H8 M( Eset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
4 J. A0 G* J3 D! E& s/ e& r$ q]
end
$ @" Z; u6 H4 [1 d6 s5 Vto unit_plan
- i' O1 n- \6 M) Z$ L$ D; f. Aask turtles [
  ?  W2 P+ q6 i* Eif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
7 v! h) ~9 D0 L- R    setxy ( xcor-of turtle b + x )
( o7 z6 r+ K& d* Y8 n9 K7 C          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
! U+ ?8 q( X; s. P5 M                          set d int (c / 5) * 5
. F% ]$ u* ?3 l5 M2 q' g: g   setxy   ( xcor-of turtle d + x )
; h& c+ g& K2 c; k2 u           (ycor-of turtle d + y )
         
            
& j: B5 T0 c) h% Pif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
5 i4 L- B- z  o& R* g: v3 I# C                          set f int (k / 5) * 5
! X+ X  Z6 \  Y* t$ l/ b& e  setxy   ( xcor-of turtle f + x )
6 O1 r- P7 F2 G& |, l           (ycor-of turtle f + y )
: l; U: j7 U6 @' |% }           
0 ~2 L' t  s7 e4 D9 F           
% M4 _8 J( h6 W% l/ q  |if (remainder who 5 = 4) [set g who
                          set x Wid / 2
! f0 H& G# N' m0 @' g# y. B                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
" i2 F% }& r: h1 q, r7 P* f2 O  setxy   ( xcor-of turtle h + x )
' n. y# e) v: F' I% u% O           (ycor-of turtle h + y )
                          
                          
5 C/ a& S6 D  b# D/ e  O                          ]
end

* Y3 J9 d# e4 v0 U2 J[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
) T! P; M9 J: Z$ |; }- ?0 hask turtles [
  [9 d$ E1 |8 {if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
2 H  S8 N5 |* h" J8 _% m' ?' c4 n                          set y  Dep / 2
, m' V8 }- x; R# e( z2 o7 q           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
9 V0 S2 x6 \! g* q2 cend
$ Z9 Q! K8 c7 Y3 t2 E- z2 n$ q之前有个括号位置不对没发现