看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
$ m- b7 [0 c7 c& @$ j
8 c8 f0 R- m+ _; ~# J4 A! S( ]turtles-own [a b c d k f g h
: M! ~) Z$ m& P8 B  a  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
& T" \  b0 Q  A( A; }5 R8 s]
- G$ j7 F7 v5 D6 G* I& r5 K: Wto 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
( J7 Z5 n/ r; E8 Z. }5 E  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
9 v" \: o7 S+ L( S' U[
set xcor xcor - 6 + random-float 15
3 O; p4 H4 C5 u2 N8 Cset ycor ycor - 6 + random-float 15
! `: f2 ^; [* Q9 J2 a]
end
; A8 Q1 v, n& X% `$ l2 i, b4 |! P6 |( Kto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
$ S6 M' w, ]  t- P; n                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
9 Y1 n, P- C. e    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
3 L1 z$ j+ q, \& X4 @( @if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
& M- F+ V* W7 g6 H                          set d int (c / 5) * 5
# `  Z# p" R2 e1 @& l; X   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
: n7 C5 U( w7 A3 V         
9 {1 o4 F! t2 i4 W4 \* ^            
7 ^# K/ Z! Y0 w$ i7 @if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
% w' g6 x5 N) A1 f* u, l                          set f int (k / 5) * 5
; b3 J! T, s; V" y  setxy   ( xcor-of turtle f + x )
) m% {4 [. s+ D: Y) H% w           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
; h: h9 r" P5 J- j  setxy   ( xcor-of turtle h + x )
' a. ^& E/ A$ F! n' O           (ycor-of turtle h + y )
                          
                          
# {3 i. `1 v: }+ `                          ]
end

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

etamina

已经解决了，
1 p. w6 g1 I$ l: [1 L$ z, `应该是
0 N1 |, s0 v: D6 [: oask turtles [
/ G& {+ n3 s+ d9 n7 G, eif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
# I- c/ `' g) g) |                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现