看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
7 z9 j# V7 c& K5 T4 |, |" o
  k; ^: |$ g0 e, p8 eturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
- n! l& E/ t& c. gto new
2 z  c' ^* h- A3 \6 f  ca
  crt 5 * num_of_building
* i1 z3 l2 t' O+ `  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
3 m% `# r% _3 X  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
. r3 R! c8 D: Y3 m# jto scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
/ \6 z  T9 F  @end
to unit_plan
: b: p8 D7 W7 @ask turtles [
: y  X' ~, j2 xif (remainder who 5 = 1) [set a who
$ ?/ C- @! O' |, G- ^; h2 u                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
- e" h  M" K* m$ L" k+ {% ~           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
+ J' e4 |* U3 @3 p          ( 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
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
2 B# ?6 q- i+ O: m! X/ M5 o            
: |6 T0 J" p# A( O8 wif (remainder who 5 = 3) [set k who
1 ?% v/ v$ |( G3 O7 d8 [. y                          set x( Wid / 2)  
" A7 E+ W. B. W  R6 g* _                          set y (0 - Dep / 2 ) ]
* ^2 y' |6 z8 I1 I' q5 Z                          set f int (k / 5) * 5
# U  M, {$ _2 K  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
" h9 P0 l# p" e3 ?9 c: c7 \           
           
8 K5 O  D# _1 z) T& o4 Iif (remainder who 5 = 4) [set g who
; ], I1 c8 R% @                          set x Wid / 2
+ k2 F& m& @& e: U- d$ G                          set y  Dep / 2 ]
! y0 o, e8 j! ~8 Q) x8 p2 ?                          set h  int (g / 5) * 5
' ^7 Z; y5 ?- N4 P- y0 W/ t- j: ^  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
/ L- ^- w" y- D                          
. l9 }, d1 Q, g, L( Q! b. l) m1 F                          
                          ]
end
3 u5 o# j1 u: ]9 S4 c; X
( l# Z7 }2 e/ y; `! r) v[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
# ]) U. H! M* K( d3 i5 L6 K1 u( ^应该是
ask turtles [
# I% S: G5 F* F  A6 t. T$ N1 nif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
4 O* G* A7 X8 L+ N) J           set b  int (who / 5) * 5
6 \7 i/ i/ q* j7 V8 x. e    setxy ( xcor-of turtle b + x )
& ^$ ?# r7 h, Y( y7 D6 [: D7 }          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现