看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

3 ~8 {2 Z' Q. f+ G. H4 q2 F4 Dturtles-own [a b c d k f g h
0 ]" l/ t0 H: S$ ~% X6 y  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
( T# w# w% O2 Z+ C0 L* _to new
7 l8 y6 Z. Q5 }+ n# \  ca
( z9 G6 v" |8 h- _0 _, U7 K  |4 }  crt 5 * num_of_building
- O8 N  C1 E; q3 I9 B  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
6 q, _0 ~' N2 p  W6 V# E  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
0 D- C& P) B, ~: s% E& |ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
) x! K0 c% A# J! ]4 k# Uset ycor ycor - 6 + random-float 15
' X) H" d) ]4 ^, Q/ u0 t5 Y]
2 \. [1 i0 O3 z3 Pend
" z4 N4 |! G9 H5 D0 U9 Ito unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
) P! X# T: e: G. l1 ~: }    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
& r- H; H' ^" `/ Cif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
+ K# B. m/ \# L' @& ^. M   setxy   ( xcor-of turtle d + x )
7 ~7 A1 C! y, S0 y7 }* @' z& E  ?           (ycor-of turtle d + y )
         
            
8 W+ E: ?1 E0 Lif (remainder who 5 = 3) [set k who
: }2 b. y7 c( Q9 I) K7 T                          set x( Wid / 2)  
: G2 ], X- U; G                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
3 |% o) ~% H5 ~( H( ~           (ycor-of turtle f + y )
  Y1 P$ t- U$ p( {9 R5 n1 |           
- M$ b2 k' g- b" ]; i8 v           
if (remainder who 5 = 4) [set g who
3 }  ^( A. b  {! ^                          set x Wid / 2
5 o! f2 p( [8 d& i+ _. `; v                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
5 Q; g2 V2 N" x9 V           (ycor-of turtle h + y )
                          
! s# y; B: U  m- }                          
                          ]
! o3 C1 n& ~. |/ [) d% V* |end

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

etamina

已经解决了，
应该是
ask turtles [
1 A, Q3 k' e- yif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
; `* x  N+ e' d7 ^4 S: S7 O           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
& J+ r# Q8 R% J) b之前有个括号位置不对没发现