看看这段代码的问题

etamina

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

: `6 E  `  Q" b+ _0 e. X2 Y但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
- A0 {% g9 U/ @. e' }2 T- ~
, J: }0 b2 |" P7 \turtles-own [a b c d k f g h
5 T+ A, ]6 p% X9 @7 F  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
6 P7 j% c0 t" ?. u/ {3 z, Bto new
. v; Z; A8 X- u- r  ca
6 k: a' \$ C. O5 ~  crt 5 * num_of_building
1 z( H/ Q3 v  x8 o% L, W3 h  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
0 b  I+ Q+ L/ c# k1 s* N  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
0 [( T! F0 T, e9 R6 Q0 @  B- J/ ]end
' c: \% f1 s8 L5 ^4 E' k' Mto scatter
ask turtles with [remainder who 5 = 0]
5 R0 [! `" A4 T+ u8 z+ P" r[
set xcor xcor - 6 + random-float 15
+ J, _* O4 k! lset ycor ycor - 6 + random-float 15
]
end
& S2 S( E3 p' V- _3 u1 Gto unit_plan
: Z% x; ~, k, R9 Q0 pask turtles [
+ p/ N: T8 r0 d9 gif (remainder who 5 = 1) [set a who
) ^$ ?9 j  c6 n0 _/ D6 R                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
. Z  o+ V& }: Y1 H- h9 {4 ?+ uif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
3 |7 `  }5 K8 L                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
4 B9 x* A, k: O6 ?   setxy   ( xcor-of turtle d + x )
5 S: H1 p  Z; ]- T$ }7 ]6 q7 @           (ycor-of turtle d + y )
         
: C0 k1 `2 c9 r5 }8 e" D            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
: i" C* |' z2 R  x0 v  setxy   ( xcor-of turtle f + x )
/ V; K! `7 d, j5 l) Y, a; c) |) C           (ycor-of turtle f + y )
           
3 m5 S: B3 p" d/ v6 U% R, ?           
( I3 K  W6 h# L( S3 q6 cif (remainder who 5 = 4) [set g who
- a! H: I" v9 A7 ~3 j7 s+ \                          set x Wid / 2
. J' K7 N- p  r6 y% ^& N                          set y  Dep / 2 ]
- \4 e) p8 [) n" x; [" W4 e                          set h  int (g / 5) * 5
  S% @3 v) X, y& l$ V: d2 _. R9 n4 J  setxy   ( xcor-of turtle h + x )
2 x- O, x! p3 q8 u: {           (ycor-of turtle h + y )
                          
                          
, x7 t, c6 Y/ X# t. M                          ]
) N; L/ g; w7 ^6 ]% ?end
% Q1 Q$ j8 \7 Z3 v! l
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
* h7 B! a, I) W7 G* K1 v应该是
& q  D0 U, M0 |8 m4 D! Qask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
- |, }+ ~, }( Z; z/ D; F$ o           set b  int (who / 5) * 5
$ J& w7 r; h& j9 ?! H    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
+ W, B" M0 H$ |之前有个括号位置不对没发现