看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
- R: ]) ]& t) Z; M: w. W$ U* \
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
1 |" R- |, |+ e2 Z' c& }
turtles-own [a b c d k f g h
" k8 n9 @& Q* {3 ^! D  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
" k' W7 J2 Y2 s# p" I" C& X* m# z  A2 Lto new
9 U. }. O: q1 N8 F. K( s/ c3 |# }' C  ca
# \; n* b/ t( G9 i  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
9 J2 |9 c3 n: I, F- x5 }  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
# L- G  Q. o9 Mend
to scatter
/ z- D- K7 n% ^+ e3 M3 fask turtles with [remainder who 5 = 0]
( b. C( r2 a1 O( K+ f. e[
) t6 b  k, K% M: `% P7 ~3 Nset xcor xcor - 6 + random-float 15
5 g; Q' t' K7 Bset ycor ycor - 6 + random-float 15
]
) U0 Q" K! K) k+ w& _/ {end
4 R! A% E2 J3 w3 C2 L! Kto unit_plan
  y; o! H9 p3 M& Zask turtles [
, Q) `& T2 H$ U. ^3 Tif (remainder who 5 = 1) [set a who
1 V( m0 G3 l$ g5 N% A, m                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
& B3 J# W5 U, J+ y% z2 m           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
' w+ b; _' s' t' Rif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
1 `3 o9 {- ^. H& `                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
/ F$ R* i. F$ [' Z- I            
# f2 X2 ~1 l: b3 r8 ?if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
! D, v- M  H  a5 A9 \                          set f int (k / 5) * 5
; k6 _0 i0 n' z- m; Y  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
& I, t) i7 T5 `! {  y           
3 }, O" {& r) D9 l. }5 s; }if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
$ R1 f) r$ }0 q2 n3 y% u                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
/ r3 w5 G& ^1 \8 B, h. f% h3 Z' n           (ycor-of turtle h + y )
( p, y0 [% B# H" r                          
# }+ J+ n7 C4 g) G. I                          
                          ]
end

/ S' m% G6 ?( I/ h; t" I[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
% \3 N; R" i3 d1 Q                          set y  Dep / 2
5 v+ C3 [) o+ ?4 V( A" l           set b  int (who / 5) * 5
( i4 M9 F9 u. b- T  o    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
; n: @) x0 U1 ]0 K之前有个括号位置不对没发现