看看这段代码的问题

etamina

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

" E/ E; \: z/ o, g但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
8 T  L$ L: L* v& K/ A. T
( J- l4 b# a) b5 Cturtles-own [a b c d k f g h
1 v, G1 y# w* f  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
* C. I* t5 B( p* a  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
+ \' C0 |& ^1 v' Z; ~! l! o, B2 iask turtles with [remainder who 5 = 0]
[
# v# t! k/ h; Yset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
3 p: g. n+ D. q9 k/ Z' yend
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
1 ]2 h& A- z' t- I                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
' K* L3 K- t, C           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
+ `, F. S. J3 Pif (remainder who 5 = 2) [set c who
8 ]  d* G# B% H9 z                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
+ T( B5 Y5 L3 ^1 C         
            
! k0 Q4 _: L8 z- I4 uif (remainder who 5 = 3) [set k who
' z) t% ~4 Y8 I- {, K9 ?+ s1 l                          set x( Wid / 2)  
" X# K& h9 O; ^                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
# ?# [" }' c8 P           (ycor-of turtle f + y )
& B0 q% e+ \. m( b0 q( N           
           
2 F6 z% a: m: j& mif (remainder who 5 = 4) [set g who
5 E- Y' V! t) o$ y                          set x Wid / 2
  q0 C: a4 ?' y) r. p5 m5 s8 S                          set y  Dep / 2 ]
/ o* j. X- e5 [6 L) Z3 }: Z                          set h  int (g / 5) * 5
; h: [; r- ^$ ^; Z$ Q$ F' U' X  setxy   ( xcor-of turtle h + x )
6 X% j+ x9 @$ V' n0 t; J9 v! M: V           (ycor-of turtle h + y )
$ A; o( |3 o+ ]# i% r. y                          
" j- R2 y2 B5 w3 U8 D                          
; l2 x, ^" a) O+ P9 a/ X                          ]
end

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

etamina

已经解决了，
0 M9 w# ~) G3 V. x3 K应该是
ask turtles [
3 ?* p$ B  H9 s$ k  J5 Hif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
. H8 b# ^8 a( Y. Q. g' x                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
( \% C9 @2 _" w+ T: B/ Q2 k, d6 oend
( e8 v8 n' F. p& U8 K9 y/ i之前有个括号位置不对没发现