看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
9 D; Y# A% I" Q/ H9 W
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

7 h8 w4 V7 L3 w& H* q2 Pturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
! Y* b" {. l; [3 @: J. }7 S  crt 5 * num_of_building
4 J2 O( L% }6 A( U$ @  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
) }$ _  U$ E+ M# O0 J* f8 Z- q& l  scatter     ;;keep center-turtle random positions
7 h% N7 |7 I; t* S  unit_plan   ;;make up the building plan
/ K! `. |9 H7 A+ Tend
to scatter
6 O1 h" M" l  z( k8 K- w% v3 wask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
0 D8 |$ w1 n+ E, A' Bset ycor ycor - 6 + random-float 15
]
" _% ^2 M; R% a8 C& N: O8 tend
2 D( b9 S% z$ fto unit_plan
8 R$ g/ [8 \0 k+ ]ask turtles [
! ?) d* r; O  R' O- wif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
8 P: I3 J: k! q4 E. {" B           set b  int (a / 5) * 5
% g/ P. A8 m$ S+ E7 l8 K. H2 a+ J    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
0 _: g0 y# a; w( Kif (remainder who 5 = 2) [set c who
* R3 K' Y2 |' M; C" L/ X8 T3 C                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
' i% p! z; `4 I) T6 e: a' i( T   setxy   ( xcor-of turtle d + x )
+ f) U, ^& u! Q) f  [, A$ H: o           (ycor-of turtle d + y )
% n1 Z+ J# K* a2 ?         
            
if (remainder who 5 = 3) [set k who
+ S/ \$ i# |- ]# n1 t9 t2 {                          set x( Wid / 2)  
* V; a; d  y- H* f                          set y (0 - Dep / 2 ) ]
+ g3 P- B% a" ~- r1 J% q# K                          set f int (k / 5) * 5
( M6 A  G  K% U+ T2 c+ N  setxy   ( xcor-of turtle f + x )
9 s6 m' _' D1 C' M, ^) f" D) X" V           (ycor-of turtle f + y )
9 [6 T0 Y- j8 F. @4 T, X0 r           
           
* \9 n; G% }: A. `4 Gif (remainder who 5 = 4) [set g who
: w$ j/ u& M4 O+ K                          set x Wid / 2
                          set y  Dep / 2 ]
3 O- a1 w  [! m$ \: W; [7 n                          set h  int (g / 5) * 5
4 r' @: p: o& J  setxy   ( xcor-of turtle h + x )
3 ~3 _0 f- d7 x) l" N" q& B' ]           (ycor-of turtle h + y )
! \) J7 P2 W: v8 G1 S9 w9 O" O                          
* f% ~0 H! Q  ~0 j                          
                          ]
end
0 Y; c) e, p( s# C
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
; i, O) z* g. x4 r应该是
ask turtles [
3 {" @/ U; H9 O8 B" U3 j  }if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
. K# \# [8 h7 y           set b  int (who / 5) * 5
  S' n1 g$ a* l# w0 L! S2 }( I    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现