看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
' a$ |; S& l: x! n: I+ l
, p& a* C' z/ u2 L9 m( b但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
3 ]- e7 M) L, l* c) V
turtles-own [a b c d k f g h
" p" Z, d# W! {  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
: I! V$ ~" A$ K2 `]
3 g+ s: P+ Q# U7 kto new
# f) n8 \6 k; A; Y* U  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
: V* s; V7 U  W# t  x1 o: `# d8 P  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
+ o/ A/ c% a3 S/ L$ U9 ^+ T3 Mend
* ^; h6 T; q& U5 c. Q0 g1 u0 Mto scatter
! v9 N  Q) X% |5 X+ z. N; `1 Eask turtles with [remainder who 5 = 0]
5 P; i* w6 X3 v5 t[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
0 f' c- G0 y' n  L/ P7 Lto unit_plan
4 O- S% S7 d" g+ F+ b- w' ~ask turtles [
7 k2 O7 v/ v: T  H2 \5 i; M% Vif (remainder who 5 = 1) [set a who
  u# k+ i' s5 a" {) S# E                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
" b# i% C+ {' v2 d          ( ycor-of turtle b + y )
* \) V1 K* W) @) C8 e9 l% v! i4 u8 aif (remainder who 5 = 2) [set c who
" q. U5 I% D4 S5 Y& u4 q, w                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
+ M( U  h0 ]5 a; ~; E2 A0 D  ]0 `& \   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
& S" g: g$ I% M9 W& C0 _         
            
6 L# m% S" J/ J& H4 @; s2 hif (remainder who 5 = 3) [set k who
( H! X/ Y, k* Y3 @                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
- A5 |, F2 r' z5 D9 w2 `, _: n                          set f int (k / 5) * 5
0 D) |3 W: s" o: J" N  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
) N+ d3 u( w8 K$ S                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
. Z) G7 o3 D5 x; ^+ [  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
+ X5 w/ n- j3 m4 [' _. S- Z                          
                          
# m0 y' H2 K( N3 }+ w                          ]
' |$ `; E2 l+ Z; |7 rend

* V4 U9 e2 |; f; H  P3 _% i$ e[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
8 u: n8 m) D1 C+ w3 e           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
) M" M- q/ C6 R          ( ycor-of turtle b + y )]]
- d* W5 i/ q8 S1 yend
9 o0 X) n  i8 Q) b9 `* Z之前有个括号位置不对没发现