看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
" f: F/ a) P) e9 K+ g9 ?# h6 {
3 W9 K5 E. [' M; t但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
6 l" F/ ?, T/ a) W/ p/ ?5 C
1 s8 f# @; |2 R0 j8 o2 c& {/ V- ?turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
5 I0 o7 t8 V. V: q* |8 v  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
4 Y4 w) }( y- I3 e  unit_plan   ;;make up the building plan
end
to scatter
+ e4 t- E6 F; j( c3 w5 K* a# Pask turtles with [remainder who 5 = 0]
[
4 @% W- ~# x( g0 c% {/ `: h0 vset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
* u3 a$ j. t2 R( Q, \# |]
/ @$ L; a8 C* [4 ~3 w5 k9 s  Qend
$ W/ ^: z. `! f* h7 a  F- [to unit_plan
/ u9 T: }0 a) }4 S1 Rask turtles [
1 T2 W/ e+ F- S0 pif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
. E  o# u7 H4 Z/ |' s( U                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
! x0 M$ [& s0 e# s6 u9 U( C    setxy ( xcor-of turtle b + x )
' A7 S3 _. v) N6 Z4 a0 Z( f          ( ycor-of turtle b + y )
9 p  f. _: [3 o3 s  I# w! i$ L% cif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
* j4 k7 V% R& h; ]  n# L* y2 [                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
0 m4 H% N8 ~/ h+ w* u, [9 ^# l            
if (remainder who 5 = 3) [set k who
! e# p8 u$ w" N- F                          set x( Wid / 2)  
) Y  ~! k3 Q' x5 S$ [  m                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
% j/ y  v. \! f8 C4 i  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
, O: S0 {3 w. k3 I3 s4 `if (remainder who 5 = 4) [set g who
                          set x Wid / 2
  V- Z0 m) D% `1 J                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
* e& V1 k+ G0 f, Z& [7 u' L                          
# R4 g- }- S3 A) v- H                          
                          ]
) q8 K1 ^) p- |7 f/ vend

8 E* E1 f9 `; O3 U% B% O$ E[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
7 b! `: q$ I+ A( N4 U7 d/ W* }if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
4 T' N- ~2 A8 e" C8 d" u" v                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
2 V1 z2 R3 O4 ?9 H  j2 F9 Cend
之前有个括号位置不对没发现