看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
; M+ i0 U3 u/ ^; d, l, e
9 V  G" C' y0 g$ R但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
. m1 s7 i8 B- }0 a; _
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
4 q. i( [1 a' I9 k3 n/ V' Gto new
" V- n6 I7 P8 O  ca
  crt 5 * num_of_building
1 R6 x# D- S, A( j0 a4 k  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
8 d3 g- Q# k: l  O! e- o  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
[
2 _  d! d5 K$ K, c, iset xcor xcor - 6 + random-float 15
  ^; s9 P' s4 j9 D$ h$ s7 vset ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
' q5 ]3 m: U! x& t  q* Q2 ~) ]+ eif (remainder who 5 = 1) [set a who
! @0 G6 r' j. v2 {+ t                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
3 L# f4 y6 M4 W! _/ {           set b  int (a / 5) * 5
  Y' ?4 s& D( X7 l/ q    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
: e6 `! [' v0 {- A, ?if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
4 F2 C- \6 I8 F% ~   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
# P$ b8 L( U. v, y            
if (remainder who 5 = 3) [set k who
! E1 g; c2 z* L                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
1 @2 X  o3 {: b- Q3 G$ N  setxy   ( xcor-of turtle f + x )
! s/ Q- \& }/ Z" ~$ p! W- b$ Z           (ycor-of turtle f + y )
           
' Q7 ^" ?9 m2 H           
if (remainder who 5 = 4) [set g who
5 n$ `. P' X7 t# z+ i                          set x Wid / 2
/ X+ @$ t$ T, k& ^; b) S                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
# A6 G, T! F8 j' I6 h" O. Z  setxy   ( xcor-of turtle h + x )
1 Z3 U3 |" k0 Z& ^7 H           (ycor-of turtle h + y )
$ C# }2 S2 Y( f1 Z, ]                          
                          
9 Z; \# I5 D9 \3 H                          ]
end

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

etamina

已经解决了，
6 ?0 _# H0 {+ q应该是
ask turtles [
4 j. ~; K+ H& h, V4 i. Qif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
6 Q$ V( W5 x; A: u( _                          set y  Dep / 2
           set b  int (who / 5) * 5
) u$ S" |" u4 M    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
5 r7 e0 Z, s( c: xend
2 a1 l' G, E: i) G之前有个括号位置不对没发现