看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
- S+ t8 H2 n2 r; I9 O
0 f; p$ L4 r% g) P! {但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
+ ]/ @$ W. d0 ~. o6 s7 t2 v
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
) e, R7 @8 j9 V& X" w]
to new
& A0 O$ @# z8 A4 z  U3 ]. Q; B$ W) @' c0 @, C  ca
  crt 5 * num_of_building
  _, I. R$ V1 C/ F7 l  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
; ]- H$ F7 d5 T  scatter     ;;keep center-turtle random positions
% p/ ?: Z/ j* ?) g# c: N) L  unit_plan   ;;make up the building plan
, g7 Y. _! S4 @4 Q- r8 ~/ n$ |, c; Send
to scatter
; X0 i2 N$ j3 e& ~/ Zask turtles with [remainder who 5 = 0]
4 X7 d$ p5 H# z5 x[
set xcor xcor - 6 + random-float 15
; \& i0 {, |8 ?- k6 H* x8 H# X6 U$ xset ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
# @9 j  R8 i; Q" ]# }# Oif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
. v$ ^" Q7 p! [$ \6 N; I$ [           set b  int (a / 5) * 5
  W. a! o, m* X8 N! z- b    setxy ( xcor-of turtle b + x )
+ t  [. r5 a% k8 f          ( ycor-of turtle b + y )
. f$ Z+ U/ ]- o% yif (remainder who 5 = 2) [set c who
( t$ k! ?) o4 n. j& `% @: A1 R                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
! \% k0 V* ^  P3 d5 _% w                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
% V; V3 ~$ p- M, X7 r( ~, T         
            
% g1 l0 J0 s2 l& iif (remainder who 5 = 3) [set k who
9 {) y8 @5 N! C2 k7 F  q! i* `, }- f                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
! Y% J  l& o+ Z0 Z! a$ C! }" i           (ycor-of turtle f + y )
- Q$ b9 \5 @0 ^& }           
           
3 u) }+ C" ~5 J$ e$ N9 cif (remainder who 5 = 4) [set g who
6 Z& ?1 b2 x# X. w5 M0 ~                          set x Wid / 2
+ P, ]- R& i9 ?: @) ?- s                          set y  Dep / 2 ]
3 Z. y# B9 m: N" d* ]! X                          set h  int (g / 5) * 5
  N" X' P: k6 [' }  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
& r6 A8 m2 Z/ u/ s, V                          
                          ]
& t. f! r4 M+ B2 j6 V" r& ]end
& \. p4 D3 @: E, E
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
; v) B$ j2 I! E4 A) Bask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
& q  v0 |4 T8 G( J* i                          set y  Dep / 2
           set b  int (who / 5) * 5
) Z* S$ l& t* X# o# v  ?    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现