看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
: a/ ]/ |/ k0 i/ _) L; Y* A
% T/ v" Z4 O8 |0 ]但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
; w- L6 E! h& l. E' G  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
" Y, `2 J$ d- r" q, [% ?# w( M]
to new
8 B: m) s8 }& z$ S- e% q6 }) a  ca
  crt 5 * num_of_building
+ }0 |. N5 _% R1 G  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
. k) J! c1 a0 V( I! e' F5 `. N  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
: r# i6 j# e; {to scatter
ask turtles with [remainder who 5 = 0]
6 z! ]1 B+ m( I& E: D+ |[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
) l7 Y: P4 ]  j. J]
end
  ^5 c3 C8 B- A1 r3 {8 P( Kto unit_plan
- G) p  l5 w# K1 N  Fask turtles [
7 a7 ]4 M3 @3 y) `1 S5 t  z! }if (remainder who 5 = 1) [set a who
$ i9 p. Q- J, y# j8 _  P7 \( c( [: K                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
0 P6 h5 ~+ R2 O( ^8 ]: F0 f2 f. B           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
+ t) @) U3 D' u- G' t" I2 Eif (remainder who 5 = 2) [set c who
2 i0 T- B  c* S* C( o3 P                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
: R: a/ u4 I9 K) {/ x                          set d int (c / 5) * 5
3 Z6 |) T+ H6 x0 l! p   setxy   ( xcor-of turtle d + x )
/ j" c! K5 a% w5 ~& o           (ycor-of turtle d + y )
# K5 V: f5 D& g! l         
            
& j6 H6 l6 t2 x& qif (remainder who 5 = 3) [set k who
) U' G6 F3 J/ _, L                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
6 ~; r6 h. ~4 Q7 b( ~                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
1 F% U, r' d. R; f           
           
( y0 I6 q% T4 ^* {if (remainder who 5 = 4) [set g who
- N$ \4 F% [$ [; r7 {: g                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
4 P$ h6 {% C3 o6 o+ D0 O                          
                          
0 P  g1 v. R$ s, v9 O5 o                          ]
end

0 l2 Y7 W% H7 T$ j0 B8 Q' B0 r* s[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
) \- G) m6 d3 a; L% B    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现