看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
6 c5 P' b* z) n& _
8 z9 f$ r5 }. ]. E- {, e但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
; W: N8 q* U* ]* V1 D4 s
turtles-own [a b c d k f g h
1 \  E/ ~1 V5 T9 r% P; _% T0 \$ X  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
) R" T7 C" m% Q# g2 P8 ]]
# S  t8 {& V' G9 pto new
) [5 h  k+ j' S  A; q/ a  ca
! I/ Q. j8 C5 g7 p" O0 `1 n  crt 5 * num_of_building
, U0 `! _/ k6 a5 d- D: ]% A6 W+ r  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
9 ~+ m6 W5 O% `  P( P" s- ?  scatter     ;;keep center-turtle random positions
! d( i# R/ O5 q( r  N  unit_plan   ;;make up the building plan
end
to scatter
6 d- [( H; m# ~2 t$ Rask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
! c6 W, s# J- @4 l9 mto unit_plan
- Z4 T6 T1 O* t7 ^% ]ask turtles [
7 X; l) ~) z7 K: ]if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
5 S3 f/ H0 J0 V9 u                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
( a( t# V1 R) J: w. Y3 F" C3 z8 L    setxy ( xcor-of turtle b + x )
2 u7 G) g- j) U1 G$ E          ( ycor-of turtle b + y )
7 S% z  n2 a( Dif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
- V# u2 q; p8 d' c& l8 G                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
7 o3 U: K# o/ v   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
, H" V& ~/ M2 H& d+ K  X5 D            
if (remainder who 5 = 3) [set k who
" k2 k# [8 w& ^& k; Z                          set x( Wid / 2)  
( B' ^$ @% D. x+ ~( _" W- f* u                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
/ z9 z  i/ F1 ?; m5 q) ^           (ycor-of turtle f + y )
* y  m" N  i4 i8 C           
- S* U$ R9 B) Z2 ^; p) ~9 k0 L3 \           
if (remainder who 5 = 4) [set g who
7 G) {3 }1 i% D: V# j* J2 B( T                          set x Wid / 2
2 i  S8 @! L' z: Q& Y                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
: j# z, q+ x$ O& u                          
                          
                          ]
end
2 B2 Z' }+ M; z4 ^' Y, A
" @! S; ^( |1 S[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
0 V/ i* a% L& g7 w应该是
ask turtles [
+ N- n8 ^) B6 Aif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
) x3 H" B$ o8 h/ u                          set y  Dep / 2
           set b  int (who / 5) * 5
# a# s/ H% q+ r    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现