看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
3 Y# k5 _6 b0 N0 [$ W
turtles-own [a b c d k f g h
0 t9 G* H' Z' C( L& W) x  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
+ P* l/ d. T1 e: P+ Vto new
9 n$ e6 Q5 P1 Y6 b2 d/ U4 S  ca
  w5 Q* T# j7 `* B2 {: R  crt 5 * num_of_building
+ _) q- T0 Q  _. ~8 \9 @! W1 \% k  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
- |: r2 `4 X! x/ m2 M& n  scatter     ;;keep center-turtle random positions
9 }/ _, m+ X: ]: B' d/ F- E  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
; g! j& W* G# {6 T( h  d/ \[
8 g0 t0 Q( i+ M7 Z, K. D) cset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
$ O' D' @4 _/ v3 e0 L+ N( c]
end
to unit_plan
* Z, |5 C9 C6 ?  i3 Y. d; Iask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
$ c# n0 i) k6 j7 |9 i( ?                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
% Y' d2 E$ M& o' ?0 e6 P6 A- N    setxy ( xcor-of turtle b + x )
9 m9 c' y  b  P- y& r          ( 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
9 V2 W; t& V- }+ x   setxy   ( xcor-of turtle d + x )
: d6 a) M1 H2 Z1 c5 }% A+ D- D7 a$ D           (ycor-of turtle d + y )
         
            
5 c" H2 w  z, S6 \" B6 ^0 ?# Aif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
' s) @+ O" ^* u                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
0 p) \* ^: ?4 B8 b; R8 u! b2 Q  setxy   ( xcor-of turtle f + x )
4 g$ h$ S) k# Q           (ycor-of turtle f + y )
" T- z8 S& N1 Z$ \7 Q           
. v" N2 ]% ]+ b) U( Y1 L* e8 z           
9 F; u& ?9 G( q: hif (remainder who 5 = 4) [set g who
/ g: U) h0 d3 J2 u. ?) Q                          set x Wid / 2
3 U4 \# J3 ^# ]                          set y  Dep / 2 ]
* q2 {  Q1 d+ y7 @  U                          set h  int (g / 5) * 5
7 L$ I, y6 V6 E; o% e7 ~- |6 T  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
+ b. H7 Q  x: H                          
                          
1 @& Y$ [* ]! S                          ]
: Z- Z( b) t& A5 z& c8 m% Nend
: ^1 G2 e) }/ t4 b
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
* G) X2 E2 l; n) H8 e           set b  int (who / 5) * 5
+ k$ L9 P$ d' A0 C& U    setxy ( xcor-of turtle b + x )
5 h/ t# [" O2 o5 }          ( ycor-of turtle b + y )]]
* D3 Y$ J8 j4 R9 \# k' L2 Xend
之前有个括号位置不对没发现