看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
* M! J, |* X/ z# Z2 V5 F) B( O1 G  t
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

$ \6 [/ L& V; z9 T% v4 Tturtles-own [a b c d k f g h
* w! Z0 \# N) p% j  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
% F, b0 z% c2 u  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
8 T0 O" I. Z. e) D) Aask turtles with [remainder who 5 = 0]
[
9 V8 b5 @( L- C* ]* `+ oset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
$ a% M: f" b1 w% {/ A: y8 g( Sif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
2 ^6 v) h# [* L2 `9 V                          set y  Dep / 2 ]
% i# N  I/ I, ^" |+ l           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
* U; o( n; N* p# X9 G          ( ycor-of turtle b + y )
3 x4 f5 @/ O& bif (remainder who 5 = 2) [set c who
) @9 W3 [" H: `8 k7 r% ~9 j- o                          set x ( 0 - Wid / 2 )
; C% o$ J0 ^) ?7 ?" H                          set y (0 - Dep / 2 )  ]
: n, F. a& M" |7 L                          set d int (c / 5) * 5
6 q% l7 a. G2 I7 n9 w6 ^! Q8 _   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
3 @% a$ I& a. y         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
% l% L, M& A! l                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
3 o( _8 G9 @) Y2 U2 r0 ^3 H           
; q" W) [5 G1 P0 o1 c           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
# w$ C; U8 r/ L* i                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
  f4 j$ ~6 ~- E4 x' I. w/ M                          
                          ]
end

9 ~; T' _& v, S1 k' F0 I- t3 Q0 \[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
1 r. Y) ]6 E0 C% Z8 vask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
% w) f" v1 g% K1 D1 u% L                          set y  Dep / 2
. m0 C6 k& ]& ], A2 I' Z           set b  int (who / 5) * 5
+ A# Q) g% ^0 B+ ?! b    setxy ( xcor-of turtle b + x )
8 w" e, ^% U" J5 X: N          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现