看看这段代码的问题

etamina

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

) t; r1 c% V' H0 ~+ J% n0 K# N但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
5 ]2 T; [9 k/ _3 y' g  P* Z
turtles-own [a b c d k f g h
/ Z3 E4 C$ @) m8 x  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
  s+ Q. U. W" p$ I9 Xto new
% p0 f$ m& c6 b4 c. U, a8 }! ]  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
8 N% X3 V, d6 C$ v5 A8 R4 s+ A7 z* i  unit_plan   ;;make up the building plan
3 v, _9 w" K$ D- I/ v9 V( ]end
' b9 `- W' {, ?/ ^4 v; Rto scatter
( l, @1 z5 U# m& H! G% Oask turtles with [remainder who 5 = 0]
[
: G& Q. g6 {2 u7 yset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
( s& P- Q+ B! A8 R4 B0 K6 u7 A: Sto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
2 d' D5 R5 S+ @# Y( m                          set x ( 0 - Wid / 2 )
5 }/ X. }& n, M/ j2 t' g) I) y1 K! F9 B                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
  t' X' G& @( V( z    setxy ( xcor-of turtle b + x )
$ X+ l* @& P9 f' ?( P3 ~2 _; X          ( ycor-of turtle b + y )
/ g2 g4 ^7 A* _: X! z- R% e7 `if (remainder who 5 = 2) [set c who
, @6 p2 O/ j6 ?/ _' x% M/ g                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
) a8 R" A, c3 j! v! A3 D, q7 R   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
4 V# K: ?" C5 Q                          set x( Wid / 2)  
5 P# K) N# ^, K3 G- N* x2 h                          set y (0 - Dep / 2 ) ]
% v9 }! k' G$ `9 f" K! `6 L. u                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
& d1 @) ^8 y8 b1 ^' p- i0 M           
) u0 A; E( y' c2 D           
1 I8 ~: r2 Z3 h0 ^% U+ Cif (remainder who 5 = 4) [set g who
, z0 h: G, N5 m/ Y% v) J                          set x Wid / 2
; L: R7 O* B8 S; D9 i                          set y  Dep / 2 ]
2 q" c1 e- H2 ?" Y( {$ T: ]7 f+ M                          set h  int (g / 5) * 5
7 r- h" s9 z7 p% o; s* j; C: x  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
3 Q1 N. E4 `' o: P, f5 i6 c8 o                          
                          ]
end

6 C- G" L" D: T2 {$ A! [[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
9 Y/ ^8 j: C- z8 U  ^' ]$ q% J' y应该是
& t7 p* n5 d5 A9 g% i& d; cask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
/ i/ o" K! G, b3 F+ d& Y3 c" C. G           set b  int (who / 5) * 5
/ ^9 V6 t% E. d- a/ I) ?( N    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
! f. u: e, u: _) w1 f( Tend
之前有个括号位置不对没发现