看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
7 M: E- T- }0 ^
5 ?8 ^( Y( @7 E: ~: ?但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

1 Q2 W2 |& w0 {1 S9 Sturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
! u$ c6 T$ ~0 `7 [0 z9 {6 c]
to new
  ca
  crt 5 * num_of_building
' R/ g2 r1 f# H8 t  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  P6 H' u5 A3 n2 S* N6 f  scatter     ;;keep center-turtle random positions
  g* O( P9 H0 x9 _8 G( e  unit_plan   ;;make up the building plan
" [# ^2 R+ ^7 ], h$ |end
4 F) L( b( ?; Eto scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
) t4 }% S% N, n' t% hset ycor ycor - 6 + random-float 15
]
) I$ I# X" c: ]" O& {& H# H) l/ w3 q8 zend
, F  ^! d# e4 a6 L  U/ J8 V& Lto unit_plan
" @  U" M- J. J* A1 w' o# Zask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
% v) S. L* Z. J% J, R+ R                          set y  Dep / 2 ]
* P. h, n( w8 r, l% N& p           set b  int (a / 5) * 5
9 r9 v0 V( n8 b  M1 T0 {! s    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
8 t  f( I- r$ d1 S                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
. M6 d; r' a/ F) y, e7 k, `   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
8 o  k% _' A& ?$ b; F: l/ |3 w( Y            
if (remainder who 5 = 3) [set k who
8 o  f8 x4 |/ H6 H* B                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
  V" @. [; b0 p1 g) i. N           (ycor-of turtle f + y )
8 v" H) n1 C$ n/ u' ^           
$ H- H0 J) @! e! Z7 q           
5 C6 K, H5 N1 N( @$ ^if (remainder who 5 = 4) [set g who
/ |+ y- V6 ?: r                          set x Wid / 2
                          set y  Dep / 2 ]
) r3 [; y# b3 g& |% }% r3 f* x                          set h  int (g / 5) * 5
( J7 D- B& }0 b8 U& k( O9 z4 K: n  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
9 G5 y) v" g/ n8 H+ H                          ]
; X( }$ x' R* b. d% ?5 E/ T& iend

- B  _! J; c3 D[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
; a0 A: Z+ }4 i, W) ]应该是
ask turtles [
5 s: r& s# z3 R' Tif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
- t1 U1 p" q& D                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
& Q# b7 r, h3 u2 q          ( ycor-of turtle b + y )]]
2 d' W: ^! g, p6 Dend
之前有个括号位置不对没发现