看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
2 W; a! ?- p8 ^' t4 L: j# x
9 @7 ]0 @7 L, [: P7 ^但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
+ }( u1 P% M  i( Y- Z8 R
! r6 g. x. m8 ]3 Hturtles-own [a b c d k f g h
' M4 p9 v7 o% k% ?6 h- W  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
- R8 t+ Q) V  y% |& oto new
  ca
) z. m+ H) J% T! m  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
* H! m/ Z5 V* n2 l  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
' S9 m* W2 q) U  Q1 gto scatter
! G* ]3 i9 n* V& d. Vask turtles with [remainder who 5 = 0]
+ Q( S/ \# I5 J[
( R' b$ O0 f! X% ?! x; R* @set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
to unit_plan
0 Z2 Z/ X, U+ task turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
" U. G0 z: k, S$ v2 F           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
5 h% F4 q; B) y3 E1 u          ( ycor-of turtle b + y )
5 v, i. q' S5 k! e/ kif (remainder who 5 = 2) [set c who
! v6 i$ P* j8 A$ }0 S- k$ j                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
. \0 s- p# _# _# ?$ i: o7 b                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
0 T3 {( S! z8 Q8 M0 U2 F, `           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
. r2 f: ^6 w3 ?9 r6 j$ b4 q& [7 @& i                          set f int (k / 5) * 5
) f, r# |( s& e; Z) k: N  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
5 f% u9 G9 H# [" Q  L1 t8 f$ F           
% P9 T) E: \. c( P           
" E( W5 i! ?8 f7 ~+ ?: Pif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
. {0 r2 d. r( ?; y+ N% S           (ycor-of turtle h + y )
                          
. W' Y; N4 ]5 B4 i  X                          
                          ]
) y7 i$ X9 F; X- o9 N9 Q) {end
! d7 H1 \8 g/ E; j' e# r: b
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
2 N. x8 u8 w6 |- D# ]ask turtles [
2 g) R# [9 d1 {, l" ~! @, oif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
4 U' D% _) v) f4 f                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
+ A! d; B7 }/ q! N; R; l& B& l之前有个括号位置不对没发现