看看这段代码的问题

etamina

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

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

3 C" A7 k+ b3 B1 E7 {turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
' y$ {7 Q  b9 S: x]
to new
  ca
  crt 5 * num_of_building
" h4 I. I1 A1 y, x. w/ y# `3 \  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
7 g) G" G/ k3 ]( A. y, g  unit_plan   ;;make up the building plan
5 x4 F  i. z! L, \9 Lend
% C3 ?; T- ]$ }5 bto scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
' G( k: L) Y/ Z% [) _& T0 T]
end
to unit_plan
+ ^7 L3 }2 a0 Z; aask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
* i, h5 s# E2 e: _$ t4 @                          set y  Dep / 2 ]
# x" _  a- a) [" p( S# {" E           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
" Z4 h# B$ }5 D$ G          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
5 Q: u. l5 H  T) l/ H           (ycor-of turtle d + y )
4 P6 `1 _; U9 {: w: w         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
3 U& R" C* c. g8 w6 U+ D$ k                          set y (0 - Dep / 2 ) ]
$ l7 v" P+ h8 \, \" P, N/ U                          set f int (k / 5) * 5
) ^* f1 X1 X4 b+ @+ H, w6 z  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
$ y, V2 n: _4 s1 \; e' r9 H! q0 B           
& M% a8 z6 b% e* i8 ]1 r           
/ |( z8 d8 l  x8 |  [if (remainder who 5 = 4) [set g who
" \# ^) U$ r( |/ M                          set x Wid / 2
, l4 G) s! ~2 T3 q$ \                          set y  Dep / 2 ]
/ d! v% a0 _$ x4 m# [1 a* Y                          set h  int (g / 5) * 5
4 p, Z" Q7 @. v7 i  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
' x& s/ F% Q9 z# z* V! p' K                          
                          
9 l9 F! S+ Y! W2 V* f9 S                          ]
end

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

etamina

已经解决了，
应该是
ask turtles [
  C* v5 U& [4 p) ^# V6 [$ hif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
9 m0 K6 R) M$ O4 |, l. n" `                          set y  Dep / 2
           set b  int (who / 5) * 5
8 P5 |6 P8 R/ J* t, o    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
- M/ v6 d9 B% j$ A8 Gend
之前有个括号位置不对没发现