看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
9 K+ n- @/ i; v. D0 }
: C) M$ J1 \2 T% M5 p6 G$ r7 F但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
& B( |& _, U- J( N  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
1 e3 e$ [* U# y3 l( \6 `0 _1 o  ca
4 \8 K2 I- W$ e  crt 5 * num_of_building
! V! H% I) l1 R$ Z" H8 Y  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
7 H- s) g- x2 Q8 H8 u! y. N  scatter     ;;keep center-turtle random positions
( s" B$ z/ h: M9 t0 A# x8 ~  unit_plan   ;;make up the building plan
8 [% f. M% o( F, Wend
to scatter
" O7 U" p8 k3 f( fask turtles with [remainder who 5 = 0]
  W: n4 k4 H+ s& Z2 U  Z* L[
set xcor xcor - 6 + random-float 15
5 k) k# @; ^% y" Q7 Hset ycor ycor - 6 + random-float 15
1 l) Q' t: q! f: j9 @4 c7 c. j5 ]]
end
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
) Z8 I/ ]* m" u2 }: K: y4 h. V! r                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
/ D8 i: H4 b2 P$ |, z# Y. [           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
' Z. G4 y$ q: X; [          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
4 j/ c  y+ ^/ T$ u# h7 g  g9 E                          set y (0 - Dep / 2 )  ]
" ?8 \, H2 Z2 B                          set d int (c / 5) * 5
# }- D$ ]9 j+ n) I   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
, U: u0 K9 G, Z  r# ~         
: F9 E5 s# b( c  V            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
7 W' [( W2 X7 X# i: `1 S                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
" O6 {9 _4 k+ n2 n- m3 _; e1 Q           
           
if (remainder who 5 = 4) [set g who
2 D7 r3 Y  x+ ^) N5 S& {                          set x Wid / 2
1 d% S6 j4 x7 j) G% m3 V9 k) _! {                          set y  Dep / 2 ]
$ O0 G$ A$ O. K2 U1 Z                          set h  int (g / 5) * 5
- G# g: B0 k  h' }  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
8 s: j) K! T* L/ {1 U8 Q8 p+ c1 C- j                          ]
& L4 i  K* S  }end

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

etamina

已经解决了，
8 R& u! w- R) S3 J应该是
% }) O- ~$ K! T; Hask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
5 j$ _$ C* _* `$ ^    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现