看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
3 y  S( Z* e: P0 e( t
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
# z6 W4 m$ f( a4 [0 A& kto new
/ U3 l* m" u$ s  U  ?1 o  ca
. Z! A0 A  {8 u* w  Y  `  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
1 d: |- Q2 A) [( aend
0 d# z- C! d6 w+ _to scatter
ask turtles with [remainder who 5 = 0]
! R8 U+ D$ H! t3 y8 i[
set xcor xcor - 6 + random-float 15
1 B7 v. Z3 y1 j% y8 d% Oset ycor ycor - 6 + random-float 15
/ P. F- B0 B6 f1 v- I]
  I- @) j1 L* l! O1 eend
to unit_plan
% g3 b; s% e" B  X) o$ xask turtles [
3 V+ D0 u) `( O/ O: A! h2 h" kif (remainder who 5 = 1) [set a who
; m& F. e) O: I                          set x ( 0 - Wid / 2 )
7 ?0 k$ b3 I* \$ f2 Q                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
2 Q5 Y6 z' w4 k, E, V9 i, L7 S# s    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
5 g& Z; W& @: h+ k5 ?9 z                          set y (0 - Dep / 2 )  ]
4 ~/ ]# O- R- _# O  u( A3 D                          set d int (c / 5) * 5
$ f, c4 m, r' d" }1 u( q* p   setxy   ( xcor-of turtle d + x )
# Q! r' o" o4 U( I" S! x4 d           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
2 J2 {% V1 `- H$ H* C, ?                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
8 R3 ~$ K$ e# W9 x1 T                          set f int (k / 5) * 5
3 R7 [4 W1 o! V" b  setxy   ( xcor-of turtle f + x )
- k. e, j5 G$ t( w* h           (ycor-of turtle f + y )
6 w! N  h4 D3 L, X" `- x8 R8 D% I9 l: p           
           
) O3 c5 L- H6 O$ ]if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
$ |" Z0 a3 d5 [+ I/ z2 P& J           (ycor-of turtle h + y )
/ Q5 k% x1 l0 b                          
: _* i, F4 j  m+ U                          
                          ]
end
. j  z6 h* `' A. r8 D- u) h
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
8 Q% H2 U" S, s7 [应该是
& {' u8 k- ^% d' e( A7 j& kask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
" [5 g+ b/ H8 C5 y$ z/ F7 b) I! R                          set y  Dep / 2
. p+ p3 R9 P5 a8 Q0 V: T; ~           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
" E! x4 i. G* pend
" I, ?3 e- c$ R6 J) Q1 ]. J# t之前有个括号位置不对没发现