看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
4 z& d! d, ^6 a% k, k
; f% Z3 Z  u" `; ?. R但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  O6 x; J% ^9 Z2 I$ [( ?  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
  crt 5 * num_of_building
! ?% W. R% m2 ?( ?' R6 [; ?7 C  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
% J6 ?- g2 X4 q6 R! V  C7 Oend
to scatter
0 U+ ?+ S% {: G' Qask turtles with [remainder who 5 = 0]
[
  u. g2 P7 \) J/ Uset xcor xcor - 6 + random-float 15
% W1 T. L' \/ h  Dset ycor ycor - 6 + random-float 15
4 E" ]' h- X1 k5 C]
end
to unit_plan
$ [& f2 h8 W2 q6 \ask turtles [
4 W6 i& V- ?, O' uif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
0 O" l% [+ f8 }* i, q) R% B                          set y  Dep / 2 ]
4 x( h5 V6 J) u1 V8 W           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
# d* b! ]9 |7 A& |' d# B          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
" x1 E/ C. F1 m                          set d int (c / 5) * 5
) j  R- h3 j( ]1 A9 R+ `* ~   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
) d2 `- n2 H, d6 M+ G7 k3 l' ^         
& H  M7 d  m' C1 ~/ U            
if (remainder who 5 = 3) [set k who
7 s9 z( R+ d5 w! P                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
7 w9 U; A7 S' m                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
7 O" R( F4 I6 E6 {9 q& f% u1 I           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
# ^) y% o! j1 r  g3 |- v                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
6 \% a( b5 A, u9 F  setxy   ( xcor-of turtle h + x )
3 p0 p  d$ T' x8 S- G" ^- k0 ^6 `           (ycor-of turtle h + y )
  I1 R9 \. S; w/ O) A                          
6 U& M( c% r6 {+ d# U5 C; P5 n                          
                          ]
end

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

etamina

已经解决了，
1 Y4 \  o. ~' \! x" a; s应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
% g$ Z, \( G& v' K3 x2 g                          set y  Dep / 2
           set b  int (who / 5) * 5
. K7 Z' t( S; X  V    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现