看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
; b9 X" _/ R0 N5 A" I. x  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
2 a/ s/ y" m7 T. w5 x  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
5 i* a, A! m2 t* C9 Eend
to scatter
ask turtles with [remainder who 5 = 0]
2 `5 _' O$ {- z/ w[
, A9 D+ |& G5 c/ R9 ~" m9 Cset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
/ b0 x+ R- |. b( C' M- Z                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
! |1 L6 t1 S/ h          ( ycor-of turtle b + y )
9 {# H: N% J5 C: W4 w/ G0 y; Oif (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 )
         
# z: J4 S4 W/ \/ M9 T, p( r            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
5 H0 Q. b* ]/ r. ^& l                          set y (0 - Dep / 2 ) ]
; ~. H7 K7 S% E3 ^                          set f int (k / 5) * 5
, ]1 Z1 Y; m2 ^7 [' [. d  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
. P" ?" f1 y, i; g4 n6 _           
, Z' d* c) A# A( _if (remainder who 5 = 4) [set g who
                          set x Wid / 2
0 c0 M. E4 i  d: |. l5 {& u) {4 W                          set y  Dep / 2 ]
( S+ }  u' L8 x( A/ `: `$ W  D. ?                          set h  int (g / 5) * 5
3 t- S+ d" \- k# I- Y$ B4 y  setxy   ( xcor-of turtle h + x )
" }" P. {$ [9 A! p3 `/ z9 y8 a           (ycor-of turtle h + y )
                          
' q9 r% ^9 F, d1 O/ p$ i" G                          
3 h/ M. Y3 x4 a: Q9 w' Z                          ]
/ E- @" x7 Z. v4 k) f# U6 \end
8 Y0 W& f& E+ l+ z
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
! z& R* }$ K% x: ~1 g1 ]3 a/ f7 }1 Pask turtles [
) }' z' j6 w/ R1 I8 R: |, hif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
2 y/ h0 c2 a) w* m$ f# Y                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
& m  \' K8 V! r3 x0 F$ H( _          ( ycor-of turtle b + y )]]
end
3 A" R3 T5 w2 a$ ]之前有个括号位置不对没发现