看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
3 N2 O9 t7 ?: @: E; n
* y$ f  Q/ a( ?但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
: t* z5 [& v, m: P8 C8 b2 j
, I  g; g1 t: `, Hturtles-own [a b c d k f g h
$ p% P: }2 W1 O8 O  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
3 ~: A7 O2 H" y9 v, Q  ca
  crt 5 * num_of_building
; j+ {: G+ w: B$ _: o+ s, M  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
% ~- u! o! b0 t- Z) T% ]  unit_plan   ;;make up the building plan
end
8 {8 V2 R, c9 E( q# }to scatter
, t: }6 C$ ]% S5 W3 o" e2 m. mask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
, x$ t4 j' q8 u' a5 U8 K7 \6 H( oset ycor ycor - 6 + random-float 15
) U3 c# {+ D( F6 M; \3 x0 G]
( E/ a- m/ C+ C; i! Cend
to unit_plan
5 h  h, h5 r# D; E+ bask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
+ a( O# N" T8 [! {6 q. D# F- u# u  Z           set b  int (a / 5) * 5
6 Z) r% l# M1 l! s5 d/ s    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
0 j9 v4 S- |+ }6 p- o                          set x ( 0 - Wid / 2 )
9 s# S4 g9 F* r  G                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
% Z5 C6 b) Y) K3 h' S- |1 O, a* y           (ycor-of turtle d + y )
& B+ t8 X. W) v0 ?  I. |6 G         
4 ~1 a, u4 v+ P) E2 W            
6 Q  K" D! F% N( [2 Bif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
( X8 @: o( w& ?. w3 w& A: N  setxy   ( xcor-of turtle f + x )
* V9 T9 y6 b3 W/ l           (ycor-of turtle f + y )
           
0 ?: J5 J, b3 j0 u- Q# m3 ^; A           
6 m) \/ u7 x; @' J2 W8 hif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
7 l2 d6 F- k$ }% ^; x: D7 Z( v. H                          set h  int (g / 5) * 5
. g2 u0 z% o. K0 H  setxy   ( xcor-of turtle h + x )
# o8 o' q4 M1 U9 t" k           (ycor-of turtle h + y )
" z$ L! u+ L& M4 ~: Q                          
                          
                          ]
end
7 y) T/ ~$ w. G9 h& U$ \9 C( P
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
8 H* }+ X! V# F2 x% M. E$ Y应该是
+ n. g+ \6 x) Q7 D/ Lask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
! m3 K9 L( @& T& O5 ^! [                          set y  Dep / 2
3 w7 b5 G3 r5 d$ U3 V           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
9 e* c0 @4 x2 ~          ( ycor-of turtle b + y )]]
- C+ P! Y- R1 I' aend
之前有个括号位置不对没发现