看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
3 R, o' w8 X' \$ i% r( e! \
" \  k. k& B2 v% [+ h% n但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
2 p* V8 {1 |" y0 D. D- m3 v  D9 u  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
1 s& s# l. t1 q]
to new
  ca
  crt 5 * num_of_building
5 L; I8 R' a& h  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
6 c$ b7 }1 {9 G& hto scatter
ask turtles with [remainder who 5 = 0]
[
  I6 ?! f; A- C7 X1 {" s! @3 fset xcor xcor - 6 + random-float 15
1 J# f& a! E) v" ~& n/ y/ d1 y. ^set ycor ycor - 6 + random-float 15
]
end
! S( I( r4 k. ~5 f# w, Y. ito unit_plan
% N  Y! i  w+ I9 m; m8 C& v  Aask turtles [
$ W4 \9 r4 h' L# c" P- j9 N6 |if (remainder who 5 = 1) [set a who
# e1 Z# d: O5 k9 e7 ]: v/ g( e                          set x ( 0 - Wid / 2 )
+ r1 b" Z6 M. M                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
6 i  b9 X7 T  @/ C, Kif (remainder who 5 = 2) [set c who
- \% A) R. z8 B; d; J+ k8 W                          set x ( 0 - Wid / 2 )
2 P- I6 }' e, G3 h                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
! J3 H* g" M' w* ?1 B) ]   setxy   ( xcor-of turtle d + x )
& a. n/ K3 g* F) Y8 T8 M4 q           (ycor-of turtle d + y )
6 y- P0 m- S' N  o         
) L3 o! `3 k! a9 L) k+ P            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
) `5 y; m  R, X5 ]. Q                          set y (0 - Dep / 2 ) ]
% v, a- ~5 Q5 ]  _3 z                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
9 {' Z2 v2 g' P8 `+ _. Jif (remainder who 5 = 4) [set g who
/ S6 n# E: Z, D; ~9 w( |6 f' e                          set x Wid / 2
& @! `; X$ {/ l& a                          set y  Dep / 2 ]
) H4 F3 S! ^* j3 p                          set h  int (g / 5) * 5
) t; L& T0 s; C9 C2 a% k0 n( S  setxy   ( xcor-of turtle h + x )
  g3 ]4 f# r  C0 Z7 k$ ~+ q1 l+ h/ Z           (ycor-of turtle h + y )
7 Y. e5 R4 H" J0 f/ t                          
* o$ P) x' c) e, T% e' P                          
; O) h; K  A$ h0 n                          ]
6 w* y) u6 x) a3 u! d* Qend

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

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
8 L1 h, ^" m( W; Y5 M/ |/ ?                          set y  Dep / 2
9 T, z) {8 L& i8 n# t2 W4 l           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
) p( ~0 q6 I" r/ L& b5 _9 E0 A( @          ( ycor-of turtle b + y )]]
end
* U" O! ~9 V. W. V之前有个括号位置不对没发现