看看这段代码的问题

etamina

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

# P2 d, q1 E8 ?( ?2 u但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

9 z4 D1 u; V4 m  `% ?) M; ?turtles-own [a b c d k f g h
- B' F( X2 H4 S6 F  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
) ]0 z1 A0 ~* a" a/ E  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
/ x! {) H. J0 m; P% |6 `  Q& ^* n  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
' }2 N) r) r9 }6 v( task turtles with [remainder who 5 = 0]
[
) I) t& ~, O0 P" c& q9 ~set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
) @- r: T; @  e! [# J# d* P]
) s; o6 ^) B, t6 N6 eend
to unit_plan
- w$ K9 _3 S# x1 lask turtles [
' b" W' v5 ]1 n" lif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
6 Y$ Y' U- Q, J3 B8 ~0 o6 K                          set y  Dep / 2 ]
1 ]" D9 `( M9 Q7 i8 f# q" Z3 I           set b  int (a / 5) * 5
/ C4 X, H; c7 @& e- g: l    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
, L$ R- H1 {# ?; h$ e+ w. B         
3 K4 C' V8 V0 [& [1 D            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
, V/ g/ e5 h- E$ Y+ R                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
; H* }4 M8 w, [" N6 j           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
3 \$ d. B# I; s                          set x Wid / 2
                          set y  Dep / 2 ]
' Y% E6 L+ E% x0 ~  ]8 t6 `                          set h  int (g / 5) * 5
2 H* h2 h7 @( w- G, x  setxy   ( xcor-of turtle h + x )
( p+ U7 c8 E9 Q4 ^* z8 K) m           (ycor-of turtle h + y )
( t  }5 A3 K) k                          
6 F9 }) Z5 W# E1 D. }                          
; }9 w' F0 y8 [* r" _% D7 w                          ]
end
0 A, V6 @6 i$ A. C
1 K7 N" L3 p8 c. t[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
- s% r3 G# v0 _" J% F# c应该是
4 k3 u3 y( O5 Oask turtles [
+ T8 i' a1 {. i  v/ e' _9 Lif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
; H# {1 R% d5 ]* p; K$ B                          set y  Dep / 2
6 ]9 m& t. F2 ^3 R' J           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
- c3 n5 h  I9 I+ o- k          ( ycor-of turtle b + y )]]
end
( s; l+ m" J" D之前有个括号位置不对没发现