看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
2 F8 k3 N6 ^/ U/ X
# [/ a* e, V7 K) O* j4 {& x5 x* z9 w但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

/ J- W8 |, |- Oturtles-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
  crt 5 * num_of_building
- c2 v1 E) z3 j- R& j) _- u% a# o  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
& O# k/ h" b9 k1 g% r' V7 p  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
- [9 E) W$ ~+ }1 p8 Cend
to scatter
5 ^/ X# Y5 E( k, r' p! E4 wask turtles with [remainder who 5 = 0]
$ r& N0 B* G0 c[
( k5 T/ A/ v2 Y0 Y1 |! W) Gset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
2 D8 f  ^, d% X, w3 @to unit_plan
ask turtles [
) ^$ Q. G4 f( ?9 O1 Xif (remainder who 5 = 1) [set a who
+ X' x* O4 j& G                          set x ( 0 - Wid / 2 )
! t, X  U: y; @; _                          set y  Dep / 2 ]
9 V/ [; C  ^- R) Y# C3 e           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
5 \! d& ~/ s0 {. _          ( ycor-of turtle b + y )
  U8 @5 ^3 e& @, ~) y8 t# t3 Hif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
% p# Q7 f: r( w, L                          set y (0 - Dep / 2 )  ]
/ T! H% ^( U4 y3 z- i  u7 }                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
) U7 ^) l3 [3 ~9 R4 s3 e* O( s/ \# t           (ycor-of turtle d + y )
         
            
3 }: S! U  A) d& m8 c* ?if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
4 g! B8 j8 M3 i5 _* n                          set y (0 - Dep / 2 ) ]
* }1 \+ d  l- f% G, G0 _$ G8 r                          set f int (k / 5) * 5
4 b) Z5 k- }' v/ Z0 S% Q- ^* A2 a8 [- ?  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
5 p4 ^. x% D9 ^( k& ]           
0 B) H8 f9 p: }+ N$ h$ Yif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
" K+ n% O" X4 y% D5 H$ O+ a  setxy   ( xcor-of turtle h + x )
( [% P, X: a* J           (ycor-of turtle h + y )
                          
. I. i& G  @: u+ }5 y- ~                          
                          ]
: u6 L2 q$ }" D3 k0 cend
1 M8 }+ h6 T6 K
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
1 i& |4 `' h# N7 t. G应该是
ask turtles [
' _. J; {3 h( J: n; bif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
+ N& [/ p0 a. w3 m           set b  int (who / 5) * 5
$ {5 z. o5 n7 H    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
! j$ l7 f7 Z/ \! p. t/ m- u* d  y之前有个括号位置不对没发现