看看这段代码的问题

etamina

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

: F7 W$ Y' n7 g但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
( v  A8 @) C% D. `# [7 Z  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
" w1 m4 R8 }, ]: []
  v# v# t, o( |1 u# Lto new
( c/ r) y9 \" O# t4 |  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
6 X+ i- L2 D+ B5 [1 A* T  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
, C7 l7 S6 ~! G9 X0 z: |+ Q7 N% Z' b* Lto scatter
  \# w1 O+ R, X$ O7 J8 Sask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
6 Z2 D2 R6 W) }6 _, e7 s/ \- Vset ycor ycor - 6 + random-float 15
" z; }! n6 i9 }. {* H" j' P6 Z7 p# e]
! A% ~" B+ A) Fend
to unit_plan
ask turtles [
+ x- L+ }/ Q/ L% }9 }/ T) p$ dif (remainder who 5 = 1) [set a who
7 u- z1 c9 T% G% B7 ?                          set x ( 0 - Wid / 2 )
& ?* K7 O/ X/ M, y                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
& J, t7 X- ~6 A# L0 l( _    setxy ( xcor-of turtle b + x )
: ?0 C& y3 C; h+ J1 _& W* N          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
5 v1 D- W0 ~3 G$ d8 Z) a2 B% m                          set d int (c / 5) * 5
) x  \) V6 e6 x8 Z& h2 Q/ e$ U   setxy   ( xcor-of turtle d + x )
# t* Y# O. J9 z. ~+ ?, h1 x, [           (ycor-of turtle d + y )
         
8 {6 H8 ]7 ^3 f9 |            
' B4 A5 d7 s6 a" D/ Jif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
# @0 L: i) E2 i6 p! W8 D# z3 Y           (ycor-of turtle f + y )
           
           
9 [% \) C$ E* R6 x( j4 iif (remainder who 5 = 4) [set g who
                          set x Wid / 2
! L) l- Z* j$ T$ A4 F+ y* D3 `# Z                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
: u' H5 w& D/ l, y7 O/ B           (ycor-of turtle h + y )
                          
: z. Q& e+ ^4 b" v1 a9 T( q                          
                          ]
+ c/ l( ]- u; V" }8 D+ T: rend

; f; T5 k8 O. Y5 M" Z[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
7 v( @( {7 }% W% s9 v- V# @ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
# r3 M/ p& R- p( C( P                          set y  Dep / 2
           set b  int (who / 5) * 5
" i$ g8 l7 E! x    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现