看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
# n5 ~' K, v& V0 z8 F
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
* |, r% B, S& [6 j
5 Y/ `$ p0 {6 ]; ~1 pturtles-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
1 u- Y) [1 j* `9 y  crt 5 * num_of_building
$ e$ H$ Q0 U. G& D  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  l- ~/ L- v$ L. }! m' D9 z  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
0 h8 O' a0 w% g" a3 ?% b# q$ aend
, ?  L4 R% K  \to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
) k1 d1 |; K/ D* }. w  x$ j9 A2 ]end
9 X* w' t7 m1 n$ _( Kto unit_plan
ask turtles [
  j; c" |1 y  `/ A, I* k, ^7 R5 Kif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
9 j% a* e- ]9 m& g- s2 b                          set y  Dep / 2 ]
+ ]6 n" ]) Q3 M4 S- t           set b  int (a / 5) * 5
% ]6 x" J( X3 }    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
+ G4 ?: B# P: ~3 m+ v2 e# Tif (remainder who 5 = 2) [set c who
2 A! w8 K0 ?  V/ M0 ~% V# \2 E                          set x ( 0 - Wid / 2 )
' c! v9 @( V" C" R0 c' V                          set y (0 - Dep / 2 )  ]
. J1 W8 R8 i! H5 B" q& v) ?                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
2 P$ T7 W) r. j$ Nif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
) I9 ^  a, _; G8 `( I: ], O                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
: O; `1 ^/ r4 l/ a6 ~) `# A( R           (ycor-of turtle f + y )
3 z- C; C& A- y9 S. S           
+ f; I5 G3 e9 ]2 A# a           
if (remainder who 5 = 4) [set g who
* O) O$ D2 Q0 p! H  E' l4 B7 P                          set x Wid / 2
1 q3 x$ r3 Y' Q* d1 u" W- c4 ?                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
8 ]8 ^+ `, e+ I" O( W# A  setxy   ( xcor-of turtle h + x )
/ f" a+ g% ^9 A( E3 m7 r- l           (ycor-of turtle h + y )
; S* K" A6 n3 j8 s( _& J                          
( j6 j5 n. u- V; E6 }9 p                          
                          ]
end

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

etamina

已经解决了，
+ y7 n; W2 U7 }. l* W+ j应该是
% y6 D, F$ K. {ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
3 ]* A' Z0 x8 O                          set y  Dep / 2
5 A6 s' b* V+ y$ R( F9 {           set b  int (who / 5) * 5
5 K# M/ }% @: r# O    setxy ( xcor-of turtle b + x )
2 e' G8 K) U( S+ }          ( ycor-of turtle b + y )]]
end
" L# W4 N- o! I; w之前有个括号位置不对没发现