看看这段代码的问题

etamina

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

3 E# u+ f$ s& n4 V但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
7 l  R" K6 s3 D) j& z- ~' h
turtles-own [a b c d k f g h
$ k1 e# O7 j8 y& |/ r: B/ b* k  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
& P4 L" [& l0 q5 \  }to new
. [) u, l9 G4 G6 T! D0 l+ Q6 p  ca
$ w7 w+ }- z1 V9 y2 ?  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
' Y( O' J3 Z1 b  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
* t9 h$ Y) R% v& V( V8 ^& ^to scatter
9 e" L  F* ?% t* Z0 lask turtles with [remainder who 5 = 0]
( |% z7 p% `0 g" U6 F  {. P[
, |) H& E/ Y6 u. ?" k- e% \% Pset xcor xcor - 6 + random-float 15
1 A5 p* _6 G  ~9 Y1 e! N% i2 Bset ycor ycor - 6 + random-float 15
]
end
9 N8 p: q) I$ Z( Dto unit_plan
5 r( n9 A( m2 V9 E! h6 qask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
" V2 a' r" V+ T. X                          set y  Dep / 2 ]
. T: c9 x/ n/ f0 ]           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
* l1 E/ ^# N( F- R          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
: E# Y7 V3 Z6 ^7 z$ T1 E) V! G                          set x ( 0 - Wid / 2 )
8 [& T1 q" r, w! D1 C- R8 Q                          set y (0 - Dep / 2 )  ]
( j" B. S+ f6 F+ }  ?                          set d int (c / 5) * 5
+ N9 J$ S4 W$ X$ {   setxy   ( xcor-of turtle d + x )
. k) s- q) l; G6 C4 I3 w1 ^3 ^           (ycor-of turtle d + y )
         
! T6 W7 d2 C$ H, g# P+ T            
if (remainder who 5 = 3) [set k who
5 R/ {, h9 }7 _" A9 |                          set x( Wid / 2)  
5 {. j/ I9 h6 J. z. C                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
& C+ d+ t+ [3 l9 C$ q; R7 g           (ycor-of turtle f + y )
9 v6 B! u5 ^9 @: _2 }           
$ B4 C- S4 S$ Y3 P! \! h- J. B           
if (remainder who 5 = 4) [set g who
% C  K& f, R8 J* t                          set x Wid / 2
                          set y  Dep / 2 ]
) S+ O  r5 Y# E                          set h  int (g / 5) * 5
0 f& ?1 ^# Q4 j5 }( C  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
. r& u* y: p9 z6 z+ Z                          
                          ]
end

8 d/ b. K+ y: x3 c- b[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
; I1 y- R: Q7 p  [% z& @5 S应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
; F; t5 }) T3 M           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
" I  z% ~4 C4 @+ l: @end
之前有个括号位置不对没发现