看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
0 @5 t" c  _. z) n
9 z( c. d% ?8 T( v; G但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
6 n( |! d5 [$ ~2 S0 _4 j  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
+ S1 d* Q4 m) r4 ]4 {$ P, P, j# x) s  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
" }2 k; z$ ]$ ?9 `# ^0 M/ G  scatter     ;;keep center-turtle random positions
1 \% x- ]+ z3 Z; t1 J  unit_plan   ;;make up the building plan
end
: |* b. g8 p% \) k! c( H; C2 N% wto scatter
0 T5 [7 l6 q- o( j% G: J" Kask turtles with [remainder who 5 = 0]
[
3 }, @1 q$ x8 K5 \% T2 Q: bset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
, ]0 e/ R! Y) M6 u3 [5 R+ Wend
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
- Z- z  K* n/ i- k$ E  w+ h, O                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
  h/ `6 y; \* c) g3 X6 [: d           set b  int (a / 5) * 5
1 N7 ]( x2 `6 z7 P0 I" x# j, j. C    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
+ h; K) |: {# t' i" m; D% j6 e+ k   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
: h; M; K; u; R0 s2 I5 _( s# A         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
* l  y7 f; J. i" m+ {                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
' |- {3 I+ o- L. T% [8 l1 ]) L  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
3 {6 _1 v& ^) K' u/ v) H0 k% H           
' j  d, R, s8 A6 q           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
  S7 c. z1 T5 Q' Z' @                          set y  Dep / 2 ]
: L- u- P% ^) I+ I9 Y                          set h  int (g / 5) * 5
* p1 U& {3 j- j2 E- d+ e7 X  setxy   ( xcor-of turtle h + x )
. f3 I# h& G2 S$ y/ d7 Y           (ycor-of turtle h + y )
) x# V+ I* ]2 C                          
                          
; Z! N' W$ w$ H7 y, ^" o! G9 e: q! Y: K                          ]
- w9 H! ]! ]2 m  y: send
6 U& B0 \$ J& A4 k# W* k
5 V3 ~3 n9 c$ I  q7 C[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
# s2 M7 `$ |4 F% B" d+ a' r应该是
- B' Y4 L) a# N& Y: Vask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
1 ]& r* i, I( l  {, x* O& e; o                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
, @) n0 [# h( k7 e( X之前有个括号位置不对没发现