看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
8 D' I* o# d5 C7 ]4 `8 B
  W3 J. m9 @% Y. g但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

" C$ i) a) _, H8 iturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
2 j) ?! n9 D" E, m2 D  crt 5 * num_of_building
! t6 O+ x' V6 T% t  g  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
! O  \. _( ~  u8 _to scatter
" T9 e1 w1 u& iask turtles with [remainder who 5 = 0]
[
5 n" m* l% i$ T: rset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
+ b+ K9 i8 [# v: c5 d! l# t]
8 j7 t  l3 P$ M# V( N/ e* iend
to unit_plan
ask turtles [
) o0 I  [8 z; j" V3 S) oif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
( T% F8 \6 O7 S2 M           set b  int (a / 5) * 5
0 W/ ]" g) H% e7 {, _/ g; C0 Z    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
3 H  @& F: x$ e# g& i; s( }7 h9 p8 z                          set y (0 - Dep / 2 )  ]
) B9 D8 w$ s8 s; M1 b                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
$ m6 f. g/ C' H, ~1 k! @            
) y6 y! A% L  j" W( Sif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
) `5 {! J$ E& [/ y* l* w                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
; Z+ t7 d1 k) {  setxy   ( xcor-of turtle f + x )
( ?) t4 X' v% o* `8 _1 C4 b6 h           (ycor-of turtle f + y )
$ K; J5 R# l, z+ l7 w           
( Y% t1 d5 i$ a9 `7 o- W8 s! v, u+ }           
0 c3 L+ F4 h$ H2 x* d& o. O) Eif (remainder who 5 = 4) [set g who
                          set x Wid / 2
; a+ l3 U) p2 Y                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
( S6 E$ y1 J; r  w2 L  c% t                          
8 {' N: U- `" x" {                          
                          ]
* u; _5 U9 Q  ^% E$ N  x5 Yend

" E0 V' |( V2 Y3 ][ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
2 b& B  r  ^7 @% [ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
) \& A( O" X* N           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
8 e  x; C. f; r& ~          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现