看看这段代码的问题

etamina

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

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

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
% }, V- E' |& v# ~% R; M]
, H9 g+ b& P9 X4 Lto new
0 v/ J+ W; s, O. g# ~, X# E  ca
; [- w# f/ V. V% ]- G, t0 L  crt 5 * num_of_building
4 ]) l& @' E6 i$ p6 f  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  t6 r# K7 h( {# f% P0 W1 u  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
/ d8 U/ ~% L# \0 h6 Nask turtles with [remainder who 5 = 0]
( f9 x* @) r6 Q[
8 z+ |" j  o& l: m) oset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
( k8 Q, a! h2 N( r( ^( z1 T- zend
to unit_plan
ask turtles [
1 m6 P! n$ y. [: A. O2 U3 D- l  dif (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 )
. j& P3 F9 X9 h- \. m0 a9 q          ( ycor-of turtle b + y )
5 W$ Y7 A% I$ V0 pif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
! G5 R5 {& ?8 M! N/ q6 }                          set d int (c / 5) * 5
& _/ t! G2 b1 L2 G   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
3 R" z5 G$ _, A& I                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
; K  B+ X. q9 T  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
, {  n/ t" p+ d* l$ k1 [: ~- |           
           
% R. e: m) q1 {, A) Yif (remainder who 5 = 4) [set g who
+ ?2 @% _$ \$ G* Z! e  y                          set x Wid / 2
5 G' O+ t* B7 S/ F                          set y  Dep / 2 ]
  ]  `4 l, O7 V                          set h  int (g / 5) * 5
8 h/ J! Q, e5 U* T9 w+ e  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
, u* W4 b% x/ r                          
                          ]
  {8 i" O$ ~  M$ R0 C. wend
6 q, T5 c) i8 D' H& U
$ U% G* ]5 U: u7 ~# f1 G/ W[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
8 j6 _6 S- g$ x应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
) u! C  @' l2 a                          set y  Dep / 2
           set b  int (who / 5) * 5
( E( S& Z* ^$ D    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
0 t% r3 M6 ^9 F& `: R+ a! N# S( O) Mend
之前有个括号位置不对没发现