看看这段代码的问题

etamina

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

$ u$ y& G5 z/ E3 k( J  N/ L  W% I! N3 \但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
- h8 V2 W- N+ v! U/ d. a. h' B  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
5 m8 Y, ]7 i$ o' V8 o9 @8 Y2 Hto new
  ca
, i' }! Z3 b0 W; H; ~3 V! P$ `  crt 5 * num_of_building
& m& t+ z  [" [  `- }2 O4 M+ k. u  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
2 ~; t5 N, U) l8 x9 `) P) i  a  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
4 o4 I& Q  O) \5 E8 U: M$ Eend
to scatter
ask turtles with [remainder who 5 = 0]
, G' v7 q# a$ N[
' E5 Y$ x* k, n* O7 g* \- zset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
4 n3 w" j0 F" fif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
! R' @; l! |. Z- ~                          set y  Dep / 2 ]
6 d( Q; m% r, y3 E           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
                          set x ( 0 - Wid / 2 )
5 N) _2 k& c* P& }. |9 {                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
. ]) W; N. s: l0 B7 c( i6 z           (ycor-of turtle d + y )
         
, ]& L( I0 O+ X' W( h            
if (remainder who 5 = 3) [set k who
0 R! [/ f% R  g                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
7 I) }* h# z% ?. G( A           (ycor-of turtle f + y )
           
) S: a% y* ]" ]# ^" I& X           
3 Q) m$ x  ^: }7 Zif (remainder who 5 = 4) [set g who
                          set x Wid / 2
) i/ G4 ?3 x* \  J# _                          set y  Dep / 2 ]
; B+ ]$ h0 k2 l) [                          set h  int (g / 5) * 5
, G3 x. }) r' x0 Z7 q, T! ]  setxy   ( xcor-of turtle h + x )
; G- k, C8 ~9 M5 L; e, @2 R           (ycor-of turtle h + y )
                          
+ J/ ^4 V+ z1 b: Z% R, ?, f) Y" d                          
8 r9 l) a# I7 C2 p, C$ J                          ]
- y- u: \* X6 X1 |( \end
( `9 u9 ^% E/ m& R; a0 w9 P
& ^- o3 i' t, @. P6 G[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
3 B5 H, {* L5 w8 }ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
& U4 N( B1 ?# @8 g# ^( u# r                          set y  Dep / 2
           set b  int (who / 5) * 5
1 @1 H  ]6 s1 V) N* H# L; d/ a    setxy ( xcor-of turtle b + x )
" f7 V7 T! e) Y; x. i          ( ycor-of turtle b + y )]]
end
3 s3 p3 [5 ?& K) r' W之前有个括号位置不对没发现