看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
1 A. n" w) y* i/ w, ?) o
; d# O) V* D2 T+ w) _6 n8 o8 ?但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
% J  Z4 B- G5 W. b; M
  h) ?# p7 X+ v" Z5 \9 Lturtles-own [a b c d k f g h
6 d( P, H$ b0 D7 v  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
! G! ]! g& G; V* e! J]
! {/ W" ~! v6 k+ v" Vto new
  ca
6 y! j0 q, |: p9 B9 C' |  crt 5 * num_of_building
. [4 G& H: R/ ]+ Q4 [/ J, t1 O- b  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
) ~5 F8 f; M3 T. [  unit_plan   ;;make up the building plan
end
to scatter
/ T6 Q% g) U% _6 P& u9 @ask turtles with [remainder who 5 = 0]
[
8 ]& Y# P: z0 r1 C9 oset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
* c. V3 q  e5 ~+ V0 k+ pend
# t% ?* O9 k; g$ l- I, S2 H' g7 ^to unit_plan
9 z6 d0 H% D+ @# E* pask turtles [
+ C& q2 m7 l" c+ J0 m5 B# jif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
2 a: Q. `, q. w% {0 T                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
1 n0 D0 O& u! F# m    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
' e) m3 c2 Y& }/ Q' E. vif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
! ^1 O- s: i' l                          set d int (c / 5) * 5
# v5 J& [# r& z: @0 `   setxy   ( xcor-of turtle d + x )
9 `* e) k- c; b* D* t8 y* E4 u           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
7 ]; i( z/ y) ~1 k) J/ U           
/ G& G% i" Z+ M# P' L) N0 \) S& F           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
( F4 O' y  x) i3 ^: o' f. S                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
* h# @/ g1 Q* H9 b' b  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
$ O. Q: r! V/ d4 {3 L* n# r* y                          
                          
                          ]
" X+ B; A1 }5 e3 B# ~. c0 |. Z1 fend
* y4 e3 j. v) k+ d- X* M6 o
0 E0 k  i$ t2 W  A4 L- X( }[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
5 p2 W1 P8 C, k7 r* E应该是
& n6 p! L7 f  I8 x/ mask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
4 ]* U* {( v& H5 e5 E# J1 I* c+ G           set b  int (who / 5) * 5
4 e& N% w) M/ E    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
" C( s, F6 S- G" K" n' j$ e+ Mend
; @& Y, L- @% A/ E6 C- Q之前有个括号位置不对没发现