看看这段代码的问题

etamina

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

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

turtles-own [a b c d k f g h
$ \3 B, }5 A) E% K  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
2 u* i( E& Z* Nto new
- V3 G- a, A) b5 N$ q: M$ B( e  ca
& A- \  s# H) `0 w) `" v( R1 D2 h  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
$ ~! m4 j" _" E$ N; Y5 D- Ato scatter
. v1 J( S1 U! ]0 h" `ask turtles with [remainder who 5 = 0]
[
1 m8 P) v; q/ zset xcor xcor - 6 + random-float 15
% k3 M$ }; [2 v7 V4 e- Yset ycor ycor - 6 + random-float 15
]
end
to unit_plan
# T3 ]2 [6 k. S0 V' Fask turtles [
if (remainder who 5 = 1) [set a who
$ L% `+ u( Z; q" C5 k; T                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
- W' d& d4 A7 o# l# ?8 n    setxy ( xcor-of turtle b + x )
. ]8 C" l: M  w1 t: u          ( ycor-of turtle b + y )
4 c5 S7 Y2 I/ P4 N7 K! _9 Z/ a% lif (remainder who 5 = 2) [set c who
, n6 _4 F5 g: E0 @                          set x ( 0 - Wid / 2 )
; _. R8 Q' ?7 q3 W, N                          set y (0 - Dep / 2 )  ]
; x* D0 i8 d6 H& q2 [: z7 ~2 c                          set d int (c / 5) * 5
4 `) F8 J5 A7 _5 t6 o   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
$ F0 N( v' S4 ^4 rif (remainder who 5 = 3) [set k who
3 X' ^6 B. y$ k0 }& ?$ x                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
: ]6 e6 B  m8 t* C                          set f int (k / 5) * 5
* W7 Q/ G/ F5 T; {2 \: r1 C& n  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
5 I2 X/ x+ v; {  Y# W# q           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
$ v2 q- K) o, P4 p1 X                          set y  Dep / 2 ]
/ ~  A; b) v0 t# g" E5 r1 T                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
) C; ?1 S& E' y+ y           (ycor-of turtle h + y )
                          
                          
                          ]
  J. j+ Q: Y4 m- R6 b- @7 qend
5 X. X# t  \- i' S* P
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
% d3 {8 `9 e# L5 u( @ask turtles [
, P( W/ w* w: q7 I) [if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
8 L- z1 I) N2 x$ M                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
7 F6 U; n* w7 w: o          ( ycor-of turtle b + y )]]
end
) T: Y1 ^9 G$ |' x  v$ ~0 J+ X之前有个括号位置不对没发现