看看这段代码的问题

etamina

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

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

4 E) g1 g8 n. Vturtles-own [a b c d k f g h
4 g2 f, A. T0 d  A; D3 ]+ g  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
0 I) L7 n0 X3 N. l$ V. Wto new
5 y6 a+ w( @, e& E0 x9 S% l  ca
- C9 \# k$ }, W; j  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
* B1 o9 G( ?0 j  j  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
" P* U0 {8 H, M6 d/ b( u0 Ato scatter
4 R4 r: S! I' x' B7 j9 j0 Xask turtles with [remainder who 5 = 0]
[
5 L# C' m# s/ I. {6 ?set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
7 O: K) K" w" M+ K]
end
3 o: ^. d9 [* Z: Gto unit_plan
$ l) l) q9 _5 M8 Y, }7 i, }# l+ bask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
+ ]' p6 Q) a! G& }7 E' y2 L4 N           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
$ \: N" Z6 a( T7 c                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
" M( ?  k5 F0 ^1 r/ d1 |. L/ I, Z   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
8 B/ W1 D; h4 ^9 x, [' @- J6 T         
; n# q& y/ o7 m# ^            
3 l2 L  l8 t* H) T  T/ Bif (remainder who 5 = 3) [set k who
, d( \9 C) d7 z" a) t/ Q                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
. c9 R% e* o7 L: p5 A                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
' _; }' J2 D1 j9 q; n           (ycor-of turtle f + y )
) x6 H  `. w4 ^7 f           
) P9 k3 V/ h6 Z, v) B# n2 e; p           
4 k6 G8 O9 E7 M: `8 @! }0 h! U) H$ \if (remainder who 5 = 4) [set g who
                          set x Wid / 2
* @/ N5 V4 e& }6 A& [                          set y  Dep / 2 ]
3 j; F0 z0 j; ?; f                          set h  int (g / 5) * 5
. A7 f! x" |4 F, V5 A7 Q  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
6 [' m( F. K2 l9 V) @# F                          
+ ]( ]! s; V" F! ~! k, a                          
                          ]
& o% W' Y/ N; L( o9 Nend
' y, t' W) u1 r; K9 u
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
6 I8 V" \, }4 ?9 Kif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
, _) [7 y" M) L% @! I                          set y  Dep / 2
           set b  int (who / 5) * 5
' c7 V- S; X6 `7 S3 i) V    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
' [( ^' g/ E& Aend
之前有个括号位置不对没发现