看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
9 `+ X& Z# L! S( }1 @: R) S# o2 @# ?
! z% e' q& l% I5 Rturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
# b: @& t9 X; h1 G4 W$ Qto new
# ^2 L% c3 X2 i0 g* `: e+ n  ca
' F+ d! U# C# c& E. i  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
; F1 G: z% U; x2 n) v9 b0 s' xto scatter
0 A2 B# p' x5 y: I7 ]$ O4 sask turtles with [remainder who 5 = 0]
0 G9 u5 h9 _4 \2 }7 l! E! A* K# e7 b# u[
6 t: N/ n  r0 Y( ]9 d0 ^  Aset xcor xcor - 6 + random-float 15
8 E- e9 E; I, a) Xset ycor ycor - 6 + random-float 15
]
end
to unit_plan
5 R  o9 V# p. p* }' c! Q' A% gask turtles [
, v; x" K. d$ rif (remainder who 5 = 1) [set a who
: ]9 F  A* C" p5 y/ f. ]7 L" ^1 [                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
: l6 n- q! X" m" c; _    setxy ( xcor-of turtle b + x )
) q- j5 p* j1 S" n; r5 d4 N          ( ycor-of turtle b + y )
! o+ U6 W9 y8 Z" W0 Mif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
& |  M  F& S# J" q                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
, [* l1 n) A  |) F            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
$ M. S( M4 H$ K1 r; F  B7 B                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
; E4 l6 S) W! h4 A- a( ?  setxy   ( xcor-of turtle f + x )
; ?5 _$ u9 ]2 q. q: n1 {           (ycor-of turtle f + y )
/ s1 Z: t# i& ?$ a7 g0 y           
6 O' `! I9 d5 @: [4 J. K           
8 B1 r2 ?5 I& O) R( u* h  y. bif (remainder who 5 = 4) [set g who
- y5 w1 P; t9 O4 R                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
, N8 @# }6 o# Y: ?           (ycor-of turtle h + y )
                          
                          
                          ]
end

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

etamina

已经解决了，
( s, B2 f, u" ?/ _5 Y应该是
8 l5 \9 X7 W: y, y3 j3 sask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
6 L# o$ _3 `  I6 }$ G4 S          ( ycor-of turtle b + y )]]
' R/ \/ c% M+ r) f# x4 xend
之前有个括号位置不对没发现