看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
. M3 o# Z9 e1 p( A- u
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
" |) `3 H5 ^% b' V, N
# J6 Z, ?- f3 @* h3 J* yturtles-own [a b c d k f g h
3 F6 D. h+ p  t( d4 _  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
% q, g1 h3 z8 @5 i, }4 O  ca
  crt 5 * num_of_building
1 K; s- e; l! T3 W% e; M# C  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
6 f" K  b; T) q# ~  scatter     ;;keep center-turtle random positions
$ O( V/ Q' u; Z3 J1 s9 p# x" F  unit_plan   ;;make up the building plan
end
' A- b2 L% Y7 g; B7 t/ ]! gto scatter
- R7 I8 X( q9 w, Cask turtles with [remainder who 5 = 0]
[
$ @+ ^. T0 W" y1 L2 ?& X+ _set xcor xcor - 6 + random-float 15
* Q) L9 g7 P7 Iset ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
& i1 `8 c' c4 B7 D6 ]! F           set b  int (a / 5) * 5
. ~' }; m2 J( w; A3 Z    setxy ( xcor-of turtle b + x )
# S1 O: e2 `4 n          ( 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 )
         
            
% x( q( w- v8 |) D& c6 R% Bif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
2 i& L3 x% k4 ^9 i9 l8 m, j& b                          set x Wid / 2
, V1 @. ]& ~. N: J                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
$ j& j. d. M4 d! e2 ?; k4 H  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
. ]! L8 l4 M- {3 {0 `8 i1 t# I/ ~0 K                          
% ^( A0 l! |) g6 w; `! S9 u$ h                          ]
end
+ k% ^: @6 [( A/ Q( \: p: f
) n/ n5 H2 h% z0 s& [" \* p8 a[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
2 Q7 g, ?8 e# l应该是
/ d$ h% `* o1 u# Lask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
+ `8 g: U! o( i; }! b" U                          set y  Dep / 2
" a! e% N; j$ p3 A5 u. B           set b  int (who / 5) * 5
! g# g$ W* _2 u; B  R/ S$ z% z2 _. ~    setxy ( xcor-of turtle b + x )
+ W/ M5 \3 W* i, B3 ^# X          ( ycor-of turtle b + y )]]
7 j3 }+ g! }* @8 j: dend
9 _7 U# _5 x& E$ f之前有个括号位置不对没发现