看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
+ O; _# r# s9 l" J$ t
! r2 J0 G8 {$ x, X但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

, k$ j) Q2 O2 _6 n& A6 Y1 w/ ]turtles-own [a b c d k f g h
/ C. o* [8 r. \8 `7 v+ F9 y  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
% n. d; z# M" Z! c' s& ]. S]
to new
  ca
  crt 5 * num_of_building
2 u) i3 F( b5 K4 a; L  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
5 V3 Q5 X8 k0 `7 }: l  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
* w6 k6 R2 b/ R9 i1 Mend
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
! X8 n  q2 {6 n9 X$ K]
end
  m$ ^$ Y" g9 x& S* n- s* F. ^to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
' L+ w' A' [3 n! o! z' O! I                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
# ?. z7 J4 q6 \9 V8 u' W2 ~: y           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
, l- y  z+ h( u% z$ T                          set x ( 0 - Wid / 2 )
1 [( u1 D& d$ j                          set y (0 - Dep / 2 )  ]
* h; |) o3 T! N% j                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
6 I! K; a' E& J: m/ t5 N         
            
, k9 C+ `; T0 l/ Gif (remainder who 5 = 3) [set k who
7 ]1 |: v' G  j' W                          set x( Wid / 2)  
  u1 g0 H- `5 [; [$ {  e6 a                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
) x) m, v8 H( u% M& Y  setxy   ( xcor-of turtle f + x )
( i2 p2 U1 x0 I6 }. [           (ycor-of turtle f + y )
0 }& Q+ l( D( j4 E           
           
if (remainder who 5 = 4) [set g who
2 n8 J, [( ^* Y, A7 Y' }/ W" I                          set x Wid / 2
) J3 q9 A8 v+ ?3 }: S% @                          set y  Dep / 2 ]
. A* f6 |2 V* U: T" q# H4 m4 _* r; b                          set h  int (g / 5) * 5
+ P/ y+ b3 j9 u; t  setxy   ( xcor-of turtle h + x )
9 Y! J, X/ a7 D! X           (ycor-of turtle h + y )
                          
                          
                          ]
) d8 a/ W3 C2 ~# F  r5 O3 v9 Jend
: d1 E9 R& C' l4 ]! p2 d/ C( {6 ]- C* L
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
" q) a( W8 H$ l) A应该是
1 g: N7 b8 L5 e3 Qask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
) i4 \' ?2 Q9 U           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
( |/ p  q( [2 H- G% {' oend
, s( x, o& a' e2 I# y1 l之前有个括号位置不对没发现