看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
% y' V& {8 z, j; b" P5 i- q3 G
9 ~% ?  u1 E# ^* h$ K6 kturtles-own [a b c d k f g h
; v* o* B, I5 {6 {0 z  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
: u% T# Y& c# Q  H]
to new
% h+ Y& A+ u, T7 l  ca
. R1 b( Y. J% u: R. R  crt 5 * num_of_building
3 R. D1 i" G& B: @; l  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
1 b. o9 r2 l0 L. q" O8 x  scatter     ;;keep center-turtle random positions
# l0 m7 ~8 ]& B  h* ]1 y  unit_plan   ;;make up the building plan
1 V3 {2 ]7 D6 U6 kend
2 D& e8 c* I  f/ ~7 pto scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
" D. Y/ g4 ~) ~; \set ycor ycor - 6 + random-float 15
5 `' P8 k8 L5 F- `, x) Z/ v]
end
to unit_plan
ask turtles [
& [6 }, i0 o+ s8 J8 ?if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
- y" I2 ~! k* w2 ~    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
2 X* w  R; b/ o4 ~8 hif (remainder who 5 = 2) [set c who
" g" Z8 A1 O" y, i+ e% Q5 q                          set x ( 0 - Wid / 2 )
" J2 {6 }0 I6 F6 X/ y: Z' }7 @# u                          set y (0 - Dep / 2 )  ]
( t( L4 ~% v( x3 P                          set d int (c / 5) * 5
+ `# f5 R. T1 @- V3 E   setxy   ( xcor-of turtle d + x )
" h" G1 \4 @% d4 Z           (ycor-of turtle d + y )
         
! }5 c. Z; |. R. B. D# F; j            
* l  P' Q4 ?- J6 [1 g. k" _if (remainder who 5 = 3) [set k who
0 }: i/ j' \; J5 l# M                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
: k9 l  e; I2 _& C: e  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
  Y, [- C- M; O; g8 v, Yif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
9 k3 p4 A" o5 N) t; _                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
9 x, u: ~3 A( M. p) }& W                          
                          
                          ]
end

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

etamina

已经解决了，
* z; @0 q, y, L' S* f, y. r应该是
5 N, ^4 Z$ j! ]4 x' _% Sask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
. s' u1 }: ~& a                          set y  Dep / 2
/ N0 Q  K) q# _) q           set b  int (who / 5) * 5
, b* {1 Q, m* e4 ~& z. V/ n    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
- }0 y* g8 a, ?; R2 Gend
% Q; G( b; R+ [7 L之前有个括号位置不对没发现