看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
! }: h# _' @1 U$ |6 F
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
* o: a1 t. Y% w" b! r) o7 g
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
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
) x/ g2 g* M$ d+ g  scatter     ;;keep center-turtle random positions
9 G+ B( u. G" N; Y; j* H+ g  unit_plan   ;;make up the building plan
end
to scatter
/ K( P' j+ U6 p. y8 s3 U& a3 y) Zask turtles with [remainder who 5 = 0]
, S8 t; Z+ D9 N8 _0 K1 U9 ]$ g[
% @) r/ H7 Y# \set xcor xcor - 6 + random-float 15
" I( W6 [7 A- m0 sset ycor ycor - 6 + random-float 15
2 G' Y1 @; B0 V- P6 g4 z: U! y]
# T" x% {3 v5 N6 p. Q% fend
to unit_plan
2 @! J! Z2 O$ S7 N+ |8 l9 {ask turtles [
+ Q! }2 K9 ]0 K4 F3 J: _3 a7 Qif (remainder who 5 = 1) [set a who
. I9 j! s; m: P$ U# a! F! e                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
' ~( g* i7 s& R) m    setxy ( xcor-of turtle b + x )
- }6 v; }! n; t3 `) B) A( v          ( ycor-of turtle b + y )
, i" O' H2 o9 G9 Xif (remainder who 5 = 2) [set c who
9 l4 ~) q1 ?+ n1 N! C5 S                          set x ( 0 - Wid / 2 )
7 _' j2 i) x9 Z                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
. D( _8 V6 u! p4 b6 n8 D6 k/ E* ^* t   setxy   ( xcor-of turtle d + x )
% z5 n( v( _- B' G           (ycor-of turtle d + y )
: M" G) a+ K. w5 a2 i# j  t         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
7 H5 ]9 q; k* S3 M                          set f int (k / 5) * 5
+ a7 x% _8 D/ F& \  setxy   ( xcor-of turtle f + x )
% t4 M! v3 A' n, m/ m6 o5 R  B           (ycor-of turtle f + y )
4 r+ F/ I! i; T6 y; I/ W           
3 T! N- K! o3 C) i5 R           
4 i" V9 \6 v; }if (remainder who 5 = 4) [set g who
3 X+ _* D' P5 R$ ?2 M) j                          set x Wid / 2
/ d! P# Q3 q. ^0 C                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
/ |, x& b5 w" t: R) B, O+ G3 Z3 A  setxy   ( xcor-of turtle h + x )
% K0 n# ]2 n; Z) w           (ycor-of turtle h + y )
3 e" H' f" J2 R7 T' x                          
                          
                          ]
end

[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
( s( |- w9 K- v( G5 `; G) H应该是
ask turtles [
' X; y; b4 v$ J! h6 Hif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
5 K9 Y0 C! U$ c8 t( o& T( m" f    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现