看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
( p0 n0 R' i" L" f8 X% A6 q$ r
+ R. b' @/ @1 S1 _6 C+ _4 E但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
+ P+ q# `8 E2 x3 N. O  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]]
. j, J& R3 Y' u) |. E6 m! W9 M  scatter     ;;keep center-turtle random positions
5 v. R. U4 Q- E4 Q! Q/ N* L  unit_plan   ;;make up the building plan
end
0 m8 I5 h% G# W0 F% X7 J5 pto scatter
- O7 l% q7 D6 Nask turtles with [remainder who 5 = 0]
1 t9 P$ x' H2 x0 N8 c! {0 [[
4 s2 U/ z! H% B: G+ Y. o# Aset xcor xcor - 6 + random-float 15
' u2 ^/ N: v* v7 o0 M9 gset ycor ycor - 6 + random-float 15
]
) k9 `! {$ V5 v( l$ A1 w, A. \  Aend
7 u* }% _4 [* t' \2 o. wto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
8 b2 L+ o; ~0 z2 K- ^) h# \( v) Y                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
. I* G: G4 ]1 E, p          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
! |' \" n0 z0 q: i$ S; u1 D! x                          set x ( 0 - Wid / 2 )
' P# H" X! m+ @$ ^5 n& X+ M                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
- [" H, `# n, u. H- U   setxy   ( xcor-of turtle d + x )
! w# ?& c9 B. r0 G1 J! k           (ycor-of turtle d + y )
         
- ]8 i8 y$ E3 g6 ^: k3 l5 W+ m# B8 Z            
: c7 _9 t# S( ?6 H$ [if (remainder who 5 = 3) [set k who
9 H: Y! m4 P# d9 i2 n! G" A/ Q                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
. h6 h1 \' r4 B: e7 w           (ycor-of turtle f + y )
) Q( f6 @3 h& |% \+ D: U           
$ J" {$ {: b& g& {. s/ G" [/ i$ a           
- E+ ?8 ?" U8 _( i9 a  A4 J2 b1 gif (remainder who 5 = 4) [set g who
. H3 }3 ?$ ~8 m9 _                          set x Wid / 2
6 F5 p) h0 N; }7 B( k                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
' a8 t( u& v1 T  p  setxy   ( xcor-of turtle h + x )
! ]+ c: }% O6 R5 m4 d* Z; f' q           (ycor-of turtle h + y )
+ p" W" y, H7 X3 u                          
                          
                          ]
end

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

etamina

已经解决了，
应该是
+ l/ U% v' U, `* M: [5 T5 m1 r* iask turtles [
7 g/ `* c- W6 iif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
; A9 l( b2 i+ X8 N/ j           set b  int (who / 5) * 5
6 x( `3 m/ m5 `3 p    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现