看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

& t) T, a  C) }' bturtles-own [a b c d k f g h
+ |2 |6 R* ^8 S8 A* a1 D  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
3 ?+ D2 X% k& Q) E/ K  ca
  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
end
9 C% |0 U5 s. p$ _; A8 Z! R* Cto scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
6 G$ N4 x0 q- U2 R: x& {! \2 d/ Uend
* m* U. C5 f7 s- o* Q3 f: {6 Fto unit_plan
4 L. U" Q7 q) S4 P# U. rask turtles [
% O( F/ J! U' r" @! ~if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
2 ~4 n/ ~, z/ j. E  t5 x                          set y  Dep / 2 ]
7 t# U+ ~  G0 C' Q' z6 Q; ~: F4 K* f- ?           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
2 G% C5 J- c' E7 F& c* Y) aif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
4 }% L/ L( c1 i6 s$ z                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
8 K* v. N; j9 L! g& q* m: {4 c         
            
$ C& G" @: Y# Y) w4 ]/ hif (remainder who 5 = 3) [set k who
& ?/ f" S# y% m1 m6 ^                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
3 ]1 {; V. P/ _9 X& n4 ]  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
. j8 U$ @) y. h8 a( D, jif (remainder who 5 = 4) [set g who
                          set x Wid / 2
6 H- R; |% Y+ D7 T                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
3 }# D/ L* ?2 R, \9 _! w) Y: g           (ycor-of turtle h + y )
! }) |1 u* E( a" ~                          
9 J; B9 r  _$ M$ j) F) E- F                          
3 N3 j1 N3 O1 Y; d                          ]
8 H# X% J# O# A% V5 P; [end

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

etamina

已经解决了，
应该是
ask turtles [
' I$ Z* }: y+ j1 J+ H# Z" y5 E' k0 ^: H+ Dif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
! J( r5 r+ r" ]" M& j           set b  int (who / 5) * 5
( q" Z! o/ y1 M8 m2 Y  K    setxy ( xcor-of turtle b + x )
; t  k; h/ b- ?. V4 _          ( ycor-of turtle b + y )]]
end
/ D! O1 r) I1 ?  h( L之前有个括号位置不对没发现