看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
$ w/ _5 ]) p9 R( L& o3 i2 Y
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
" S+ Y& M* G' @% N
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
3 D/ p- H* |( y) g) y]
to new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
) V/ V3 i# i6 n+ z  scatter     ;;keep center-turtle random positions
+ O7 m6 U3 x% ?0 i9 X6 a4 H  unit_plan   ;;make up the building plan
. J5 u: U0 i- s* n! {2 Hend
$ Y3 U0 {0 o* j! H1 \* dto scatter
0 w( q2 s, @: T* r- sask turtles with [remainder who 5 = 0]
" ^# O& U; G6 f[
set xcor xcor - 6 + random-float 15
/ X0 }) G. \* O; s6 {set ycor ycor - 6 + random-float 15
]
% Q. Y2 m  p1 N0 v3 V( P/ r) kend
$ n4 f1 f+ G2 Q! E1 G: @to unit_plan
ask turtles [
8 ^$ ^1 ?/ s4 @/ M( Vif (remainder who 5 = 1) [set a who
! A; t' W1 i, ^% J2 D# [                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
. j0 w* X1 K) G4 j    setxy ( xcor-of turtle b + x )
( d) G7 ~6 {2 I$ z% L4 _$ u! V          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
- `' E3 V2 T6 b4 x                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
% e9 L2 c8 ~& ?+ ^* q9 w  p   setxy   ( xcor-of turtle d + x )
4 {# H' X2 v# }; P4 D2 z& }* s           (ycor-of turtle d + y )
- T, }' Z+ M" L$ C) v9 v  m         
9 @9 S* _3 M# c' \            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
  m) L! x+ c* P: T8 k: f! O4 ]                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
. ^2 I2 G" ?% `+ m/ r1 Z           (ycor-of turtle f + y )
2 p+ ]" J8 L3 A% T4 e           
+ j2 @3 a$ G  R7 m3 ?9 a           
( R; k# V$ B3 X; Rif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
8 V& m. x: Y4 t                          
                          
                          ]
end

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

etamina

已经解决了，
应该是
ask turtles [
8 x9 }; f) E$ H; u  A- C5 Wif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
, d9 N+ W. B- B7 v           set b  int (who / 5) * 5
+ F1 l- i( p) A    setxy ( xcor-of turtle b + x )
( |3 \1 I3 `$ p5 s8 ]          ( ycor-of turtle b + y )]]
) S( ~) w8 [: V2 D& S  `6 Qend
0 `$ h; {" d. Q/ x. y' v之前有个括号位置不对没发现