看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
' P$ z6 m9 _# B3 U$ m" _* u' i
  {5 ], c* t6 w) S: J) Z% w. i, c. Q$ B但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
0 _/ w+ a9 K$ w" |8 e6 l
turtles-own [a b c d k f g h
$ _$ Q/ l& M! h1 y+ H+ ?8 R9 E  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
1 [9 U# O' f0 a- Bto new
  ca
  crt 5 * num_of_building
- S3 J) A9 p* A- b5 N  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
0 o; g# ]' a* c( Y3 ]) H4 p  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
5 f' K. _8 y/ p$ Mend
to scatter
ask turtles with [remainder who 5 = 0]
: a4 U) |0 k1 O5 l4 F[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
' G. C: T! F% A  v9 I9 o& f- Oif (remainder who 5 = 1) [set a who
! I& o  R1 L$ _5 ]5 l1 k                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
; ^9 x$ F! L- ?. a/ z    setxy ( xcor-of turtle b + x )
! ~* v% s/ k& I, c0 f7 }          ( ycor-of turtle b + y )
0 F! P  D; n' U! w- ]% k* R/ Lif (remainder who 5 = 2) [set c who
/ ~( A9 U" a6 v                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
9 i) g. J" _5 R   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
5 L: T" u% |1 A; D; Y5 P         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
! o/ _  [$ e1 }: D1 N# {; T                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
5 p: m* j- W. ~' g5 j& U# l           
* ]" R/ Q( ^3 S  A6 b! i( }5 }. b           
8 X7 S- B! c# ]8 i  o; {if (remainder who 5 = 4) [set g who
# q* U% `8 r, s5 \5 ]                          set x Wid / 2
! T7 o3 f8 h" c8 B3 I                          set y  Dep / 2 ]
5 ?& N7 H+ {5 W* S9 Q9 g) u                          set h  int (g / 5) * 5
3 ?  P2 P5 A1 M1 o2 Z  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
4 n. J4 ~, F( n" {* b2 K" O/ J' S                          ]
end
$ S/ t- ?% K0 V# O/ W( H; [
; C, h9 ^6 V, s8 R( E6 t[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
9 V% q* p2 m7 x. I    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
% B+ n! j+ P/ \4 U5 P8 c' rend
2 L" u% I; ~; r4 C7 n( p  c7 D之前有个括号位置不对没发现