看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
% F" T! ?* t( M6 }+ V
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
! ?, ^8 y  r5 c
turtles-own [a b c d k f g h
$ b* R/ X" d5 L- G4 p$ o5 }# C  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
/ h9 u, `' H( u) p7 ato new
  ca
  crt 5 * num_of_building
# G/ i6 _& @" p* a  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
4 {% m' J+ `; L0 E  scatter     ;;keep center-turtle random positions
# H" A1 ]& @9 ]+ Q, R: j4 w/ M  unit_plan   ;;make up the building plan
end
! {% O$ h% Z0 _" B3 V7 rto scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
+ K6 B" r) r# t! r3 b: W8 `! a, [set ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
- A: O. a  k! yif (remainder who 5 = 1) [set a who
% e& k) S. x7 l4 M" e6 n                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
$ N: k0 q( a# T! M* @1 e. v- k4 Y    setxy ( xcor-of turtle b + x )
) Q7 l7 ?9 S/ ?- C          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
1 u+ m# v/ }) `3 @; L                          set d int (c / 5) * 5
, Z/ K6 l6 I- q8 T% q# L   setxy   ( xcor-of turtle d + x )
- }# H2 |/ T: O6 L" t. R( R           (ycor-of turtle d + y )
         
  y/ A9 _% B& l' q1 l) `: `            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
/ e; M. \2 U5 A2 u& ^4 L           (ycor-of turtle f + y )
' i7 G- R  N5 x, u- |3 E" B- u, Z           
           
/ S4 `+ S8 w! ^/ \& p9 U- z# Qif (remainder who 5 = 4) [set g who
) D* |7 r- ^% _* ]7 E% m/ i9 S( h                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
# a0 Z& Z% k- }2 P6 J1 V           (ycor-of turtle h + y )
9 _0 n" ~0 v1 ]5 b4 M$ F                          
- b) _: G, y9 C  O% Y" J                          
                          ]
) V3 }4 T  E4 ^( |end
/ h: l3 A& b/ |$ t
- c( }- ?  k3 W2 G8 t* ~[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
2 S8 I3 m" b5 |6 U7 H0 `( I0 xif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
1 a1 ^& i1 ~2 w           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
1 z% S: A" M* N( f, d之前有个括号位置不对没发现