看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
0 j! {' M' U3 Y* I( W* ?% M0 M
# k8 b; b" k+ M% ~0 a5 O9 ?但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

) I7 Z2 a% N: h8 oturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
. L; I  J$ V1 Z; N; }]
5 x6 D3 G( d" R! W3 D, x( ?$ u2 \to new
  ca
) N& [: b4 D9 ]% }, D  crt 5 * num_of_building
0 |( r, U  d. [+ I/ q  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
; V( Q7 b1 o, U# d  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
1 I( M, Y% _0 u+ _# j( ]end
* {: n. e6 U6 |0 d4 }: B: rto scatter
ask turtles with [remainder who 5 = 0]
$ J. }' u* _% P. S" Q! }[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
5 v- f! b) i- ~. W& c' E8 `0 mto unit_plan
ask turtles [
2 U: b. X  j, ?4 y4 E: {8 Eif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
* L. O: f9 M2 ]& w                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
/ G! f. Z% w( ]' L7 b          ( ycor-of turtle b + y )
' H1 H( A" O/ r9 G5 R( h+ z; cif (remainder who 5 = 2) [set c who
/ e8 N! |4 z& x" J                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
7 P% a& E3 i0 Z- g% J1 O$ T                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
: r! {2 e9 ]# C; c0 M& [( c; T* k         
7 H# |; J( g8 U8 c            
0 g8 N" |; v7 f1 S6 }0 u7 h# mif (remainder who 5 = 3) [set k who
  a: V+ J4 U9 G" I                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
/ V9 W+ a- X7 q. @+ T           (ycor-of turtle f + y )
           
! K( d& _  v  u/ j0 s+ G8 x/ R           
! f9 `9 K( m0 B3 k) @; lif (remainder who 5 = 4) [set g who
                          set x Wid / 2
9 x- |+ r' J) ?5 x$ W2 F                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
( M3 Q! u- s  m3 t8 m; |9 W7 d                          
                          
                          ]
  X, r" z& @; R. r) `; wend
. v* \, X3 M! y$ Q. j  m! k. _3 z
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
% a  Z  F+ P9 @" I应该是
ask turtles [
( m* X) c$ z2 T6 U2 q+ J/ [5 Wif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
. Y4 v1 f& A% k# Y          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现