看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
% s* ^$ B6 K' u: i( Z, ]: Zto new
7 \) i* ]" M/ ?. W* D3 K3 t) j7 W  ca
( G% b) W+ Y9 ]  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
5 g: N. ?3 s: c4 \8 w  scatter     ;;keep center-turtle random positions
8 G; a' e, p1 v* M' S0 C: }+ v9 \+ g; V  unit_plan   ;;make up the building plan
2 [! e8 }$ S' B% g6 V* C9 Pend
) C" H, ~9 Y5 G1 \8 M% L( k5 }to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
+ U4 A4 U/ `* d2 l" pset ycor ycor - 6 + random-float 15
]
8 X8 b$ O6 }" aend
; o* Z. q$ A2 Z! K! h$ pto unit_plan
6 c& ~  R1 B; Vask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
# F$ f: X3 X, Z1 J                          set y  Dep / 2 ]
& W" P/ j- Q% C2 d2 a4 c           set b  int (a / 5) * 5
* k6 o) |) U/ q8 I0 v! z& \    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
# w5 K$ X* Q$ j& s' Wif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
1 @0 T9 a" u. P! t! p" R/ x                          set y (0 - Dep / 2 )  ]
. |; `1 ~$ e7 {# C* p7 M                          set d int (c / 5) * 5
7 J! X9 E: v6 V% n6 _; v( ?" S   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
' m( x' k( r/ J( h         
            
# a& u/ l& Z/ e" O) sif (remainder who 5 = 3) [set k who
+ ?# h" [" ~9 G4 W- k1 d4 D" ]                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
8 O  Z4 p# d- y% j$ B                          set f int (k / 5) * 5
3 T# x3 S# u0 ?' \  setxy   ( xcor-of turtle f + x )
3 x% f5 G* j8 c  [           (ycor-of turtle f + y )
           
           
! e! d+ \, u+ a# x$ S: Q! k# lif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
1 P! A; e. v! T* j8 A4 b9 y2 V                          set h  int (g / 5) * 5
/ c2 I, O- s5 _- ?$ S  setxy   ( xcor-of turtle h + x )
- J, E' g. a$ V- b           (ycor-of turtle h + y )
1 p0 a) R9 E* W1 l8 J" E                          
' d6 z) o; l9 `! I                          
                          ]
: J- h9 s/ ^. Tend

6 [4 ~* o3 z3 T[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
2 u! x. M" ^9 X应该是
3 x* i4 E, r' _4 J& Nask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
/ B% \8 [3 K! l! |% j- t                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
5 c! S/ b' d  r0 K4 _          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现