看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
2 w  R/ W$ X* {& M. |! Z) o( o5 t
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
) y% R7 y3 U8 R0 T]
to new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
3 R3 v& [+ `- U+ I: Q  scatter     ;;keep center-turtle random positions
" I+ `+ e# r& l6 y! \& M  unit_plan   ;;make up the building plan
end
) f4 c  k) i9 @7 @to scatter
4 q8 ~' h6 k& L7 c7 ~* M! |  Task turtles with [remainder who 5 = 0]
; u/ B5 |& R& ~) a[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
/ \! p  S) ^3 ]; M& [  C& X6 d]
' W3 f& G7 }3 L! j  B0 rend
; ~3 m4 }1 M, V- Qto unit_plan
ask turtles [
  H% T9 b( L* o9 jif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
) Y( f& }# l0 J+ _# b" p) u           set b  int (a / 5) * 5
6 C6 \. o0 V( z' ^$ w8 U  G* s% P5 V    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
  O; ~* y6 K* K3 x4 D" iif (remainder who 5 = 2) [set c who
9 s# r# }6 a- ~4 r4 ]2 `0 A                          set x ( 0 - Wid / 2 )
$ e/ {$ X0 t+ ^                          set y (0 - Dep / 2 )  ]
7 N' I9 \9 S8 c) v                          set d int (c / 5) * 5
7 z4 t# L2 w" k: j: G   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
: z5 U  }5 o4 k' g5 ]         
            
1 `, S& p: S1 v; D' [if (remainder who 5 = 3) [set k who
# Y, P' w$ Z/ v                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
3 B8 F4 ]1 p8 K                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
+ l7 r6 j' B! ]! J* ?" @           
9 t2 N+ Y1 D3 \- r* }) e           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
' ?" }! r0 ]4 {                          set h  int (g / 5) * 5
& z' y  q* S! W! d" X2 h8 n0 I3 {  setxy   ( xcor-of turtle h + x )
6 y* h& {1 a, d' N) Z           (ycor-of turtle h + y )
+ f0 m7 X; x. L4 }3 h: O' u* t                          
                          
                          ]
4 H1 @$ \9 I9 I  `: o7 z- Gend
8 y  R& L% c+ w
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
, n- e1 g9 d8 O* P/ {+ sif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
+ h& D# d3 e5 Z2 W' ^           set b  int (who / 5) * 5
  k) Q! @, G/ H2 I. [/ d' T2 `" w    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现