看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
1 f7 [$ z1 N: |5 Q7 F
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

8 E- x7 v+ H  q" B! yturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
1 e2 ?7 q6 p2 i  vto new
  ca
  crt 5 * num_of_building
* G& |  J/ V/ J6 q: R0 {  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
! X7 H  G. M7 t* C8 j  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
3 X% p4 {1 p# @2 Zset ycor ycor - 6 + random-float 15
  b; \  M1 k& i) I5 `]
1 p! u) T6 a' ]& ]. ^; F9 u6 u1 gend
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
) a, e7 c7 _1 s) e: s+ N9 W                          set x ( 0 - Wid / 2 )
9 C  ?* X1 e$ p5 O0 u* H                          set y  Dep / 2 ]
( ?( D4 }+ j. g! Z+ R           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
' y9 }& t$ O- k. B  {' O5 J                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
! o5 k! c) }% K6 C4 i4 G3 d0 ^           (ycor-of turtle d + y )
         
            
6 A* ]) X2 t8 J- c1 R" k+ xif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
7 k3 o& I' T+ v; ]$ l9 j                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
* o; f1 G2 b2 x7 W3 p           (ycor-of turtle f + y )
           
           
- n! z* o. H1 w$ \; W5 [9 oif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
2 e7 N1 h8 M  P( u                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
% Y( I7 P8 G2 N! P! G$ |                          
  ^' T! }0 M0 ^" ~* t" l+ `& N                          
                          ]
end
/ P% D7 Y1 `) R3 K! J" u
% Y/ n5 j. Q' q0 t' j+ X0 L' A[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
' n8 ~2 [5 K' Z2 i% [                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
: w9 T9 ^- s% a/ z+ N7 J          ( ycor-of turtle b + y )]]
4 B+ d+ ~6 Z4 N4 Z- |& M& t2 E4 Eend
4 P4 g( h8 P* A4 e$ Q之前有个括号位置不对没发现