看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
  Y$ I. r5 i6 }- \/ C, O8 B0 F
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
! X2 g! R# X3 W2 K8 I5 M
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
, X* p' c( G# q; s% F( F]
0 G$ Q% l/ m' X7 P. {: mto new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
9 k5 a$ V& \! C# H/ F2 U- M  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
7 o  e( j' S" o* lask turtles with [remainder who 5 = 0]
[
# Y$ J# @$ L2 `% E% h+ J' D0 Pset xcor xcor - 6 + random-float 15
1 r" ~4 P" ?$ @' yset ycor ycor - 6 + random-float 15
]
/ t4 W+ G+ W' @" H+ `9 Gend
4 ~* |4 {- l* x! I/ j. d$ L& Mto unit_plan
ask turtles [
6 F, J: \* f- G# ^if (remainder who 5 = 1) [set a who
" B% u# G3 B+ A$ Q! p6 S3 h: P* j                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
4 H& ]% G5 c  c% F8 m3 f7 A          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
0 v- v5 }' z9 [1 d6 x                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
: g/ D6 c# W* N! f                          set d int (c / 5) * 5
' s. j3 g, M; c7 l! `   setxy   ( xcor-of turtle d + x )
: @6 |1 n  p$ R9 Z- w$ J* c3 C           (ycor-of turtle d + y )
         
& f# N+ ^' V0 i0 ]  d            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
! w; |6 C; E$ `; w, W( Y                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
( b0 U# l" V: N. _5 ~. m  setxy   ( xcor-of turtle f + x )
; j6 U3 p* `" h1 l4 V% ]- v           (ycor-of turtle f + y )
           
0 G( ?9 r* x5 {2 Z           
3 D) S* O5 C+ `1 dif (remainder who 5 = 4) [set g who
) v+ B( |' G% i4 Q# M- p1 y+ l                          set x Wid / 2
' i0 T% ?% p8 v0 t9 }                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
: x7 N. O) u( s                          ]
end

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

etamina

已经解决了，
应该是
" k* G9 S8 a% @1 w1 `ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
) _  D6 k2 Q1 U                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
- L6 v& \6 l$ h2 b: lend
. B9 ^, B4 f4 |. d之前有个括号位置不对没发现