看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
# Q  l8 b% N  `0 h8 u' M1 |
" z" y2 `: P( T$ |1 i但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
; S7 R# `9 p  x
; y0 F( U9 T# k/ t* l, Y) xturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
6 p2 ?& |% C% X5 @]
& b* W4 n4 \) c; ?. K% M5 w! v/ ^8 qto new
  ca
  crt 5 * num_of_building
0 k! z' F6 d$ R4 B  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
+ r( c+ g+ F6 C4 c/ O4 o: ?to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
) |# C) ~/ N" z- k]
end
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
) z/ t5 ~1 h$ E7 A/ h7 A                          set y  Dep / 2 ]
$ r) b; n8 j' U' z; C5 j. E           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
+ K6 e( n0 C. ~/ zif (remainder who 5 = 2) [set c who
5 i* ^- p% u: K                          set x ( 0 - Wid / 2 )
9 O( q& ^$ {6 @6 m$ l6 I3 C                          set y (0 - Dep / 2 )  ]
/ a7 A8 l7 z/ q                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
  j$ R, g+ Y1 R9 h. x9 p! P; y         
            
if (remainder who 5 = 3) [set k who
- }) V) s) a8 W- W                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
+ q3 `) ?  M9 I5 S! J7 J  i                          set f int (k / 5) * 5
; w7 Y5 C; ^$ ]3 G) F1 |  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
4 w( _. r3 I2 B4 Y  X           
           
if (remainder who 5 = 4) [set g who
7 }- T$ n: F. l0 z' @                          set x Wid / 2
                          set y  Dep / 2 ]
" v) v, X7 ^! l9 r5 V% @                          set h  int (g / 5) * 5
0 k! F8 T% l: L' B* C  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
6 }0 E! s, ]6 _                          
                          ]
" S; ]$ a4 x  X( K6 c3 v6 Y; mend

: a& F, C' E$ b; ^5 C4 u5 S[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
6 P- g; i% M+ Y" A1 }( ]应该是
& |7 p% t$ _" M2 xask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
  m' v$ n' e* T) T/ g7 d           set b  int (who / 5) * 5
4 e# Z5 \! y- }    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
2 p% u9 W9 Y! g( D5 d之前有个括号位置不对没发现