看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
8 u7 o: M& g# ]$ }( d. U
* D" L5 ~8 [3 M8 \但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
2 }: _0 \* Q# S# v' C1 v* e: `" A
turtles-own [a b c d k f g h
% V& X6 I3 m9 h/ X9 o% `  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
# S0 E  o: p) i$ f]
to new
  ca
4 q5 y4 J) n1 q* S" i7 b  crt 5 * num_of_building
9 G3 p4 }. `8 C" J; ^$ h5 r$ N  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
end
* ~( o1 Y3 P, t* h7 j+ r. yto scatter
1 Z& ^; @; a% Z, ~, V" ~+ ^ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
! d" R( g* k" a" \6 N1 Fset ycor ycor - 6 + random-float 15
]
6 D* n0 i/ N+ S3 r4 }, @end
to unit_plan
  N4 N) w4 h) z+ Z- s6 Y. dask turtles [
if (remainder who 5 = 1) [set a who
/ T! M2 l8 K- {: d# y: k; u                          set x ( 0 - Wid / 2 )
2 ~1 p* W! P' Y# k6 J: j+ @                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
) ^( W- [8 j2 m    setxy ( xcor-of turtle b + x )
, j& M0 P. {5 E          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
" x; W( s0 f, P; D- r: ^! [                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
2 P7 r9 g& v; L         
            
6 Y: M' }5 _# uif (remainder who 5 = 3) [set k who
. w6 X) T1 V* v& I) ]                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
0 T) V! b- Z' N: V3 `" f& ]  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
5 ~) ~/ x* A. H+ F4 p           
           
if (remainder who 5 = 4) [set g who
  j: C0 f# R& N3 C' H- z! @                          set x Wid / 2
                          set y  Dep / 2 ]
% k  Q: _# A4 ]2 u5 Z+ J% K2 N                          set h  int (g / 5) * 5
$ _0 V& D7 X' }+ w. H6 w- o  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
' W* _6 x; J  }% i                          
                          ]
end

$ v' s( W7 X% n8 H7 Q8 c[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
) B0 {% j  x8 a' W; y应该是
7 ^, R( y2 s+ Y4 @+ v/ pask turtles [
+ Q: ?, @( h# @; M! s# A. |if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
( p2 [9 M: ^: @7 M7 `9 i                          set y  Dep / 2
           set b  int (who / 5) * 5
" ?3 [& v; n9 s- D+ A    setxy ( xcor-of turtle b + x )
2 D1 a2 F- i5 \6 k          ( ycor-of turtle b + y )]]
+ c: j. z- F5 j$ \$ W, Wend
" P4 E4 Y( L" \# b( m. N; s之前有个括号位置不对没发现