看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
/ P7 ~! n9 K- k  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
7 `4 H- c5 E4 W# e% C4 B6 {6 ^  ca
! L, U% D6 F# W! D  crt 5 * num_of_building
: u5 ~& v) i* m  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
8 ^; x/ L+ C" p  scatter     ;;keep center-turtle random positions
& S/ h# S4 X# i/ G& O3 P4 J/ H! _  unit_plan   ;;make up the building plan
end
to scatter
/ j4 }5 P5 H* D; x$ R; [, Hask turtles with [remainder who 5 = 0]
( S* G6 t6 j8 g0 `[
, V" f5 r) Z$ c& ]! N7 G8 Qset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
$ X" p  d) r: Nto unit_plan
ask turtles [
  y# b/ `& n2 n6 Tif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
( z, H/ I3 i. h7 \% _; s           set b  int (a / 5) * 5
& u  V2 A/ g" @4 U/ x    setxy ( xcor-of turtle b + x )
$ T/ y. [* z0 j" I# E          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
# P- a4 F/ w: c& Z- g                          set d int (c / 5) * 5
8 ]* g$ o) F  L/ E! r   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
) v4 f- j% J7 x' }if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
1 F* A2 T& b- j$ e  O1 _3 D$ }                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
( J! Q) d) x3 s7 y           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
0 h% n8 e: w' y1 @                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
                          ]
: u1 F4 z6 R! B# m1 Send

[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
5 d2 z3 N0 G( T! o# h% F应该是
. f3 M2 \4 E- a; k: fask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
% U8 A# o, \1 P  e  ^                          set y  Dep / 2
           set b  int (who / 5) * 5
6 w) u- m% r. B$ u/ k    setxy ( xcor-of turtle b + x )
7 U' z7 I# N# H5 S" g+ s4 e& Y          ( ycor-of turtle b + y )]]
: b/ S0 M* p: E5 P  C" R! nend
之前有个括号位置不对没发现