看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
9 {$ Z% ]; f& F3 Gto new
) {: }" d: z0 [  ca
4 v7 I+ Y2 _& F# f! R  crt 5 * num_of_building
  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
1 W& l8 O9 \2 g, D6 `! Q. E- Zask turtles with [remainder who 5 = 0]
[
% W6 ]* P  N" G. P4 A, a. i) |# Dset xcor xcor - 6 + random-float 15
7 e* f0 K7 F2 r0 Tset ycor ycor - 6 + random-float 15
]
( g2 |# q5 }: w8 |0 a5 y+ Nend
9 h, a# p- L1 B6 Mto unit_plan
ask turtles [
" `, [0 E" ]# K& ]8 Dif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
" P' i/ l: G1 _. T& g& R           set b  int (a / 5) * 5
, X4 d- `5 X) u; p+ `; Z* b    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
" ^: J" V# q" X! {% xif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
, ?* `; Q0 ?( n, q# q/ G- ^                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
9 X5 m  J# R) p, q3 q% \/ Z         
+ U% \6 A3 n9 _4 |$ F            
if (remainder who 5 = 3) [set k who
9 @- F" u' m1 }- V                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
$ {7 \7 h6 x! q. ~' ~0 F           (ycor-of turtle f + y )
& ^) K4 V# D8 c, ~6 u& L3 |7 |, F           
% @9 C; b! k1 O9 W9 z6 t           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
" y: g! s- b$ w+ H# H6 z                          set h  int (g / 5) * 5
, j4 K+ `. Y* ]- y% W5 I% U  setxy   ( xcor-of turtle h + x )
  {" s6 a. }5 n0 F! B           (ycor-of turtle h + y )
                          
                          
                          ]
8 n: P0 `# c. _% x, U* Eend
2 E4 T' b& I, j
: [' D# J! H. N! s8 S; b* n! j[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
1 s! O: I* e3 B8 P3 D7 `! C+ M6 h应该是
  K$ A8 f* }% D+ U$ y9 Nask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
+ h3 O0 R, m4 ]2 K' }8 l, ^  O                          set y  Dep / 2
) k: J. a' [( A( V( d% v. r6 M2 M           set b  int (who / 5) * 5
5 t) v- c0 m8 J2 m    setxy ( xcor-of turtle b + x )
; l, F6 F3 j' }3 j0 `- k          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现