看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
4 F: w/ o4 w8 T" i- K
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
& l# g5 A( V4 D5 s
8 U8 |9 y% x, O( u3 {$ Q7 Lturtles-own [a b c d k f g h
. M3 F& X7 l: D- k/ O  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
0 _3 `7 R/ d9 ^4 B. a]
' {/ u! b4 h' [6 t, ?2 i& u% X* x3 ito new
4 Z0 X9 `3 t3 l  ca
7 d- U1 ^: ?# r6 g; E7 M  crt 5 * num_of_building
# \% S/ t% T6 B  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
) J6 O0 a& h( S8 Q" R  unit_plan   ;;make up the building plan
end
to scatter
5 A8 S( K3 |2 s! }ask turtles with [remainder who 5 = 0]
[
& V" \8 M7 D7 b3 ?set xcor xcor - 6 + random-float 15
3 s0 S7 g8 k. X7 j2 L5 M/ Y- yset ycor ycor - 6 + random-float 15
& U7 ^7 Q+ s" e: x0 G* J]
0 m! Z6 x4 f7 |% Lend
2 P/ N* l, \+ zto unit_plan
7 O* a, u- N, a' i( Bask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
; i9 E' I# K$ L* s2 p3 K                          set y  Dep / 2 ]
8 u% _: r) M' ^/ o% F           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
1 d5 k; h% A6 y/ E                          set x ( 0 - Wid / 2 )
1 c) d% Y; k1 I  A                          set y (0 - Dep / 2 )  ]
% W5 K4 Z- Q0 Y8 n. N                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
5 G2 O3 r: c6 h$ L1 w/ Z         
            
if (remainder who 5 = 3) [set k who
' j( b9 i* o$ t1 M( V                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
- L5 `0 {8 n" n: s                          set f int (k / 5) * 5
3 c' X* j; b% P9 ?+ F  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
1 B& K% U' N6 L) o! x& z1 ?           
+ U" S4 \; o5 i2 T6 E7 P5 _           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
$ l1 W% I6 S7 X: J7 f0 \                          set y  Dep / 2 ]
, X& S! R+ k* i9 q. t2 {: _                          set h  int (g / 5) * 5
4 y( m1 s2 G6 Y5 L- L2 `4 c  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
$ c* h1 C7 i8 w' h; B3 |# {; t                          
                          ]
3 W7 N/ ^0 M8 Wend

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

etamina

已经解决了，
$ `5 L' f' }) {& P* R, V应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
/ _6 U7 m/ |# E2 r& ]                          set y  Dep / 2
* l# M0 e6 \2 h' q6 f" s           set b  int (who / 5) * 5
4 h# d$ Q2 W- `) `; b    setxy ( xcor-of turtle b + x )
' r7 ^0 R1 R7 R$ H7 c! z/ N          ( ycor-of turtle b + y )]]
end
) d7 i) s; [1 D% Z: u: f: V  `之前有个括号位置不对没发现