看看这段代码的问题

etamina

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

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

! e% a" \6 C# z0 lturtles-own [a b c d k f g h
4 V' r6 n! r% c8 \; l/ x2 H  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
4 m+ w: j) m2 m& rto new
8 |9 D$ v! ^; W9 l5 }2 Z  ca
9 r6 ~! {# m  P" }2 _  crt 5 * num_of_building
( u  A# B) }4 d  `* v7 e* K6 M  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
- g5 D/ Q/ o  o  E# D/ O, d, S  unit_plan   ;;make up the building plan
0 b2 Y1 t! {& F0 P' m5 a- X( G/ ]: A: mend
to scatter
. V/ j1 `. I+ r& ]! uask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
$ d8 U' v( _3 r$ J6 H9 V3 bset ycor ycor - 6 + random-float 15
]
# v9 C' t2 E6 i$ J. C3 Q/ X( iend
4 O3 Q6 r% {& b; w' wto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
" m3 C3 `' w7 t/ i                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
, i/ ]. E+ F$ X! I) d- V2 T           set b  int (a / 5) * 5
" n1 @  b2 M0 H$ N( V- O    setxy ( xcor-of turtle b + x )
: W7 R5 ]  y, d. w$ E          ( ycor-of turtle b + y )
+ j$ P$ i# V# L' N  Wif (remainder who 5 = 2) [set c who
! u. o- K3 |% N0 O' ?                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
( k" C: u% C& S1 h# Y. x+ z   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
' r- x* [0 }) ^7 i; j! h4 J         
            
. s6 C* {% T3 C8 u4 \% Hif (remainder who 5 = 3) [set k who
$ ]9 n) p2 [' j: x7 K# r6 C                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
+ g) M  y4 B% J4 b( I: [: P7 Z  setxy   ( xcor-of turtle f + x )
0 ^# _4 S  A* I5 _( {           (ycor-of turtle f + y )
3 R' ?% l/ |; h0 V( h% o* I8 [           
           
4 u; ^& z! Q  a# G; F7 o0 cif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
* ?- \* ?' R* \$ A  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
                          ]
) J6 a/ n: U1 y& Q9 t: ]end

1 e) R- c, C& I3 |[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
, _& c' S: J; n. m$ s8 k应该是
ask turtles [
0 t# N7 R( b. i4 @1 R" \if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
4 ~& O' f& F* J8 n9 w* W  {           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
7 n% y, t' b. W: B* x0 v之前有个括号位置不对没发现