看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
4 p; v$ [- X7 @/ G* C
7 A* b$ H! T6 x: U1 I但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
5 V6 q; k- I/ {  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
7 b0 R2 ]% H$ b+ m# ^]
to new
& x' b+ O- b, O1 D  ca
* [: {6 m) R* g1 O  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
% a5 C6 x# c- {* J/ b5 b4 t( B  unit_plan   ;;make up the building plan
end
- x& I+ }+ m. b7 B9 cto scatter
0 I% n& A( k' k0 R1 ^ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
4 w! s, P$ F0 A# N* a' @$ D: `set ycor ycor - 6 + random-float 15
]
end
9 f4 g! X' [) K, }' ito unit_plan
8 I( Y( U8 k6 k( m6 u; Lask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
% d1 `; C0 c2 q6 H6 o7 g$ R8 S                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
' T0 J  d3 B% A' S5 v    setxy ( xcor-of turtle b + x )
$ [9 y; T+ R9 r9 P- [5 W9 e( i- @; r          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
: V) M" r/ a) F4 g$ z                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
" X' b  [) O; r1 [5 h   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
3 h# N0 P2 H/ G$ a4 H$ ]8 s            
/ v$ A1 A# a' p9 b9 W2 `if (remainder who 5 = 3) [set k who
: ?( E/ Q% d3 A# h6 b                          set x( Wid / 2)  
2 m8 h6 L; m+ F3 L% R9 G                          set y (0 - Dep / 2 ) ]
5 _: Y* j- Q9 t  T. X# J" V                          set f int (k / 5) * 5
' w5 m) V0 y- U/ N' ^9 t0 B& s  setxy   ( xcor-of turtle f + x )
* j% s+ I& Y; M. z9 u5 `8 y9 h/ p           (ycor-of turtle f + y )
  J2 h4 v' t& I' z" T           
           
1 U+ O  s) K1 k$ rif (remainder who 5 = 4) [set g who
                          set x Wid / 2
" [( r/ S% z7 k1 Y+ V                          set y  Dep / 2 ]
8 ^* `* ~& R* N; U  s' l( G  H! O7 D                          set h  int (g / 5) * 5
% J9 S3 s4 p% t" c( N6 z  setxy   ( xcor-of turtle h + x )
5 l5 E4 a% k. q4 N, J           (ycor-of turtle h + y )
" D4 z* E, A' B3 p$ V) C& ]                          
# P( h% ~& ]4 L' ]                          
$ b) V  {8 J  `  P4 L" Z5 ?                          ]
" T: w) J5 n3 H5 a0 u+ ^7 ], Z3 Qend
1 u; x# }8 ?2 w* ^
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
( P) R/ C: {; G1 K* Task turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
3 t- H! H( P" k           set b  int (who / 5) * 5
  |! G! y" r: L4 m2 p- K: L* \    setxy ( xcor-of turtle b + x )
1 b2 D0 k, ]  l& g          ( ycor-of turtle b + y )]]
end
) R: C# Z% W" e. M; q: i, u之前有个括号位置不对没发现