看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
* Y& A6 D1 H- |- m7 ^- Q
& X4 O/ r& g/ j6 J5 e3 z6 t但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

5 P; Q* R: t) E. Z3 e$ Dturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
+ w. o. b8 j: [# E7 c  f0 h) @1 r]
6 v9 j% V3 _8 J5 ~4 G" ato new
, m; N- G- s' H. W1 Q, }" q  ca
  crt 5 * num_of_building
6 U( r1 C& L# B% |6 b: D  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
% f; O: M( T; D  scatter     ;;keep center-turtle random positions
. N% D0 Q2 E( k  unit_plan   ;;make up the building plan
end
% m$ |) w: S& `& y" oto scatter
, ?1 s5 c5 K$ Y! h6 Eask turtles with [remainder who 5 = 0]
[
1 d2 ?9 _) J, J/ x& Y$ _( yset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
2 O- T2 D' G! Z" T]
end
to unit_plan
! D' |" |  U5 {  Yask turtles [
7 R" N: J3 h- xif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
* |1 N; k0 n) B  [/ d; G$ y                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
# J0 \' {7 D  H; N8 E5 e    setxy ( xcor-of turtle b + x )
2 D4 L: \: z6 f- t4 f+ t3 z          ( ycor-of turtle b + y )
, r  }/ a; ~$ g: _if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
) o+ u) k5 v0 D/ D                          set d int (c / 5) * 5
, A7 [( G' ~, [) G   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
! x8 q& r, p7 |6 {1 X& Q         
) ^- @9 @# K: p7 Y" |0 E            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
# `+ R, A# p: E. I& ~2 i  C/ w& q                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
# B; f2 u+ M' u0 {( Z  W           (ycor-of turtle f + y )
9 r. u7 g3 h3 h, z2 J% \# K  X           
- P6 z$ x  |* J4 A           
4 r8 z6 S- V7 i9 @' y) `( Dif (remainder who 5 = 4) [set g who
/ r" Y# R, K3 r: u, I  L$ H                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
: T  }* S/ P) B- p3 w5 @& v, W           (ycor-of turtle h + y )
6 p$ W3 k0 p1 @* C: {( o/ F                          
4 l5 A& o' X  s% b2 s  z3 R1 |                          
9 T2 _0 f, K3 S  L; c                          ]
end
! ~9 C8 h) a6 r4 Y  Z7 I. m, A
5 O% \+ B& O8 F[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
9 B: W5 b: Y. F3 f( H$ K" T" i应该是
* J* W- M  A' N( I5 m6 m& `+ o6 Iask turtles [
2 b4 ^; S8 D& A% x; hif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
' B2 L! a8 n9 u9 ~8 Y                          set y  Dep / 2
) j+ q8 P' j5 ?9 M3 a! u           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
$ A" O) ]3 A+ m& ]3 ^* @3 w6 k          ( ycor-of turtle b + y )]]
7 F9 Z5 c# S3 l# c" Cend
* m; L3 y% a% M" G之前有个括号位置不对没发现