看看这段代码的问题

etamina

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

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

turtles-own [a b c d k f g h
1 f/ g" q  v2 B$ H+ s" \  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  y  O6 ]' {$ |: u4 k  unit_plan   ;;make up the building plan
6 p4 z1 H( X# ?- y$ iend
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
1 F9 `2 q& u$ R" ]7 F% N2 h$ @set ycor ycor - 6 + random-float 15
( T+ {  F$ a$ Y, r" A' x7 {]
end
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
! z" c' ^0 ]9 P. V                          set y  Dep / 2 ]
5 ~9 g2 q" W: D1 e! l. _8 j           set b  int (a / 5) * 5
* U6 r( r5 e- g$ h: B2 V& x, z( I    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
! a+ g) i( L) M                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
% P: a/ O5 d) `( `" o3 j9 @! P   setxy   ( xcor-of turtle d + x )
! I9 W# l1 n. Z           (ycor-of turtle d + y )
! W' x2 n2 O7 }         
            
: x( f. s/ B' W: U1 n& gif (remainder who 5 = 3) [set k who
& ^: x8 P/ n8 J; b                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
1 a  z/ j; E& e9 B: z, }; H  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
9 `3 t" b5 |" B& k- B4 B) U           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
8 g* k  M! N9 p6 J5 p9 V                          set y  Dep / 2 ]
& b& B: P/ y5 u0 f                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
5 r' |( |' v% C1 U9 B+ j4 q                          ]
end

9 {: T% k4 a4 \  N1 G[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
3 m/ y' ?* a9 vif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
! J% \- Y3 k& O# h$ k/ e) p           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
3 Z+ v5 l% E7 v% b          ( ycor-of turtle b + y )]]
' o1 P; i- z9 @- ~& B; e0 Uend
之前有个括号位置不对没发现