看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
, m3 {, j7 E# K  V/ i: K
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
* ~) _/ y, g% q2 \, ]4 \- bto new
  ca
. k. ]1 I" F  w' F1 ?; k  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
7 L  }4 W) i& S  unit_plan   ;;make up the building plan
end
to scatter
$ i, Z# p# A% o" S$ m1 }ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
; ]* v1 |4 \3 sset ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
4 g, G5 T8 X& m& Z& K1 Gif (remainder who 5 = 1) [set a who
0 F; ?) S7 ~4 a  U                          set x ( 0 - Wid / 2 )
* _7 A5 A) ?3 _  M: ~                          set y  Dep / 2 ]
5 u. N2 E- F" s! G* h3 d# @; c           set b  int (a / 5) * 5
1 g$ Y1 \& f% c/ \2 f4 M! @1 E    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
( h! G" S9 F; ]/ M" o9 \* P0 Y6 a: rif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
( Q5 \# \; R4 I: f: e                          set y (0 - Dep / 2 )  ]
  \* e' @7 C% C5 b+ K                          set d int (c / 5) * 5
5 R* G1 o( e, g1 h4 @7 t" r   setxy   ( xcor-of turtle d + x )
# m- z' p+ j/ c$ \9 ?# u           (ycor-of turtle d + y )
2 e) J  E4 L' G0 S         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
' _  ~7 O: e- `( o% H                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
/ i9 X0 u: F, w( z           
# A3 o0 t, E) qif (remainder who 5 = 4) [set g who
: x6 W. H1 @( D' m* v0 J                          set x Wid / 2
  W2 l' T3 g9 |6 C( w                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
: S3 `3 S) V) W8 _# U  O  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
- U6 x- l* E3 u7 ~# z# l' Z" o                          ]
end

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

etamina

已经解决了，
应该是
) t* h! E9 U; E3 p' c% Nask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
! S, P" D8 Q; W1 p, V' _. }    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
: o  n% }7 S3 G8 a" Zend
之前有个括号位置不对没发现