看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
3 _9 z+ v. J% }: ]: d
1 q2 n, k0 _6 \7 c5 _turtles-own [a b c d k f g h
2 j% v7 z) {1 R. {/ q- g' j  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
# P' ?* n, R+ z8 \5 V( T; J]
to new
: Y. e- p* b6 B8 Q# `" Y- _% \* p  ca
  crt 5 * num_of_building
. F5 O3 w! d8 a  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
+ e/ H, w4 U# g/ g% q  scatter     ;;keep center-turtle random positions
, \' Z8 O! H2 ?3 Q. K, }, K, i5 g  unit_plan   ;;make up the building plan
$ {# g1 c& F, w  X/ a" o; N0 d1 Rend
to scatter
ask turtles with [remainder who 5 = 0]
) E8 D! H) i, x. M8 J3 m[
set xcor xcor - 6 + random-float 15
$ p$ M0 B* M; iset ycor ycor - 6 + random-float 15
& k$ l5 \" z1 c: c" b]
% w5 g- @8 O2 a3 l7 ]end
to unit_plan
1 a' ^6 Q2 F/ A+ m) a; z! vask turtles [
if (remainder who 5 = 1) [set a who
, ]5 L4 C& v$ i; q# u8 L, u9 V                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
% f& B7 _1 ?' Y( ^    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
5 Q) T& P6 r. C) Cif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
' w& E  f  R6 S' M$ m9 H                          set y (0 - Dep / 2 )  ]
  c& }. m+ n  h& [8 J$ h" z2 A* H                          set d int (c / 5) * 5
* r0 ^( z# \& H! B& M   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
" R5 ~& |# ?' i# o4 j$ `" p         
            
; ?5 D$ S# ?' G" I0 P( Zif (remainder who 5 = 3) [set k who
; P% U- z5 g. B" w                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
$ R1 z: E# \4 u0 X4 X1 o  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
0 Z8 T0 X$ q$ m; ^2 V           
           
0 D0 `) @& h' q. v1 fif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
, {9 ^2 b8 ~0 c                          set h  int (g / 5) * 5
9 D" Q7 V* ]$ B" q3 E" K; U4 ?# j  setxy   ( xcor-of turtle h + x )
7 B0 d: [/ \% u! G5 z/ \5 W4 B# E           (ycor-of turtle h + y )
                          
# L* \. h" W! v& j5 r$ N& V                          
) Y: c' D% A" O& t$ ]* M( D                          ]
end

# g, A' P' q- Y* l  \! e[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
( O) o' X! |) X0 F3 @; }% y应该是
; u( ]" l# J8 a* D+ v6 ?ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
1 B2 _+ _0 s4 h5 O) S$ t                          set y  Dep / 2
           set b  int (who / 5) * 5
% S4 R" p* L( s! E+ u2 x  ]    setxy ( xcor-of turtle b + x )
) I; l- o9 ~% W& z8 Z' a          ( ycor-of turtle b + y )]]
end
: `; Y( H# A' H6 I之前有个括号位置不对没发现