看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
5 Q- h- X8 x& a: ]# M3 f3 q
+ h9 B+ V, N, a但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

' i3 G0 \2 Q+ w+ n, Bturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
4 t8 Q2 @+ W' h( l, ^to new
1 Y7 N, L8 e/ {  k# y& A" S  ca
# ]! @, o# K9 \  Q  U/ N4 ~  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
6 T2 G/ [0 n& P6 s  unit_plan   ;;make up the building plan
end
to scatter
2 V2 d) K, c3 o- b, ]ask turtles with [remainder who 5 = 0]
$ y* Y, N: Z# N; X0 D, D[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
9 d5 n, h! e8 f/ [$ G]
: N: M$ Y, {( e  B- pend
! B6 g9 G+ j1 m* h) x3 k* uto unit_plan
$ x  E) I# B2 r! Aask turtles [
5 p6 s- M/ T3 [5 Uif (remainder who 5 = 1) [set a who
) F; y4 B# r1 E# R                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
/ }: y5 p6 }  d- M5 K1 E/ {           set b  int (a / 5) * 5
! [( e% b! }5 h    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
! M0 b* a2 l2 [( d1 I9 w         
% Q5 h+ Y( k; S1 i6 M            
8 r1 G8 L9 v% A- F) {" T/ W* `if (remainder who 5 = 3) [set k who
8 }3 q0 H0 {0 i0 i/ L3 m                          set x( Wid / 2)  
; C- W" V8 g2 ^                          set y (0 - Dep / 2 ) ]
, {3 N# H2 {. X% ], q# P                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
) o2 P( E- ~) @* H+ R1 [           (ycor-of turtle f + y )
           
           
: B7 h  H9 V( p# S1 _if (remainder who 5 = 4) [set g who
; p3 z- P  x8 T3 a* }4 {) _0 E                          set x Wid / 2
1 O* s3 J( Q" [                          set y  Dep / 2 ]
- r& n" v. K, W- c% L. k, v5 S                          set h  int (g / 5) * 5
1 x# [8 a3 y4 Y) V0 \' d& ?8 \. f  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
* _& y" j* b. J1 e                          ]
  b: j* R/ d' cend
/ _4 H  h- m3 W# G$ Y8 y# Y
1 X: b+ A/ ~8 f6 H& R* W[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
' g# i" q- O, }5 }, Rif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
9 v1 q5 Z) Y5 z6 j! b* H; h1 p! C                          set y  Dep / 2
           set b  int (who / 5) * 5
- p7 ~9 J" g! u0 V7 ]2 N" k9 w    setxy ( xcor-of turtle b + x )
4 ?% a" x+ C& F' J: I; ~          ( ycor-of turtle b + y )]]
7 }4 J, d# L* y0 nend
之前有个括号位置不对没发现