看看这段代码的问题

etamina

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

9 q. s7 m) \0 V8 I9 T3 u但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-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
. ~! z& v2 o2 i: `  crt 5 * num_of_building
% N/ B7 I3 A$ a  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
( b4 r; E/ _; y2 Y; zend
" ]2 e4 @! i4 {+ Q% B- ], gto scatter
/ s; X7 w; y4 k3 P8 z+ Mask turtles with [remainder who 5 = 0]
0 q0 i. N$ \9 \4 g  B0 g; I5 V4 U; Y[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
3 R% u) H1 N- `4 |end
' s- W( `3 U, S& h5 u" c1 Z. c/ V6 p$ t" hto unit_plan
8 v8 `. ~  f; f4 t9 Kask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
: E7 y( L/ U8 |  j# G& e$ s5 F) L                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
+ J5 S  s1 A" i; Z    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
* v1 E2 ~* m- gif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
5 l: X; [8 O& e5 x" \, Z; c) j                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
2 ^, G. M+ U' U& y2 i            
; a: E: s2 z9 j8 i7 X& Y8 Oif (remainder who 5 = 3) [set k who
0 @( f$ N  N. Y( T& C3 F                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
+ {; I/ N: W6 l. [: Y" E0 R                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
. _% H+ h" S& o( vif (remainder who 5 = 4) [set g who
6 {4 M6 o# Z6 T6 I; i6 L                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
4 n) Z" o5 a/ I  setxy   ( xcor-of turtle h + x )
/ T: c) l% t% K; f/ v, k- n' a           (ycor-of turtle h + y )
                          
                          
$ p9 Z+ N+ B1 Z  E/ y( ]                          ]
end

. k. _" m. H0 j! i! Y. G[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
) R) Z" o' _, }' N8 ]- m( z3 U% `    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现