看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
& \/ I! k1 ^: a& P+ O
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
, P% j- T  Z( ~. Z" t9 x  crt 5 * num_of_building
$ o* Y- Z2 X0 Y1 H7 f1 ?3 n  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
1 k! i$ \0 f) r0 C+ v  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
/ H) E/ s. S1 t1 P. }8 D, mif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
9 b+ T1 r4 j' t# W                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
0 h+ L& q( a# h6 f    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
* l0 T  M% [( m, r                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
2 ^% |& j8 @* w+ h           (ycor-of turtle d + y )
& s0 q; L1 [. u1 X6 Q' |         
, O9 q5 l( C' Z* O            
if (remainder who 5 = 3) [set k who
( j2 ~9 T8 u6 l* h2 i                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
+ a4 x( v) G6 S; z' I8 M                          set f int (k / 5) * 5
( S9 `* L% Z- P* j6 i( f& m9 t  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
% n' x' h4 F: q' Q  ^           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
% ]! s0 ]4 j% U& M+ r0 n+ X                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
0 E/ K3 a9 |: f4 ?7 J, c8 ]% ^$ j                          
                          
                          ]
end
+ J$ G% f2 b# U, V+ ~; n
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
3 Z% Y3 S& G# t, X% j应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
. @& u; a! w0 A; L  ^2 [                          set y  Dep / 2
/ ~, L7 ?3 s1 S/ i  a2 x           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
. S2 t! T1 g1 W          ( ycor-of turtle b + y )]]
; }8 c: @2 p: S0 y0 Uend
1 i/ G1 s# Y$ X之前有个括号位置不对没发现