看看这段代码的问题

etamina

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

7 \3 N, B: I: h8 v" O0 _  J+ C; d但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

) O6 P3 W& q* J+ h! yturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
" ]" N. v' U7 p% f$ V$ s/ {. A3 v]
to new
  ca
  crt 5 * num_of_building
. e; r# p. T& c, x% E  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
1 d: ~5 Q, F: n" J& g  I' Wto scatter
ask turtles with [remainder who 5 = 0]
& t4 B% a/ s; s. _[
% F$ X7 g" b- iset xcor xcor - 6 + random-float 15
' z3 F5 l4 b! |2 i7 J: wset ycor ycor - 6 + random-float 15
]
! a$ e6 P  ]2 N2 F2 l: _3 r/ fend
! f9 z9 C5 _  y; Eto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
$ G& B5 V& Z' E. B2 @/ z           set b  int (a / 5) * 5
) S+ O$ s3 k. z& d6 k    setxy ( xcor-of turtle b + x )
7 ]' @3 ~2 }% @- `3 B0 D          ( ycor-of turtle b + y )
& Y3 ]; U5 M. d4 _# o( y3 Yif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
5 E9 V) X- L: Y. R0 E7 L! A9 F! ^; l                          set d int (c / 5) * 5
) }' B, B- Q: z0 u3 p0 }& p   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
: N. Q$ V- Z$ r( j1 `0 {         
# l2 y$ O' G/ ?$ v: \; U1 i+ \            
5 g9 i( w& M  t- J7 }$ kif (remainder who 5 = 3) [set k who
! N# \: w, H9 a0 w* E# E$ {: W+ ], @                          set x( Wid / 2)  
9 ^5 E  J( D7 P+ I6 G                          set y (0 - Dep / 2 ) ]
( T( c1 t6 X+ z( r  B# P9 ^9 S                          set f int (k / 5) * 5
) z7 P$ a* ~. Z- H8 D  setxy   ( xcor-of turtle f + x )
3 H# s5 T: B4 z0 a. {4 \4 r           (ycor-of turtle f + y )
           
% a+ W. M* Z, N7 C0 i' i% H           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
4 a/ T& d0 a+ [# k7 z$ z; h                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
# d# n9 Z' m3 ~  setxy   ( xcor-of turtle h + x )
* s  K( c- c: }' }( P& `# r9 s% R, B           (ycor-of turtle h + y )
                          
                          
                          ]
$ \. S0 ]. d# y6 ^* cend
7 H$ I$ [' Z. h7 d7 A9 P3 M
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
8 v& p7 p7 v9 v7 Pask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
3 q+ |( i: n! {% L) [6 u% H           set b  int (who / 5) * 5
$ d% R8 w% |9 [' s& r: E    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
" u) A* L  R& o5 k6 v9 @end
之前有个括号位置不对没发现