看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
  v4 E/ h* E( h2 U
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
/ q' ^9 O4 A8 u7 o( }& y# {2 ?
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
" \8 g' r/ d1 Z( O  crt 5 * num_of_building
  {) Z' t$ c* b+ 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
9 e1 O: u+ i& I4 g8 j$ j$ C9 Iend
. F6 P# L, p) a; O( w+ V- V3 a9 d* @to scatter
5 d' m! L' [1 C2 }  v9 c! eask turtles with [remainder who 5 = 0]
7 d) X/ _; Y# P/ ]4 B[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
. a, L6 M& M& s) S& f, @to unit_plan
2 s6 Z6 R- ]2 l# E8 fask turtles [
) C0 }1 f) b3 J5 iif (remainder who 5 = 1) [set a who
$ r/ M' P. Y3 u5 Z/ U% s5 r                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
6 {- ]' e4 J' ]" o" K& K- Y                          set x ( 0 - Wid / 2 )
9 {- i5 d; i) J6 l$ I9 }5 Z) N$ Q1 B                          set y (0 - Dep / 2 )  ]
+ D5 [/ R7 r5 S6 J2 h4 z7 D. {: [                          set d int (c / 5) * 5
, i: W8 [  u! i" \! i' x; G" U& g7 e   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
0 B7 I1 X5 B6 P( ]. [3 w9 t( Z            
2 ^" }" o/ R0 M+ y) S' g6 L& hif (remainder who 5 = 3) [set k who
2 c" `. R2 _- ^& F$ p. W                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
6 N9 s( `5 M, o$ t; W  f6 S                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
0 y  K) I6 t  ?1 }+ j9 j( r( J           
7 a! d  |  O8 ^5 r! T           
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 )
! t' I0 f" G2 v0 E; F* ]% _, \. t           (ycor-of turtle h + y )
                          
6 E* ]0 n8 X6 c& p: G  q                          
4 |5 l4 Q+ |  L9 U                          ]
$ H" a) ?2 [. ^1 a+ A/ J8 r2 Iend
. ~9 \0 a$ |5 w4 c$ |2 v- ^% n+ g# [
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
$ ?  \: G- K+ G: A) a3 k1 V0 m应该是
* `, f* x! z- g$ c( Uask turtles [
* M! U, g+ `' s" O/ L: |if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
% t& C1 |/ Q* }* i: W$ Q! S% r          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现