看看这段代码的问题

etamina

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

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

" m+ B. q; }4 q/ wturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
2 m3 N  t, T) ^. e) j3 M]
1 w1 ^! G7 N* u! Hto new
  ca
  crt 5 * num_of_building
; e. ]$ X  }3 C* c. e6 g  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
6 f: f. B4 s, P  scatter     ;;keep center-turtle random positions
# B# K9 P% D/ B; _  unit_plan   ;;make up the building plan
end
& {0 E! ?, M& L1 k1 z) bto scatter
. G4 c6 T8 D# }) s- {% f/ xask turtles with [remainder who 5 = 0]
[
" |+ @# A6 n" w  N& fset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
# D. c% \" P7 z$ {3 {$ ^0 nto unit_plan
% \" o; i0 [; J) oask turtles [
if (remainder who 5 = 1) [set a who
3 ~' S4 {( Y+ O                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
9 l- A1 c/ T- c7 ^1 m6 q) w9 ^           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
; ]( m5 \( I% l8 Iif (remainder who 5 = 2) [set c who
0 O, O5 @3 B. w" k                          set x ( 0 - Wid / 2 )
6 w( \8 g" j! W) r                          set y (0 - Dep / 2 )  ]
9 ?4 H9 j& T) {  G% A# N# j3 a                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
3 F, ~3 i. j2 ?  l( y           (ycor-of turtle d + y )
         
3 ~7 o* @7 s7 c2 T            
if (remainder who 5 = 3) [set k who
& \1 S* Q' t+ z3 a, r4 x) G. Z; Y- v                          set x( Wid / 2)  
& g8 ^1 t/ [/ l2 e3 C  W                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
1 [  O  v% z* R6 A% y& f& M           (ycor-of turtle f + y )
* [" f* s4 {. W& X           
) {0 V" w( H( L           
if (remainder who 5 = 4) [set g who
/ I! _4 k- M- Y) x& I& r                          set x Wid / 2
8 d$ |' U" `/ A4 m# i: Y                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
5 Z/ C  @  [+ A) P' Z% z  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
4 d( K9 k/ O6 t! W& g, r                          
                          
- \, X7 S: T: ?$ O                          ]
1 D0 C2 V7 `; g- S- t4 x; H9 Tend

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

etamina

已经解决了，
应该是
$ x, I8 w) ^, K! }: Aask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
' p! G; w+ c1 b: ~1 x                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
6 X, J/ ^% z: I5 V: D. M          ( ycor-of turtle b + y )]]
end
6 z8 C/ }5 W( ?+ }( T5 z2 g- n之前有个括号位置不对没发现