看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
9 ~6 n3 b; W- ^! q" M) Y0 @7 }
turtles-own [a b c d k f g h
8 x" m. ?, t, D* Z) H  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
* N4 \( R$ i! y]
to new
  ca
  crt 5 * num_of_building
, h  x9 o' ?( i  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
1 O% k1 @' @2 A. }' F  scatter     ;;keep center-turtle random positions
5 ^- V8 H4 M5 f8 {# e+ p4 q/ _8 w0 i7 C  unit_plan   ;;make up the building plan
3 ?. P4 D- E- _( `, Rend
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
5 S9 Z, _& k  n9 O5 [, ?$ U- @]
3 {4 J' }! u2 M+ b* Kend
1 J3 ?" e0 G1 S, i+ l! a7 mto unit_plan
& n4 ?3 p- m! c1 p+ Oask turtles [
) o9 I& V" ?8 }" f2 M- a; ], J) yif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
7 W3 R& m# `1 s4 R# p! h                          set y  Dep / 2 ]
+ r" a4 Q: E0 v1 i4 J           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
$ I2 Z* j$ a5 E( P3 C          ( ycor-of turtle b + y )
# n" ~3 x( e4 Hif (remainder who 5 = 2) [set c who
0 q  i5 L  \7 b) g  x5 N                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
( A) D" q4 S- ~3 ~6 ~# t                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
) z. b3 H7 @" N$ S         
# a0 H  \/ v) f1 }7 P& z. h8 U            
if (remainder who 5 = 3) [set k who
3 k  K, Y) W% y7 N                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
/ j! t' H6 e& r  S2 I: n" F           (ycor-of turtle f + y )
           
# T- [0 m  B# E% ~           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
3 T* q) ~. u. l' I- i                          set y  Dep / 2 ]
/ N7 V) v+ T9 f3 X: U! T+ }4 I3 O* L                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
3 w5 y1 B! x2 Z/ q! V                          
                          ]
. T, I' A& H8 r( Lend
3 o# H" E! y0 `8 P/ k
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
/ e/ ~" B: V6 ~0 y. _) Rask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
* Y5 x/ a4 @# ^7 m5 ~3 d0 b, S0 `' f                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
  z; L* i. p% ~3 P          ( ycor-of turtle b + y )]]
4 \0 m! m' O- @9 C, T1 Cend
之前有个括号位置不对没发现