看看这段代码的问题

etamina

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

- ^3 ~" c* |0 Z+ X" E0 {但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

2 [6 h! m7 n1 y6 v4 o1 S# n: pturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
0 n& [& j( D& g+ f4 u7 Nto new
  ca
1 e/ r9 c! ^! s) D/ I+ r* k  crt 5 * num_of_building
% R0 j  f# o0 L- ~0 J  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
3 p" m6 D7 c2 Y9 e" I  scatter     ;;keep center-turtle random positions
1 a  x( g+ i" h( D" Q  unit_plan   ;;make up the building plan
: ~" `6 m6 n+ A( mend
to scatter
! ]# i1 x( W% k) r0 ]( lask turtles with [remainder who 5 = 0]
[
; x, C. N* ?9 Jset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
4 \& A' u$ s- L) [* W+ b/ v7 s- F]
end
to unit_plan
ask turtles [
: r; V' }5 M5 `- lif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
6 T6 T" p& _. U3 p) U    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
8 `" [# T+ `3 e5 f                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
) q. `  Y9 ?9 `# l+ O# x$ L- Q' r   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
/ q- f- O' U: n  Y+ S         
# r5 b, o! J2 z$ u9 A$ ^, j, V            
if (remainder who 5 = 3) [set k who
3 p6 ?' S7 C5 }9 G% C+ D                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
# V& L* H/ S# `0 K  H1 }           
2 j+ Q( R2 m3 E4 c" [5 E; f( e% v# G; p           
9 w6 O2 _% H1 L" y) X, I, jif (remainder who 5 = 4) [set g who
. T# t  P) w( L) i# }. ]# D$ }                          set x Wid / 2
) x% A1 m+ @5 `( L                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
) a6 a2 e7 r0 d& d, V, q! j) y  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
7 W% j* o% x  u$ X2 F                          
8 k/ ?' z  m- I; r$ }                          ]
end
7 ]1 S; |1 Y+ P! O4 \: D2 q+ e8 _
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
2 F8 z: g* [: n2 v8 h! q# U6 Bif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
# h% ?$ G' ?- @1 Y    setxy ( xcor-of turtle b + x )
8 W" E0 C. g( Y' E' P5 Y          ( ycor-of turtle b + y )]]
end
7 L' p# V, c7 `9 O之前有个括号位置不对没发现