看看这段代码的问题

etamina

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

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

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
* \2 F4 Q2 L9 C4 l+ [' []
to new
9 E, z* f; X6 V* x4 G* X9 k  ca
5 Y% X% s1 ^# ]* {! V, b" E9 n  crt 5 * num_of_building
  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
0 U" y4 ^9 t. h- s5 H. o' wend
to scatter
, @  P* @. c' g1 |  \9 t; Mask turtles with [remainder who 5 = 0]
$ t9 G/ }' j$ ?; |  _[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
2 r3 J1 c: B  z9 a, A]
end
  |! G6 h3 Z/ p+ L; C" Z2 q* `2 Qto unit_plan
ask turtles [
' E' m6 V- O1 O% G! A: {3 ?if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
5 M9 n1 i) u5 f6 I          ( ycor-of turtle b + y )
) M3 H, n& S6 Tif (remainder who 5 = 2) [set c who
5 H. c. {% l7 @) A! g                          set x ( 0 - Wid / 2 )
" W8 t5 Z5 c: k, Z2 j2 J                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
: ?4 O3 K6 l' h" a8 k  Q         
/ p' o! y% F- a. R8 b            
if (remainder who 5 = 3) [set k who
3 a# P' x. w2 H                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
/ |, K! k2 ?  R, g- I) o  setxy   ( xcor-of turtle f + x )
/ Y' u( ~9 |; P$ M- Y% a           (ycor-of turtle f + y )
0 [5 h9 E* J* ]% x% C$ g9 H0 y           
( U& ?+ X- ?( w, S/ s& U: n           
/ s2 l# i" Y4 n  J; z5 V  y3 T7 T, Tif (remainder who 5 = 4) [set g who
                          set x Wid / 2
* r$ P4 N# o5 c5 U                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
4 g7 c- i( U2 L' e0 O7 ~( \2 t: A  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
, E$ B6 y+ G1 Y8 f                          
+ O' V2 u+ g% q                          
                          ]
8 D2 d  l3 x  V; ]$ C+ g0 ]end

* v* Q7 d) a# |[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
, h, ~, e. D! ^1 A1 p7 V  Z                          set y  Dep / 2
; V, q1 J  D0 V/ X  i           set b  int (who / 5) * 5
- p# S# Y% G& [" J9 U1 s7 G; f# d; ?* M    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现