看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
- w4 [  b( c8 I/ T& O/ Z  X: h! }
7 |+ g% s: c* ?6 L9 r但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
7 P3 z) b! D) B0 d
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
' W7 h) U& w- o, n) \to new
1 ?/ n% J" |3 `  H3 A  ca
; i2 E0 ]- u1 T' m  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
3 }* {0 S# _2 u" w  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
$ g! Q/ K# I9 j+ ~4 K* z0 [to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
7 \! T$ S, t* w" Z8 a  h$ Bset ycor ycor - 6 + random-float 15
. o1 u& M) Z. _" S1 z9 [2 I2 C) i1 n]
% q* ~: J" [0 D4 g7 f! ^end
) n9 n, a+ d( J6 kto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
$ y, k* m. h! u: O4 k; J                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
4 i- a" o1 |9 p, t; @% r           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
* b% G+ k$ y2 E) H; W2 K  H! l( k1 Eif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
" I0 m! D+ L0 t# C8 M         
3 g2 S/ _  {  a! w6 j8 N% k( z            
if (remainder who 5 = 3) [set k who
' X/ E4 `- t4 P8 H, F. I0 _* q                          set x( Wid / 2)  
- H2 ^, \2 E1 [+ O/ t9 r, P! Z                          set y (0 - Dep / 2 ) ]
  i" i* K/ R  F1 r! K9 M! n0 e2 |, h                          set f int (k / 5) * 5
' o( k' t$ h8 q' ~  Z3 q* C& [' a  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
8 h/ [& P5 X6 f2 Y$ u  d2 K" m" E7 k           
2 {5 ]; `6 ^) u6 K3 h2 T           
if (remainder who 5 = 4) [set g who
2 G( q* J3 x7 ^4 A5 u" c0 |: g                          set x Wid / 2
+ D; K3 ^6 `7 t: S  o4 b                          set y  Dep / 2 ]
5 U# D5 r5 u& q                          set h  int (g / 5) * 5
1 e2 @2 ]. W0 b8 v" T+ ^2 \  setxy   ( xcor-of turtle h + x )
! t* g3 F  q4 }           (ycor-of turtle h + y )
                          
                          
4 k1 f3 P3 a9 o: w" X# K1 U                          ]
% [1 C7 b! I  @  ^( J$ u- @end

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

etamina

已经解决了，
应该是
# O0 s' a3 X! @9 K+ |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
之前有个括号位置不对没发现