看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
9 u5 J( _' V3 q8 e: |( x
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
1 w& d+ {  M9 b: V! nto new
  ca
9 @2 O$ l: G) O; u  crt 5 * num_of_building
1 I- @: c0 k7 L' h4 y  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
( y- W* _, n' w5 b5 p/ g7 y  unit_plan   ;;make up the building plan
end
/ ?7 }2 f! _- ?9 a" \to scatter
) I+ j# O, a# [7 b; G' H2 v# Gask turtles with [remainder who 5 = 0]
0 V" c9 A* p+ L' t[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
; {; U& [& q" m8 y' `' ~]
6 A+ U$ m/ U& u8 Y8 ^$ i" ~end
to unit_plan
! G& t  s, O6 B: mask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
' m7 H# I$ G" `  k          ( ycor-of turtle b + y )
% Z% [+ Y9 [3 F% t6 V: F  Mif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
6 Y; x* [. _, k3 h* z2 h& X3 I/ f  A# {                          set d int (c / 5) * 5
2 l8 N3 g$ j& b- K; n- s   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
  G) J- m3 T* v! B$ W         
- n: G! l0 C5 j# ?; [" a            
2 _& M+ j& T- o5 L1 a8 s) L5 rif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
7 ]9 o1 A( @) I: I3 R) z9 o                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
% R( \: b3 `% ]7 m8 M  setxy   ( xcor-of turtle f + x )
. D5 `1 o& ~1 `, L# [6 z           (ycor-of turtle f + y )
- j! c- v$ x0 O6 ?7 Z7 v& Y! Q           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
: N. f, [) D" R2 A( S3 Y                          set h  int (g / 5) * 5
8 H- T/ `* G0 u- M1 h  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
9 s  n4 F, k6 O/ _3 h! |3 [5 W: w9 {                          
                          ]
: t% N& x/ h: V+ o3 \: T9 Yend

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

etamina

已经解决了，
应该是
' h9 W1 ]( m8 g5 L9 T. K1 oask turtles [
% T- B4 `6 F( [' ?if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
, E  W$ `( k8 C* [1 \! g  |8 j$ B                          set y  Dep / 2
           set b  int (who / 5) * 5
+ B8 T2 a8 B$ M3 B    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
9 d, ~0 m, C) P  {/ Yend
$ o8 C1 W8 M3 H之前有个括号位置不对没发现