看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
5 l% H& B7 X4 J- t
( a% L" L4 J  S3 O5 eturtles-own [a b c d k f g h
7 d5 O5 l1 W# @) a; a# B2 l& \  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
: X! `. s. M9 T) X! s4 C3 W" n]
to new
# `+ E7 m; y: V- l1 V. }8 v  ca
) ]5 O7 T2 i/ R2 H7 v  crt 5 * num_of_building
/ x9 j5 K& l$ {  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
2 _. V# y9 n0 |7 l- M* D. W  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
$ V, |  C: U4 w. u8 V* j[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
5 b- L  c6 d- `; f]
end
9 b; n* _, [9 w" ~" s+ Wto unit_plan
+ `/ u0 Q, S* ^: r/ [. Nask turtles [
, o& X# Q0 Z- G8 a5 Zif (remainder who 5 = 1) [set a who
" \- L1 s9 N8 ~8 R                          set x ( 0 - Wid / 2 )
3 v$ }- P, [' }0 k                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
% K3 _4 F+ I& W9 N, [/ X    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
+ ^* b& n; y/ M" _. T                          set y (0 - Dep / 2 )  ]
1 \, z( k' ~6 |  Z' f                          set d int (c / 5) * 5
0 K% N; s) I% T1 ?. m   setxy   ( xcor-of turtle d + x )
, W/ y& @6 h- n% B! c5 }           (ycor-of turtle d + y )
) J- u3 X! Y3 J. v, T         
$ @$ C& V/ c7 V            
! f/ N4 s: B  w$ Wif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
! V' V6 O3 e, d& O/ r, b3 m                          set y (0 - Dep / 2 ) ]
# d" k4 [! y! z6 |  H  v6 P2 i) |2 H                          set f int (k / 5) * 5
3 q2 g0 S0 \' X* `9 v- J, j  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
2 W" H; }# X& s9 k$ `* I4 o; d           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
9 x/ d# [& ^) t  J" M5 [9 d6 U% ]                          set h  int (g / 5) * 5
5 V7 k+ w4 ?6 @; Q( J3 E' ~/ Y  setxy   ( xcor-of turtle h + x )
' K4 i% w) T( A% K8 m2 s           (ycor-of turtle h + y )
% R+ x  T( K* _" x                          
                          
1 g4 N7 j+ L6 T; |: l0 N4 r                          ]
end
6 v. b+ {0 z; n( q3 F. `9 N! K
+ W5 _# g4 A- Y6 V/ U& }. ]+ W* T[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
4 f$ Y. D- W4 Q3 N$ b0 V: ]) n( Y应该是
ask turtles [
: Q: f, `8 v' u& k8 uif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
3 R% c  a, p# f9 U           set b  int (who / 5) * 5
6 q8 t5 l! d2 b! [, V3 @    setxy ( xcor-of turtle b + x )
2 ^! y  B/ w( G  l0 S, w9 ~7 D          ( ycor-of turtle b + y )]]
: I% G* i* k! f6 R% k# rend
( h* f6 Z$ l! C  \7 |5 y8 t之前有个括号位置不对没发现