看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
% r5 d$ \$ [/ ^+ }3 J$ u3 Y9 h- i1 }
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

9 f" g, I; ~' ~1 A; Q" Uturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
: ^  v$ J$ M0 u) N: t1 w  q]
to new
9 o7 G" O! M% _6 ^  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
9 \1 G0 B* X% W3 v- @5 ^  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
2 H7 g8 c& @. R# u) ato scatter
, I# F3 _$ b' q( J. mask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
) h8 v" S6 K' H4 u% u& N; tset ycor ycor - 6 + random-float 15
]
  T: U9 b- \4 w5 U/ Aend
3 J& o' Z9 R3 ^# s1 I* S+ ]to unit_plan
: T7 m' W3 S- L* }3 Z1 \" m3 N# ?ask turtles [
/ B4 s1 k# a3 S" P" e" lif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
' z! A/ R+ n7 o8 V( c' v    setxy ( xcor-of turtle b + x )
8 O9 }  m; q. s; _          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
6 a7 e  @+ d+ r% z9 n                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
0 @) |1 \  `: P* ?$ p   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
* j5 W* k7 b( z8 A9 K. z) H         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
8 X- y. `) h' H) m7 j                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
! e. Y3 r; z" l; G! o           (ycor-of turtle f + y )
, @! i4 h; R! w. Y. i/ E/ M           
) ?; P# R- y  [8 Y9 c. `* ~; E           
* M* j7 d4 F; Mif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
1 Z; ]: @$ y6 [: S; d# |                          set h  int (g / 5) * 5
2 l" i- ?; R  ~2 m$ B& i. ~7 S- _) j+ D  setxy   ( xcor-of turtle h + x )
, n9 R% W- b6 f. h% V           (ycor-of turtle h + y )
$ l; Z, [2 m6 b  x9 {6 {/ e# ]$ I                          
                          
                          ]
end
3 s( l" m6 L7 g8 O3 l  f8 Q& ]& P2 g) d
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
! |7 G. j( O3 u2 l# K2 a8 T- zask turtles [
! L' Q8 k& w0 n$ g6 Wif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
: b+ X) @7 J) A  \' I* P                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
( y8 G' |- \! C之前有个括号位置不对没发现