看看这段代码的问题

etamina

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

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

! Q% V9 A% ^' c8 Nturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
$ l9 N7 x1 B' D2 G4 p  ca
. u; H, K, D4 G' i8 w  u  crt 5 * num_of_building
  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
% e+ ^' S) c4 G6 K/ V0 oend
to scatter
ask turtles with [remainder who 5 = 0]
2 \) j$ A. _% g[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
6 L4 M: c0 `5 u- U' j6 s]
2 ]2 f9 r% ^# T1 \2 T5 L! O7 d" v# r) ^, _end
to unit_plan
ask turtles [
: B; W5 Z8 O  d# Mif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
0 l/ E% C+ T  K! @, d                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
! r6 G5 O% q- F+ M  G4 P3 }          ( ycor-of turtle b + y )
7 S2 j  y. |' \5 i# f: Hif (remainder who 5 = 2) [set c who
' O" W% f. `" K                          set x ( 0 - Wid / 2 )
- S) K3 w' g5 s, v. P                          set y (0 - Dep / 2 )  ]
7 k" [0 A% ~% v" u  c6 Q% h                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
* K0 c. o2 a8 x) zif (remainder who 5 = 3) [set k who
$ S, I/ t- Z) c3 f" [6 f1 i                          set x( Wid / 2)  
" X5 o# L% K- |. |* j, R/ E: T/ Z                          set y (0 - Dep / 2 ) ]
' B, Q: X* Q% A6 D. B                          set f int (k / 5) * 5
! D, J3 G- k# _- `  setxy   ( xcor-of turtle f + x )
$ |3 K; I/ Z' [           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
7 Z1 _; ~5 g* u! x! l                          set x Wid / 2
% \% w7 D- Z& S$ q+ ^9 }                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
7 U& i1 n: m' e3 P" x) L           (ycor-of turtle h + y )
' x* ~. `# P( d: m4 Y                          
                          
                          ]
end

5 r; _+ f! K/ q; [; |0 h* E[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
& o9 n( V  Z% Z% q1 ~2 uask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
+ F- ^! W+ Z% q2 o. l7 |, e  X                          set y  Dep / 2
           set b  int (who / 5) * 5
6 u6 q8 Z  ^% h. h/ S& @9 g3 y% H    setxy ( xcor-of turtle b + x )
) R+ S: r  N' a* ~; P* P          ( ycor-of turtle b + y )]]
  m4 f7 N1 M! }# Z$ P" _& @$ t% Xend
1 C: i& ]6 }. P: K7 Z+ X之前有个括号位置不对没发现