看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
, Z4 B! H2 [4 T9 L5 D
& D2 j3 k6 ]  T7 r* G3 E但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
6 O, o9 U* D* f. S' }5 S: E) E
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
+ C3 r- T1 i  \to new
$ a, H7 L8 v/ h+ T/ `4 w  ca
4 L- Y( P+ A6 `# i% w# s  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
* U& K2 R7 d  s  \9 A1 w  scatter     ;;keep center-turtle random positions
) Z: K9 {7 }3 N) ?, T  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
0 p8 m9 ?9 g5 ^) L- ]+ m3 U5 ?  S# J[
: l0 l; s$ t9 wset xcor xcor - 6 + random-float 15
; k2 `& c7 m/ P' n, L8 a7 Yset ycor ycor - 6 + random-float 15
]
* p; @+ v8 `2 N3 X: J: }: cend
: ?. m1 m% ^( ^" }4 g9 k2 ^5 Ito unit_plan
3 v; n/ C# G; S, G6 |1 \: R$ Iask turtles [
& W% z, x8 K- r4 p( f, F4 _if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
' b2 k4 ?4 A" t! w                          set y  Dep / 2 ]
  f) g9 d: Z' [3 _, G% @5 X           set b  int (a / 5) * 5
    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
. g0 H0 K/ y3 C; ^2 ~- i* E7 d$ j   setxy   ( xcor-of turtle d + x )
% ~4 B; d; g7 O3 ~           (ycor-of turtle d + y )
         
" E- O$ I0 V9 R4 r- d, _* ^3 |            
, z& s# j. t2 t0 \$ Z6 Hif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
+ k' ]6 T; X' V2 `* t           
2 r( Q. o; q6 P9 i8 [6 Dif (remainder who 5 = 4) [set g who
# g2 ?. {3 N  U0 h                          set x Wid / 2
                          set y  Dep / 2 ]
  u3 L* B5 P  m1 c- \* `6 _                          set h  int (g / 5) * 5
- ~8 k3 u! s! p  setxy   ( xcor-of turtle h + x )
( ~2 P* \, ^, o4 `: }) y# U5 b           (ycor-of turtle h + y )
& O* I+ i4 Z2 v: N                          
% @  E9 u6 `- G' |' K                          
/ J! w' _0 M  |* [' [                          ]
% o0 r% G& u" c' x, Iend
6 r- p+ {& `& I" V2 f
% `2 p: R3 C$ |1 ~$ w1 H# C$ }[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
! o' I# O4 ~4 ^1 H3 R* [/ Rif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
, }  k7 ?: D+ a. H% I, d7 {. x, G! `    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
9 T' h5 ?* s7 Z5 e5 l/ gend
  C: @+ f6 `& ]0 J: b. l4 w之前有个括号位置不对没发现