看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
; E. F$ p# }' w9 J
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
+ Y# R. A$ @7 V6 q; p( y/ k# Q
turtles-own [a b c d k f g h
$ ~& _: w; r: _" E% x  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
9 }+ W* |" r: T4 w" i% z; a0 {& Eto new
, E& F0 s9 f8 Q! r( u$ K  ca
  crt 5 * num_of_building
* g* [; L8 e3 f; a% }& W) b  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
4 V. m/ _4 ]& D  `) o6 r  unit_plan   ;;make up the building plan
: x! z3 O; b' z1 x+ d  {end
to scatter
ask turtles with [remainder who 5 = 0]
* F  ~% ^/ i  }9 h5 \% t; _* W[
/ n" V+ ]4 E+ S; Xset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
. `% ?% ^1 g  h3 w2 M( J]
6 w9 C! e# [7 \* vend
to unit_plan
, ~6 }8 g& p+ t5 F* M: uask turtles [
if (remainder who 5 = 1) [set a who
2 @; c+ k0 j. [/ ~                          set x ( 0 - Wid / 2 )
6 f8 W9 d  Q2 y; ~5 U* d% V                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
2 @' w% t& j+ Y- Bif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
$ F. B8 p. r( y: ~8 C8 y" b   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
1 a1 l  K) t8 l/ z            
; I# A7 q" C6 \! f/ G0 mif (remainder who 5 = 3) [set k who
( A2 l7 l0 Q" y. Y6 ^                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
6 ?# J' u" U) q% P           (ycor-of turtle f + y )
3 J) V) O% }- N" Z8 g           
           
if (remainder who 5 = 4) [set g who
) U# A7 F) H5 a( N' U                          set x Wid / 2
: x5 I( ]5 {0 H8 s2 W( h                          set y  Dep / 2 ]
* h+ e+ ?( i# g/ s4 z6 w8 ], }                          set h  int (g / 5) * 5
1 p5 x0 I% ?- M2 }2 b, H; E9 ~3 u7 P  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
( H) s3 b: `" B5 u8 O                          
                          
8 t% d! S. B3 s                          ]
end

! b* }  K; ~1 D8 a" |/ b/ p[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
) q- @; l8 h7 S) v8 E( t- Q应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
, y- L; ?7 f' }$ G) U& H           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
' V- e% w1 m- A: a4 H* j8 u          ( ycor-of turtle b + y )]]
$ Z' a- q4 L4 u; |end
之前有个括号位置不对没发现