看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
/ \2 s$ G1 [2 j8 O* [, J) {
4 e7 r2 \) j" L) h3 d5 f但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
8 |+ Z4 M. i2 L# n4 k. W& ]
turtles-own [a b c d k f g h
0 V. h: Y& k) D" i0 m  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
0 T# O4 N) |) {& A: W]
) m% V# }5 T( uto new
  ca
  crt 5 * num_of_building
6 B7 ?3 [2 P$ O  S, x4 o6 U& V/ P  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
6 }4 n7 t% C9 J; G8 Y9 B2 u  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
* j* T) f" F# H2 V: }end
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
/ H- n3 m0 p4 g# j5 T* Jto unit_plan
$ |% `5 Q" \" U. @" Z7 v7 J6 M% A$ cask turtles [
- f3 |3 j9 X- |6 eif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
( `  @6 P% r, U0 m                          set y  Dep / 2 ]
: N, k. a4 |$ s, d0 ?7 {) X           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
; \- |4 f6 ~6 Q          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
; e  K) u& A  ]8 u8 ^+ L                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
3 L- K& c; b; K$ R   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
5 D( e5 J2 c( y0 Y9 Y# b         
            
if (remainder who 5 = 3) [set k who
3 j# m: \: G" L                          set x( Wid / 2)  
5 `& [1 M( e$ T                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
. t7 l. h- m0 t3 U3 t7 ?           (ycor-of turtle f + y )
' d- p' V& ^8 d5 ^$ e           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
2 Y  a6 \1 {! ]  F, \2 X                          
                          
                          ]
, Q% K/ T0 Z# ?$ K0 o7 i; ~end
( b$ n: X8 I* p% q
0 G- v$ Y* P$ q. W[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
- T* |2 v* s" q应该是
ask turtles [
4 G, x5 L) m0 v) W9 Y6 X& B. Sif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
4 Y# N# k# r$ J0 L/ Z/ O8 h: B           set b  int (who / 5) * 5
8 v. e7 a9 y+ O8 l5 T& r4 ?    setxy ( xcor-of turtle b + x )
/ R2 H, t4 c; O          ( ycor-of turtle b + y )]]
/ A! @9 E! H) l2 P) h3 |end
4 o9 B, ]6 o7 M3 E, _. d2 D3 m( @之前有个括号位置不对没发现