看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

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]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
, E. I) a' ^1 L) ?to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
& g& a) ]3 T- z0 b/ ?2 `4 hset ycor ycor - 6 + random-float 15
]
, ?7 O8 ]- N7 E, |  Lend
/ t- E" \- _' X- pto unit_plan
/ g/ ^% ]' n0 f' n  ?" K! bask turtles [
1 d* G+ m* v" I, y$ I( G: A0 `if (remainder who 5 = 1) [set a who
. }* B. ~) E" V0 W                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
4 S! H$ k  i3 @7 D2 R/ B8 a5 p           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
3 C7 A3 S, j0 k! y2 g2 U0 L4 h: Z5 ]; t          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
) d+ g* ]- V# u( G7 J: j; o                          set y (0 - Dep / 2 )  ]
) p; O8 v: {2 H9 B                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
$ E4 r$ s3 z! y0 A           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
" t( m; _5 O0 x' y" r; K                          set x( Wid / 2)  
5 N$ J+ v! A: T; T! x                          set y (0 - Dep / 2 ) ]
& N, s" M; o+ i1 S1 ?                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
8 U% W2 H& [$ ?4 s/ Y           (ycor-of turtle f + y )
4 J) u& l! ^8 J9 J           
) }. t8 Z& r2 `0 [           
' s0 y! I6 ]: ~* iif (remainder who 5 = 4) [set g who
& z6 V1 o; W' q! K                          set x Wid / 2
# e6 b5 A8 N3 |. b1 n) d% D                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
. F/ V- Q/ D7 P) j/ _" u1 T& V           (ycor-of turtle h + y )
* m% T3 }' @6 Y2 z1 h1 O" _                          
/ r2 J8 N$ U4 [  K  a: q+ N                          
- k0 m9 ?, x& f- `                          ]
, u& t5 P. c, N5 J; G4 q, |, P) y3 xend
( r9 ]; d/ k# ^! C3 E! c
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
6 b8 j' e0 `* ]4 N7 }if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
: r; y) ]! M3 ?8 l( L          ( ycor-of turtle b + y )]]
end
; W( a$ R& H& P( K7 F6 t; t& Q# u* ]! f之前有个括号位置不对没发现