看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
, y+ s9 M, C8 N6 ?6 U: V' D
3 Z8 N1 ?, k7 c* t: n但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
6 H" U0 x7 }3 }! u0 b& W5 h
( b+ Y8 M+ |( P! oturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
7 t. S9 t. _' o/ J, [- Q  ca
6 ]' l6 F+ c; K; ]  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
) M1 C, h, J/ B3 z1 O  unit_plan   ;;make up the building plan
end
: k* f3 x6 ]6 ~4 Tto scatter
; ?* b" `1 K6 ]ask turtles with [remainder who 5 = 0]
- M5 U+ }! ~4 Z& m+ b! Y[
set xcor xcor - 6 + random-float 15
+ g, E) Z$ [% J8 E6 [0 ?/ Sset ycor ycor - 6 + random-float 15
) c( c8 Z6 c% [; Z2 F]
' p1 h. \; P; m9 M. {- o! k* ]end
( H0 [/ g3 x! gto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
# t7 V/ \8 N3 w4 c/ O                          set y  Dep / 2 ]
4 b' g9 O0 S7 u3 D           set b  int (a / 5) * 5
) e$ C: n/ {4 [4 J& [2 u1 ~    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
6 e5 z. C# h8 n9 o0 hif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
1 F; w1 V4 E  L# ]2 E3 X                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
% \% K4 W2 \+ y! |6 v$ C% m" J         
' J6 C1 y2 d+ U0 s; e- n2 j5 A            
1 F1 ?7 d# \, fif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
$ n$ m1 S1 H% W$ b  ~                          set y (0 - Dep / 2 ) ]
2 ^1 a9 B4 N2 H" |1 n1 k                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
; t! N; [. o1 P' R7 o( ]           (ycor-of turtle f + y )
7 d+ X3 u7 T# P0 o1 `1 v           
1 w* B; O2 O+ p2 F8 P& ~           
4 Y4 R! }) B. ^8 V0 n0 w0 b+ |if (remainder who 5 = 4) [set g who
                          set x Wid / 2
" F# M; K+ M0 d( t- P                          set y  Dep / 2 ]
3 v, G1 T% n% ]3 E9 n/ d                          set h  int (g / 5) * 5
7 f! K4 ^: L2 f- x  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
/ A% G: k) z: t* M* ]3 z  r                          ]
end

/ f/ t" Q, h  ~[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
: v8 ?- a+ |$ I- n9 c4 z9 S应该是
ask turtles [
9 a3 w( X* u  I" }if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
- z" R$ X5 \  R3 d                          set y  Dep / 2
           set b  int (who / 5) * 5
$ m+ K* v+ G3 J+ d) s1 A# j    setxy ( xcor-of turtle b + x )
# }: m" Z/ m) R  T) t8 i; _% {, k          ( ycor-of turtle b + y )]]
end
0 ^: h% j: T3 Y9 T) b之前有个括号位置不对没发现