看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
5 ?! ^5 {7 Q' B
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

1 S5 F, r8 F5 T- @+ Tturtles-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
. f" b: O7 M* E3 }3 y* o  crt 5 * num_of_building
! `# H) \8 J  c1 i/ S' c" G  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
& {/ N+ l% N; A# o/ p  scatter     ;;keep center-turtle random positions
6 R, k$ H* I' d3 ^; d  unit_plan   ;;make up the building plan
end
  B# O' V- y# l; J1 _to scatter
, Q' J8 }' n' k! h5 Hask turtles with [remainder who 5 = 0]
& M5 k$ j7 m8 q- v' n* E+ l[
# l, i5 t# F% y- q5 P( Uset xcor xcor - 6 + random-float 15
+ [" o! M& G7 C3 ~set ycor ycor - 6 + random-float 15
]
% h. x9 f: v4 z5 oend
to unit_plan
1 f9 M8 [. k1 l3 Oask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
" W' }. M  N$ P& v! o# M. i           set b  int (a / 5) * 5
6 S( Q7 R! M9 `8 y* V/ t    setxy ( xcor-of turtle b + x )
, H4 F/ J+ t* s* D9 l          ( ycor-of turtle b + y )
  B# [& k6 ~) m3 M! c8 Kif (remainder who 5 = 2) [set c who
) T$ k' H/ O$ \" x) f                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
4 W9 _5 p& ^  k) C7 ?                          set d int (c / 5) * 5
4 i1 c; e' b" ?   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
* |% r0 D$ _7 S+ e) g7 T            
  D9 }, l( S* I' R* E3 ^" Wif (remainder who 5 = 3) [set k who
' z, d6 _) ^) z' K                          set x( Wid / 2)  
# J( r( X  v# T- N1 i0 o                          set y (0 - Dep / 2 ) ]
. l# e8 h( E: J* g% m                          set f int (k / 5) * 5
% ~# S  ]7 d6 q4 O( m, C  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
5 r, Y& M, f( k4 ^" j           
9 ]" g5 m4 t2 B5 t1 t           
% N- ^0 ~/ O% c% C) J2 Yif (remainder who 5 = 4) [set g who
$ C! B4 |9 W2 C( N                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
4 o  x+ o1 a4 M$ r! f  setxy   ( xcor-of turtle h + x )
& u8 l6 [  V" H* K- B& W           (ycor-of turtle h + y )
                          
                          
! z4 A8 [% I" m: V                          ]
end
5 v  R) k& M, }! m. F
8 R" [8 A# T5 ~% E[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
0 D; A8 e6 _! V' C1 o* \& [, Bask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
, w2 q$ ?6 N  `' h- a" b" q! C' d    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
: i; R: N; E6 b) n之前有个括号位置不对没发现