看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
& u; ]3 H% S- a& Q& s
9 N3 S, n5 d! c. r0 J5 ~2 ~4 f) H; D但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
; q( G& q8 A+ x& C. Q/ r- U& i/ z]
to new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
6 F2 s1 h0 `+ G' m: T0 x' J* h8 k( _  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
4 S; i+ m! u2 Fto scatter
) \# _, e& Y( O3 Eask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
" r8 S5 o3 h" D+ u( D1 vset ycor ycor - 6 + random-float 15
' s* e+ V# }2 Z6 n% i! j]
end
to unit_plan
! ]/ Z! s& B3 sask turtles [
) P& }* C2 `+ F% h3 Q' Cif (remainder who 5 = 1) [set a who
" e) s& p: z! X$ C0 i% [" }                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
8 P1 O; u% O! ?& h" Z4 U$ A    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
9 [! n, x6 E* P& _                          set x ( 0 - Wid / 2 )
' E8 {- Q3 h! h& T/ C4 P$ W  O                          set y (0 - Dep / 2 )  ]
, X1 N) o( u/ _5 ?6 X3 o                          set d int (c / 5) * 5
6 s& V1 d# [( @' W9 x! T: b   setxy   ( xcor-of turtle d + x )
1 M6 f6 @* y- D& z6 c           (ycor-of turtle d + y )
         
  P6 w4 ]3 H! J) u# x8 d) d            
2 L2 Z' X. k. m( e! i9 Bif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
# v2 F" g+ X; }" f% n! i2 U                          set y (0 - Dep / 2 ) ]
' Y/ }' J3 K/ B% d# h- P3 h                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
- _4 }. V6 M/ a& k' k, C           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
) e5 n' ]# y4 z* p                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
) o2 ?, @2 P2 M: _8 o7 g4 O$ E  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
+ v3 P: h3 t. N2 Q# X. m  f3 O                          
6 W3 y& F! v; D                          
- Q5 m4 }: X2 ~; a  z                          ]
2 C" z7 ~" B4 l& m3 C- Send

( |5 U0 @$ d% m% |' I+ \- }[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
/ N6 S8 T" ?" m5 L- X: A! |应该是
ask turtles [
: L2 j. X: R( s1 N! I  nif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
7 T0 V0 ]3 m& m0 L; n1 e$ U                          set y  Dep / 2
2 g$ r( B( f& J           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现