看看这段代码的问题

etamina

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

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

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
3 G- f: P' C2 g( k" R]
to new
  ca
' O4 d# q1 L# x% D  crt 5 * num_of_building
  i# u, t: s8 }4 O* |  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
& I% j+ }) ~( g7 H' r* l5 p  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
& X" P. K2 B9 l0 Oask turtles with [remainder who 5 = 0]
[
) Z2 O: _7 d+ o( `$ ]set xcor xcor - 6 + random-float 15
- P6 u, c; P# d2 `2 n3 v- sset ycor ycor - 6 + random-float 15
]
end
to unit_plan
( j) e! N7 j2 ^5 V( n$ {ask turtles [
$ s  x9 `& Q5 H* u2 v( @if (remainder who 5 = 1) [set a who
" O- Q, K* x5 t* T" E  G4 T1 L6 R                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
4 v/ Z2 L9 m% |           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
6 S0 u# y0 H  w4 M4 Hif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
- p; l2 ~" s) R- I1 p                          set y (0 - Dep / 2 )  ]
; }/ k& y! b8 Y- T4 x) ]                          set d int (c / 5) * 5
# B0 ?9 l) ^% Z5 L% p   setxy   ( xcor-of turtle d + x )
) G/ ?2 S" C( C  F( X           (ycor-of turtle d + y )
         
            
! D5 j: t4 v5 B4 k) O5 fif (remainder who 5 = 3) [set k who
. U& M& e$ a2 r0 V7 g+ c, C' A: P( p! Y                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
1 u9 W+ Y+ A7 u  N0 Q" ]7 I. A  setxy   ( xcor-of turtle f + x )
- @- m6 G0 d. }; ]' U           (ycor-of turtle f + y )
           
4 u7 U6 Z! E& G1 c- v, A7 ^; m2 k           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
& _. X# [3 C) V1 I8 ~                          set h  int (g / 5) * 5
. T) _+ ]: V- W# Y& [  setxy   ( xcor-of turtle h + x )
( `0 g$ S& `! _5 g6 D' Y0 }0 o           (ycor-of turtle h + y )
                          
                          
8 n. g+ Z- \: I5 v. s                          ]
2 J3 Q# O, W- J8 a& Q9 Oend

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

etamina

已经解决了，
应该是
. B4 }! \0 E: e3 v7 @ask turtles [
; D( x/ p+ T3 `: K* r, x5 y9 u) ^/ Sif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
7 L9 c! V) D" N# `6 `/ Z9 V5 t                          set y  Dep / 2
9 u4 ~: ~$ Z& W! G. W           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
' ]6 t7 H3 }) D  X          ( ycor-of turtle b + y )]]
end
3 j, ?! g  M0 r! @" Q& M& N8 D$ H/ m之前有个括号位置不对没发现