看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
! g8 _/ D5 A7 \) u" ^
& F5 m5 `2 {; z但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
6 k( C; Q! {% U8 t/ F" V]
to new
$ P! V' i8 }6 D  @6 Q  ca
7 F$ l, [8 U1 z# [3 z2 Z  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
1 i/ B& W$ O5 q( u; l( Send
5 @4 o2 T# X; r" Rto scatter
ask turtles with [remainder who 5 = 0]
% e7 g+ r( s+ Z1 k  b[
5 i5 b5 N1 ^9 c' w  `# `set xcor xcor - 6 + random-float 15
3 a" h! I! k9 Z7 W' T! Lset ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
. o* t0 K& M! X                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
# X+ C1 F  W& X; C           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
+ y) }' B$ W: a% s1 W          ( ycor-of turtle b + y )
0 z5 B5 H  p' V  ~3 R+ Aif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
* ]) O5 t$ S# G$ p. h                          set d int (c / 5) * 5
3 B2 [3 y5 E" x6 r5 T9 p4 n8 ]   setxy   ( xcor-of turtle d + x )
. C5 Y" P, l3 a/ v! ?& S           (ycor-of turtle d + y )
         
            
8 G, V' F( K5 u7 [0 }if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
; L4 j. O$ d$ B) Z" I4 ^7 Y; k+ v                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
3 T7 s  Q: y* Z  setxy   ( xcor-of turtle f + x )
1 X$ x2 u% b8 o7 ?9 E" ?$ \           (ycor-of turtle f + y )
           
; D+ W7 }6 @# t' G% I7 ]           
$ w7 M& \' t, M4 eif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
) O8 X6 W+ G7 G& Y. B                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
6 |1 @* h  V& _$ s           (ycor-of turtle h + y )
& t; O/ t" L# j8 P8 U- T3 e' L                          
                          
- s* T0 D0 `- ?. [. I' R                          ]
end

[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
; D* _# I% D& l  i0 c6 s应该是
ask turtles [
6 _) s( M1 k# P1 ~' G/ B( t9 D! bif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
) k' V2 C# i+ ]5 U7 v7 i& w                          set y  Dep / 2
: _- F8 t# ]* b; g* W  |* b           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现