看看这段代码的问题

etamina

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

5 P) }- V% {: h# u" H; o1 k但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
2 G. x7 z" n0 r. A8 g
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
& y3 {' X* a$ U5 O& w  crt 5 * num_of_building
  \% a+ o' J! b* y* v1 ]: w  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  |+ Z5 q  K# l  scatter     ;;keep center-turtle random positions
. T5 c  A5 w  s- @+ q9 d  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
6 f$ j# W8 V) y1 q6 G  x2 E[
set xcor xcor - 6 + random-float 15
$ J' c$ n- }) j" E! nset ycor ycor - 6 + random-float 15
]
end
to unit_plan
4 U3 t4 m, P& W7 a1 V" h( C# wask turtles [
; x0 S  T! Y+ w8 `, e' n! }' ^if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
2 i! z0 `( l, t/ U8 a) K    setxy ( xcor-of turtle b + x )
) ~. S; d$ E! ^          ( ycor-of turtle b + y )
5 ^4 B5 x6 C' Y% f1 Zif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
- ?) F5 `6 v: W9 ]6 U3 j: u                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
1 D( f- O: e. |6 d1 r           (ycor-of turtle d + y )
' h& v# L% w; ^7 u         
            
! O; t. Y/ p2 [' S$ B& v7 l2 j1 G: ?if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
& k2 O+ m$ f6 `, v; v2 B                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
. `; H5 i: H" }' u" Z           (ycor-of turtle f + y )
: n: Y# G& E8 Q  S7 i0 v% [           
  z) H' O( S. O) M: Z           
6 w8 L& h1 j# R* ?if (remainder who 5 = 4) [set g who
! E% B8 f# g8 @* _1 O, Y$ e: `                          set x Wid / 2
9 h% h* c% `* h' D                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
* r  F0 z- C# Q           (ycor-of turtle h + y )
                          
* m$ @9 u9 E" b2 U4 r; w. f$ r) }                          
+ t* b. O- I( n, X; X                          ]
* d! V8 I5 X+ k: p# M2 L/ b/ Wend
8 B# Y) @* f$ |! d
; U0 H5 j- p; {3 `# K* c# F; T[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
6 {) L9 ^5 T5 {4 i9 |- Lask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
" ~  S0 b, R$ `/ J" \3 a5 |                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
. j( D- b7 }- T+ x* ?7 ^之前有个括号位置不对没发现