看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
" T' @- `2 L" x
: c6 q$ j  ], ^; P$ l) p( s& y但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
! G/ T" U$ S) u6 l5 o/ f! E
4 R  L/ n0 v8 k7 `6 l) U0 @" xturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
# |" t& z4 P8 _& g/ a* []
4 x+ t) z2 c/ uto new
* m8 x0 O) P! F. Z( J5 _  ca
9 T; Y# d! |# U8 H: Q. y  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
4 T" n% n4 t( {' i2 q  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
. a, |5 A* {$ f6 x) W: `end
to scatter
ask turtles with [remainder who 5 = 0]
[
; f! n& ?) S- q1 n  iset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
3 V$ J0 D. Z6 Z( Y# c7 R0 |]
end
to unit_plan
ask turtles [
/ p- ?4 _- {3 ?& hif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
: X5 P7 i: k# c% R; h( r0 B                          set y  Dep / 2 ]
. s2 F4 Z$ A5 W5 u/ F' A) h/ ?9 q           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
$ w9 ^; A% h8 x3 V* C( M! B          ( ycor-of turtle b + y )
% D1 j. p3 @- O" D3 ]: Oif (remainder who 5 = 2) [set c who
% H+ B4 ^6 z  C" R0 f1 b                          set x ( 0 - Wid / 2 )
/ b7 O( J2 h* ~' \- S( t: p% T: K                          set y (0 - Dep / 2 )  ]
: c5 z. z$ C7 ~                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
1 W8 Z0 {+ T- D( g7 q( Q. B! ?           (ycor-of turtle d + y )
  B6 D% h4 V! ~3 s( y, Z9 R  N         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
* `& X& Z1 g) P                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
3 ?4 I# X7 N6 R7 O9 b/ b           (ycor-of turtle f + y )
8 A2 _- G' L( X5 q& l% f+ Q           
. N1 n5 x2 [- C" ]( u8 h, l) K; p           
if (remainder who 5 = 4) [set g who
* u6 q; N- U; I' a" `                          set x Wid / 2
2 R- x) m  V+ q                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
0 K/ V9 I1 r7 ?/ n           (ycor-of turtle h + y )
0 V- k9 \0 Y. }$ I4 D4 W7 ?. K                          
                          
                          ]
end

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

etamina

已经解决了，
8 d8 U5 a% M9 Z$ I应该是
ask turtles [
0 Y5 Z6 F3 O* I; s3 [, z, V. aif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
; D' q6 e  l1 M& `+ T           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
6 {3 z! T; `; ]' W3 r          ( ycor-of turtle b + y )]]
end
7 t0 F# d9 |5 }$ Y/ s  f+ c0 U之前有个括号位置不对没发现