看看这段代码的问题

etamina

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

* R& P- m) }, B但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
9 B0 O1 G* z1 P$ B% M0 H; P- ?# t
turtles-own [a b c d k f g h
, F- o  A, ^" |; H* H  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]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
1 ]/ D$ z* d* b/ Qend
to scatter
ask turtles with [remainder who 5 = 0]
! b- v9 @: I9 I) n, {* I2 n( V6 I[
8 [# O6 y( v- d4 Y4 J* W" aset xcor xcor - 6 + random-float 15
5 j! Y. c% c4 y, ~* U: nset ycor ycor - 6 + random-float 15
* J6 {( c; W, J]
' N8 L' D& K0 h9 \) a( _end
- [; N3 R4 `; f1 O9 A0 B" m6 \to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
& p4 y0 y8 s/ g% {0 m# w7 }                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
" h# L# M5 B7 h9 p5 s- g; {9 z9 G    setxy ( xcor-of turtle b + x )
$ V! {* s! ?' P5 V  ~6 T          ( ycor-of turtle b + y )
9 d' V, g# n* C/ cif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
) G7 X3 a' e7 Q: ?  I$ H                          set y (0 - Dep / 2 )  ]
, M8 D' Q* Q6 [; T4 P* G                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
' P* v0 G: v: ?* K! M- O            
5 G" K0 s8 n4 @' Bif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
; _5 W- x- m7 p! D/ O( G5 e- d                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
- o' I4 |2 k( |  setxy   ( xcor-of turtle f + x )
" R: p3 L/ S) \1 \, C( e' ^. z           (ycor-of turtle f + y )
, C/ T' s2 M; e+ C           
% R2 t3 v% L' P. O/ x& m           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
6 W3 w9 p, p9 W  w. V                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
* |, t* K% A9 U- K# c           (ycor-of turtle h + y )
7 h  S8 ?# @: P6 ?2 F0 t. c                          
                          
                          ]
end

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

etamina

已经解决了，
应该是
ask turtles [
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 )
          ( ycor-of turtle b + y )]]
end
$ d& v& O( g, e' ?; T之前有个括号位置不对没发现