看看这段代码的问题

etamina

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

4 N! f' V* h( |! }% Q但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
1 E$ b) o$ j- Q6 |
turtles-own [a b c d k f g h
; R2 W- B7 @9 N: ~  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
, Y! E6 i% a6 Y" j- ~]
to new
  ca
  crt 5 * num_of_building
$ [# c! p, u( Y* J  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
! G' q8 ~: {# g/ Z  scatter     ;;keep center-turtle random positions
8 z4 x& D: k" C( C$ w, ^0 M  unit_plan   ;;make up the building plan
end
6 v% ^! _1 i6 wto scatter
ask turtles with [remainder who 5 = 0]
0 P1 c+ m" E7 G/ N; G[
set xcor xcor - 6 + random-float 15
7 N/ @5 D7 p, @; o% eset ycor ycor - 6 + random-float 15
! d/ c9 X! f5 s3 [  t/ I]
end
# x1 [# Y- a- W0 Kto unit_plan
. ^7 a" }' }, \( S( iask turtles [
if (remainder who 5 = 1) [set a who
0 v/ J  v2 s( Y  A                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           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
: x3 g) y0 S4 f4 Z5 k& t( w( p                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
6 {' c4 y9 b( D- Z4 S   setxy   ( xcor-of turtle d + x )
+ I, }9 u2 p; G, M           (ycor-of turtle d + y )
         
' B8 g% ^+ J) A            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
, {" T8 v# z* I. G  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
- _+ K. j7 o7 Q% p           
& r( n0 g# R+ \* h: iif (remainder who 5 = 4) [set g who
5 S+ S" J! a5 ^! U: U) w                          set x Wid / 2
; i' \* f( R# ?* [  P                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
' X. o# J# X' k3 M           (ycor-of turtle h + y )
: w" V  m3 e4 ]# w% |8 @0 x                          
6 i. ^0 J: b) Q' k; m                          
                          ]
end

[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
: f, H3 E9 ~& T5 p  {4 l# ^应该是
& y8 p$ t/ U) X) s; S* {6 cask turtles [
4 ]8 e! ]) b1 A% @8 i( e& nif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
( T  {. r# F3 I% V    setxy ( xcor-of turtle b + x )
( E+ r- e: Y3 i1 j6 \$ c! I          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现