看看这段代码的问题

etamina

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

. W- f8 \: \/ ]6 I1 R" }2 Z' u. a0 c但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
" w* `4 t1 U& i7 X' P/ F# d
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
, X" l" I2 L2 U& t]
) l, [4 X4 t3 D0 J+ rto new
  ca
& C  Y& T% T& W- C& @  a& w1 K  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
9 O8 |9 I5 o( l6 `) [4 a: \  scatter     ;;keep center-turtle random positions
" i+ ^, Y8 N1 `6 H) _  unit_plan   ;;make up the building plan
end
to scatter
! U2 h$ E6 a! |( task turtles with [remainder who 5 = 0]
1 M& T- E4 S4 @+ c( w8 H[
0 d# b7 h/ a) m: tset xcor xcor - 6 + random-float 15
6 {( E$ C& @6 V$ n( J! k) Qset ycor ycor - 6 + random-float 15
5 Z7 v, r9 v6 o) A]
end
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
' w, u& C# o  \" \2 D8 x2 ?: h/ S: w" M           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
' j/ ?/ G8 f/ [+ K0 Dif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
" O$ w+ w! H1 l5 `2 @) O: ~                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
- r& q0 J$ D% j+ H   setxy   ( xcor-of turtle d + x )
! e0 A- d! R8 Q2 e9 v" C           (ycor-of turtle d + y )
( B/ a3 t" K2 `0 v$ M9 `) M         
) J2 `& e8 E0 q8 G& R- {& z            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
( u4 S! b6 p/ C# S                          set y (0 - Dep / 2 ) ]
4 L0 S$ B; A. y                          set f int (k / 5) * 5
: S) \* e# H* J' h6 J& \  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
- r6 o8 a/ X/ o% P0 [( v           
           
if (remainder who 5 = 4) [set g who
2 Z6 i% ^) j* i                          set x Wid / 2
                          set y  Dep / 2 ]
  {; Z' S2 s% G# Y                          set h  int (g / 5) * 5
( q2 j  P5 M5 o5 n2 M6 A  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
8 ]6 X1 r4 h7 y- ^                          
5 S; [* o! u$ n                          ]
end
' Q$ y* h7 D6 j
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
& V1 V( |& r1 j8 z. P. m$ e0 R( Fask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
, I+ Z+ \/ R( Q1 W/ x5 Z/ F# g% u                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
" M, ~! y* ?  s$ p          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现