看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
% v3 J6 g2 V' p4 y
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

7 Z) M+ K% j4 Dturtles-own [a b c d k f g h
* }( i% N) z' n6 |8 D4 I* q  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
  crt 5 * num_of_building
2 ^2 S, m5 A7 ~  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
to scatter
3 M& d7 |" e; ?# G* w7 @, z& A6 pask turtles with [remainder who 5 = 0]
  R$ C7 g* u  J- A[
set xcor xcor - 6 + random-float 15
( K  E- I! Q+ Pset ycor ycor - 6 + random-float 15
1 O; a1 O7 W) P4 r' ?]
end
# A/ E! v( c; e& ?$ f) qto unit_plan
0 K) O2 c! p" }; t, n$ ~1 P- ]ask turtles [
if (remainder who 5 = 1) [set a who
; b6 ]4 W2 C' X' [                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
& P& G% S% ^/ d. W3 Z$ v; f. j6 N           set b  int (a / 5) * 5
6 z) d( o: ?# {  e: f    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
% R( z1 I* V% g9 ~if (remainder who 5 = 2) [set c who
) T# @$ k# N2 F# Q                          set x ( 0 - Wid / 2 )
. O! I% U# V& i5 k, ?# J3 V6 m- [                          set y (0 - Dep / 2 )  ]
6 o- c7 i$ j0 F- A4 d* W3 R                          set d int (c / 5) * 5
7 N/ h  `. R+ O/ f1 o2 f   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
4 G, ~  s1 r: Y0 Q0 ~. n         
            
0 q& l0 P" Q: U# ]1 Z+ oif (remainder who 5 = 3) [set k who
: [; L  Q4 {7 c  p: P' O                          set x( Wid / 2)  
9 a8 K  W& A$ b8 v/ n  V  g                          set y (0 - Dep / 2 ) ]
/ j0 c6 x0 M1 a" l/ g8 ]" D                          set f int (k / 5) * 5
' q6 d5 r. F7 Q! d  setxy   ( xcor-of turtle f + x )
           (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/ O7 c0 a0 F# s+ e, b! H' o  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
4 w7 R% n' [8 r1 h# \) Q6 q, ^                          
                          
                          ]
5 h  ^6 N* A) ~end
! V# J+ o( t) k' B  _( |9 v$ m0 Z9 K4 ^
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
& e8 J* {/ k6 b/ L1 bask turtles [
2 u0 H+ q1 X/ @if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
( J$ `, x' D' p* E                          set y  Dep / 2
  L' J9 S: J* e1 R2 d           set b  int (who / 5) * 5
1 _6 W; N- {3 |# Q) p2 g4 j4 m    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
! x8 U1 I" {$ Y/ o1 t  \之前有个括号位置不对没发现