看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
* k; P* S3 ?6 O, `3 R! U
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
* [' G0 h$ b& X, y( j
, X9 ~. o4 Q. ?7 w. U0 g; o/ Aturtles-own [a b c d k f g h
: g6 L( U4 i2 N# g  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
9 ]3 I; Z& g! kto new
  ca
  crt 5 * num_of_building
* r4 ^( W" ~  m  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
$ e3 A: B0 a) |+ I6 i' u( N  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
: n: C; H5 E- d, l5 J9 tend
8 G* e1 b5 e1 hto scatter
ask turtles with [remainder who 5 = 0]
1 j# X, u3 c+ I( d/ x[
7 V6 W3 Q6 F, _6 W" V1 H8 dset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
2 T6 r8 E0 g6 Y: n( h5 n. s+ bend
to unit_plan
( K) G& L) p4 oask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
$ }; f2 p% o4 N6 \+ v" g: m                          set y  Dep / 2 ]
! u! O; r+ j: J. Y0 R( L           set b  int (a / 5) * 5
# `7 y0 f) i! c0 ^. z) e+ _    setxy ( xcor-of turtle b + x )
2 t6 W5 @) j9 A4 M8 T2 a          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
2 m" r+ P1 m* Z& X& \& k$ L4 o                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
8 w* e2 X0 c) t! r! h- B                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
- d3 Q! ~* |+ x0 j           (ycor-of turtle d + y )
; B1 A- i( p4 O# ?; o         
            
if (remainder who 5 = 3) [set k who
/ N) d* b: D0 ~  j) \! }- d7 \& }: j- U                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
+ w' |( c7 Q  L& {* B  j" {                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
$ E% h/ Y! M) }0 u* m+ r           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
; f, ^) q9 ?2 W  |; f                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
. F  ^( y6 m+ w  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
: n% ~2 T, d  ~' V, Z                          
/ X8 e  t" T2 T' i( m$ t4 U                          
                          ]
$ a: j6 t7 R; E) ?8 Z- fend
  J! E* ]* E6 K& a8 r& ~) E: d/ ~
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
  I/ Y- v2 O1 q应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
) P$ M9 p7 J, R5 j; D           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
" y) S6 z) `" j          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现