看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
8 _, M" w! A2 V  m1 E  S: \
6 y6 F$ W: r' }( O# J. Z, |但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
1 X. x3 y. ]8 A/ ^" E  N( `]
to new
  ca
  crt 5 * num_of_building
8 o+ k' p6 c2 i- ~+ a7 o  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
3 Z% D( `- G1 u6 p7 Eto scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
# g/ R5 b% O. u/ F# ]set ycor ycor - 6 + random-float 15
4 o% p  }0 O5 o2 Q- T6 q]
end
to unit_plan
ask turtles [
& X. [# U& A7 X: X" M$ bif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
5 H, P. \) b3 ^/ N  K9 B) w                          set x ( 0 - Wid / 2 )
- R& @  X& [2 e  J& m5 F6 o                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
+ H+ w. ^! W! f0 F         
  W0 Z0 a* W" c4 g3 ~5 @% e            
if (remainder who 5 = 3) [set k who
6 k6 |- W3 Z8 }; ?. g                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
" p" W/ {9 I$ J4 q3 ~. b  setxy   ( xcor-of turtle f + x )
1 d, d8 r1 }6 e: O           (ycor-of turtle f + y )
           
           
) @3 ~6 \2 a' F! U1 Eif (remainder who 5 = 4) [set g who
                          set x Wid / 2
* H8 k5 Z6 P6 j5 h9 R6 s                          set y  Dep / 2 ]
$ l7 |6 N6 d3 Q5 \( q2 x  v                          set h  int (g / 5) * 5
4 p+ U: j, }  l) ~5 `  setxy   ( xcor-of turtle h + x )
+ _+ I: \  L0 P8 y  q2 T+ j$ j( o1 Y           (ycor-of turtle h + y )
4 n3 t- D. ~/ m$ u7 n( Z5 c                          
' m% {; ]/ x) W. p2 K; B+ x' f                          
                          ]
! U1 G( |8 I2 l, r& Dend
7 r- b% j* t' j! q0 p" I
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
0 n* z3 |$ E4 T' V: P$ Q! a; X应该是
ask turtles [
! c7 t( @# b: H7 c$ v- [if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
* }' [2 L3 V. e( p8 |7 i; }( I! q                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
5 [& y/ [' H6 L* h0 x之前有个括号位置不对没发现