看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
: S) G/ T$ }! H
2 F% T0 Q3 t+ W* @( K4 d" E但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
. A" W. A) }% f) |2 O' M2 N+ z( q
$ a, o1 U8 w* s7 Z" H/ Lturtles-own [a b c d k f g h
2 q$ F4 ]9 \9 d0 Y  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
8 b" I9 U# F( X! ]1 j1 t  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
* h* k) C/ e1 a' h+ F$ w! c  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
/ i! [  o! z3 t% a% L$ Eend
# @6 q0 ^2 K2 Q6 nto scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
% J; D" e  W! z# X- ^0 Eset ycor ycor - 6 + random-float 15
]
end
, K, A! Z% K3 `  `# B- `5 U5 Ato unit_plan
2 A1 K& C. @2 b' k$ A0 R+ t- Aask turtles [
if (remainder who 5 = 1) [set a who
: f6 b6 n. `# e( `( A6 \! P                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
& T2 D" c; F( q, d2 l* R    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (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 )
  E$ t2 Y. o2 j         
            
4 R% Y; S- ?: nif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
' f# Z% F# I/ l% \6 S  S                          set y (0 - Dep / 2 ) ]
0 r( A9 N8 w/ s$ \1 V                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
- S. q5 F& g5 [# _           (ycor-of turtle f + y )
           
3 o& H0 T% P" q           
* i7 }  W0 l: z+ |8 l7 B( W7 {! sif (remainder who 5 = 4) [set g who
                          set x Wid / 2
+ e" q1 d: q% U% ~8 v                          set y  Dep / 2 ]
& U  }. T2 w0 v4 i& Z6 _                          set h  int (g / 5) * 5
' v6 M% s, B6 c: s  \& b0 f  setxy   ( xcor-of turtle h + x )
2 t: q. E% c' R, o: f1 V2 [1 l           (ycor-of turtle h + y )
" i: |, k9 ]. a, O8 n+ v5 V( i                          
2 x; T6 y, v& ^  L! o% T) _6 L                          
                          ]
! f! d# m+ @3 m- ]- o- Pend

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

etamina

已经解决了，
应该是
$ N- m( G. i, J1 E' V2 mask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
9 D+ x4 I5 F/ q% M) L( U                          set y  Dep / 2
           set b  int (who / 5) * 5
3 q5 q) `" E3 w    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现