看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
6 B: L/ P/ W. m/ l! T3 ]% [' V
, M) b  `. ~, Q6 N  y0 qturtles-own [a b c d k f g h
4 e: S- l3 o' b0 d  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
  crt 5 * num_of_building
0 s) U7 L! x; L5 n+ _, U  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
0 Z/ T  ~2 Q3 E% M  scatter     ;;keep center-turtle random positions
1 y2 @! O: T; v* m. {; i  unit_plan   ;;make up the building plan
end
3 l7 G5 n1 I% b9 k; }1 wto scatter
ask turtles with [remainder who 5 = 0]
[
4 o  a6 F5 g- x+ Tset xcor xcor - 6 + random-float 15
+ b0 O2 g& [- `set ycor ycor - 6 + random-float 15
]
% l8 M, R/ r8 a9 K: Q+ _$ ?end
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
6 b  O6 b+ y& P! K: x/ Iif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
0 i- @. z! b( ~8 j' l2 Q                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
% y# w- [2 {1 W) R% _' f   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
; O. k; O0 K+ b% h9 O1 e            
if (remainder who 5 = 3) [set k who
+ N0 S! Y" A0 s0 f* F  H! {7 m4 {                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
# Q( m8 r, \0 ]* i9 f8 i# {1 L                          set f int (k / 5) * 5
! N8 L9 o; I% ?/ h  setxy   ( xcor-of turtle f + x )
8 }) f2 o0 Z; A* t7 X           (ycor-of turtle f + y )
           
           
$ E2 ^8 x# T2 @& ]/ ^( l6 vif (remainder who 5 = 4) [set g who
5 O' ^; I1 y: }8 q* X# y# g+ i                          set x Wid / 2
3 Z2 b+ f' Q) U6 U4 t4 J* n                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
7 D+ G) B8 P$ ^* m3 w' Q8 u           (ycor-of turtle h + y )
                          
9 T1 }3 X& J7 S' M* _& |! R! s! L                          
" E8 d( u0 |3 z+ i9 _                          ]
end
, e& U" O/ D1 H2 X0 l- u* t5 K
0 _) f) ~' b, [) r" ~4 G7 B[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
) Q& F+ e$ y* {3 i应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
% C9 |2 u1 h2 Z                          set y  Dep / 2
7 i/ [* C$ R7 Q+ |! m. z           set b  int (who / 5) * 5
3 t) B  o* u  G& @    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现