看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
3 a' t- _3 H8 g/ x
/ L& o& N5 C; E( R4 R* O! B5 a7 @turtles-own [a b c d k f g h
; n# t6 b- A. T" `/ K  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
1 s" V( v% E8 `3 X3 s0 \! ~]
5 x4 D7 J0 _( H+ Xto new
" ?; E$ d4 o3 e; U% a* E  ca
% N. `  s. G0 g  h7 u  crt 5 * num_of_building
, E  H3 h* |6 z  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
" F$ s; p1 p% ^7 q' f& ^) s4 bend
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
$ N8 L% A* E$ {' `! a  b]
2 j6 A& d7 |. Jend
to unit_plan
" }1 }: f5 S, G5 Aask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
+ _" P1 D( K; Q% y9 v% ^                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
1 N: a: K) {, {4 a% n4 D    setxy ( xcor-of turtle b + x )
4 M. v* d; z3 }3 c% k" K- i# Q          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
) R7 ]3 g5 }1 [) w3 ^. g                          set y (0 - Dep / 2 )  ]
) \) n: \, O, y                          set d int (c / 5) * 5
( y( E: |+ D0 D4 o3 x& F8 \   setxy   ( xcor-of turtle d + x )
, I/ N, f! e- e9 j# k, I           (ycor-of turtle d + y )
* {: F; z$ i* M7 ]  g- ?) q( s         
3 H" M8 ?( U' d# a+ H+ l1 ?/ a            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
& l3 r/ w" [' [3 B" \" f; j: W% i  S& [                          set y (0 - Dep / 2 ) ]
9 A, X" b6 Y5 I3 S4 e' Y. f- x                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
' i: v0 h( \% Q" U8 V           
           
) ^* L( P3 s& ]# J! j  N7 F! lif (remainder who 5 = 4) [set g who
9 ^+ K# T3 B. i# b. t) Y2 l                          set x Wid / 2
# |5 X7 D: R, K) k% a                          set y  Dep / 2 ]
7 L) z# u; e9 s                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
* r& E; L3 ?4 s- K2 z           (ycor-of turtle h + y )
                          
& ]0 h) x' X! E) b7 S3 A. N% r9 ~                          
9 p4 y% J" a4 r1 O6 D1 {' p                          ]
end
# y5 l% s5 B4 W1 A
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
' r+ \9 N* \# T* }. B# H- Kask turtles [
# d3 r* ]# k( O% uif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
# v, v* k: b1 O" M8 o           set b  int (who / 5) * 5
8 I) U1 ?7 y$ t9 S) B9 t7 y    setxy ( xcor-of turtle b + x )
/ f) w, F+ h: ^: X          ( ycor-of turtle b + y )]]
end
" `$ S, x- S, o' z之前有个括号位置不对没发现