看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
2 p0 |' l& m, g1 P+ N6 ]5 Y: D
9 O0 a! D4 r8 o  v但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
6 [; P5 G3 m0 ]  d& [
1 M/ @8 V7 V9 c' t4 Q$ j5 Pturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
5 f3 P7 |% N1 @' M% d! Cto new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
( z/ [2 I6 b+ A3 ~# R+ g( H: N  scatter     ;;keep center-turtle random positions
+ N9 f# c8 M; b3 G( ~9 X  unit_plan   ;;make up the building plan
) [- h5 e# x! B; vend
+ `( p% o( b' ?2 E$ E2 Zto scatter
ask turtles with [remainder who 5 = 0]
[
3 W3 v+ K3 r5 O7 Pset xcor xcor - 6 + random-float 15
+ n7 _' N' g. A* R5 J$ ?( m' Gset ycor ycor - 6 + random-float 15
) ^' j8 |6 G7 o) h, i% q* l]
end
to unit_plan
ask turtles [
. L7 l- b2 J! g# P2 j% Aif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
$ V( E0 ]9 l" _* h# `+ r    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
8 Y0 e1 _1 {. V1 I- o8 Hif (remainder who 5 = 2) [set c who
" L5 O) Y( b: {0 ?: p+ N) D" ?                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
" \0 G' U% H: c   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
9 n2 N4 V0 b7 O  I, O% dif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
& D3 B5 H3 Z8 }  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
+ z) C( m5 N9 h4 B8 O+ n                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
1 X6 W  S: m; a! j7 C  a0 M  setxy   ( xcor-of turtle h + x )
" T7 C/ a) _4 {' F  h+ e           (ycor-of turtle h + y )
$ U7 R& o- u  W3 P  e! a, q1 \5 r* }                          
8 q2 c' {8 ?: M1 H; \1 H, }                          
5 a3 r; G# q$ {! W, ~5 W. l% Y, [* k                          ]
end
- q4 y# o! w$ Y& Y+ k6 a
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
7 p7 L( t% M. t1 m  d+ Hask turtles [
* M4 O+ a- Y7 J! G" ]' tif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
' |7 C# S- j6 Rend
1 ]# H$ S: |/ e- j; `# v3 r之前有个括号位置不对没发现