看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
) X& K. B5 r2 R5 f* }6 g2 z( B+ L$ q
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
% H! d: ^) u- a* h4 \# t- z
turtles-own [a b c d k f g h
' p* F  x3 ]3 ?  U4 P  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
% }3 p4 W  x( M% G% }2 u3 Tto new
  ca
  crt 5 * num_of_building
4 Q; ]1 c! v0 @- E0 w% g5 v  K) g7 Z  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
$ i9 J( p9 c0 ~7 i  unit_plan   ;;make up the building plan
! Q3 p% Q% M# d5 k0 E1 i6 |end
to scatter
5 i/ x  T/ ?# Z7 H. L3 {$ lask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
/ X  K% ~2 a' X+ O0 b9 ^- ^4 k]
end
( R( e) X7 H# P, S" K4 Dto unit_plan
: a. P* m% {6 F% q" x( Qask turtles [
if (remainder who 5 = 1) [set a who
1 b: V- _  M+ C5 ]# u" K- v                          set x ( 0 - Wid / 2 )
! F7 s1 c& U8 B, X7 `                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
8 s: q3 ^5 J5 p( k    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
; x- b: u8 O9 Z! L$ s- i& |if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
" ]7 F- a  _& E6 E! ~; U                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
& K, x5 z! f% Y$ \           (ycor-of turtle d + y )
         
2 d0 `2 t- I' a' J            
% Z2 x. D4 W  |" c, H4 y% w5 Z9 E+ Rif (remainder who 5 = 3) [set k who
+ j4 v0 M6 Y$ L! E7 O8 b  K- z  h                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
+ G  \: G& ^1 j: C, o! P/ Z                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
% i" q# ?: @" ?, C% x           
" Y7 m9 ?+ |/ o/ a6 g: V+ Z           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
% y9 F3 i. E% Y& n/ g                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
' r: q& O# J, y. }( P  setxy   ( xcor-of turtle h + x )
1 x. d" p% h4 K+ E           (ycor-of turtle h + y )
                          
                          
                          ]
end
& C2 O! v% k; A) R$ e6 X, o; V7 N
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
- \* l0 F$ A$ z& A5 ], T2 z9 v. mask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
" ?! i0 h8 @2 x  l; `1 _                          set y  Dep / 2
- o2 k* @; ~/ p! u           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
1 B% s8 I# ?3 D          ( ycor-of turtle b + y )]]
end
6 G  N6 k) V* J之前有个括号位置不对没发现