看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
8 g4 ?1 R( L5 M- H  \/ X
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
! m% l: ?& x9 D9 B, j9 F  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
$ ]8 y$ M: t% ]* x  ca
  crt 5 * num_of_building
8 K) V5 f1 N$ G# Y  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
2 T, X3 g7 G& X- J  unit_plan   ;;make up the building plan
& `7 |& w# `7 q4 I, G& B5 F! z0 j) cend
to scatter
2 v# Y7 p" u3 V. L- {# Vask turtles with [remainder who 5 = 0]
1 h9 h& Y. y* x7 S, x* x[
# ~. |: K& Q4 U9 H/ yset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
. @/ Z, [- a+ [. {end
to unit_plan
% }. [1 A7 N9 \" h+ M& Xask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
2 R' w/ I" u* R' z+ l" a- i0 @           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
: O6 @: j4 }# B# p. Aif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
" }5 h! i' ]( ~           (ycor-of turtle d + y )
         
+ L2 H8 i; y# {+ g, E# K            
2 [6 }2 x. _$ X+ b1 Hif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
2 \# R8 N9 o4 ~  S) b5 W$ ^           
) }& R3 a3 z2 o* L. wif (remainder who 5 = 4) [set g who
2 B( m9 T8 I* l                          set x Wid / 2
+ A& Q( c+ s+ {& J                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
+ ^# }0 K" m5 o           (ycor-of turtle h + y )
& I6 q% i5 J' k; ~/ n6 r$ S                          
                          
' |: }5 `" R3 A                          ]
7 G: i4 ]$ X) U; X" jend

[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
& T" ~! k: `' R7 S; D0 }' r6 [应该是
  t) o! a8 D; {# q; r9 o0 dask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
6 }6 @0 t+ P1 V5 T/ g' Y& a    setxy ( xcor-of turtle b + x )
# z& d1 ^, O! \$ z: W0 C          ( ycor-of turtle b + y )]]
end
9 i. X  j. E! i- J- [' o& k) ?, L之前有个括号位置不对没发现