看看这段代码的问题

etamina

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

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

turtles-own [a b c d k f g h
6 }" o  B$ h1 |& ^5 t( D% ]0 K5 I! h* {9 }  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
+ `# x- v2 Y: K  d( k]
: m& F5 F. b5 k: j8 Kto new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
) k3 R( J( a3 V) w2 v: ^' S$ K& s  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
& u# O! m9 t  f+ e' a3 m& Q+ fto scatter
ask turtles with [remainder who 5 = 0]
* O# k0 e6 b1 B7 ^2 x& d[
; I* v; Z4 h& ^2 e8 X$ gset xcor xcor - 6 + random-float 15
+ ^9 q3 [+ Y/ a) b/ H/ l' G# ^set ycor ycor - 6 + random-float 15
]
end
to unit_plan
3 J1 W/ a/ D0 ^: A6 j$ @" @ask turtles [
  x5 z1 @7 P; m3 l- hif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
4 ?  ?0 s& K0 W* ^! U- x9 m                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
0 |2 [* `7 H& B+ S  _& V# a7 b    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
4 k: k) J) Z9 X- l7 C5 P  y                          set y (0 - Dep / 2 )  ]
- d; H9 A3 H9 b* r8 ^                          set d int (c / 5) * 5
8 [6 R% x( g( q   setxy   ( xcor-of turtle d + x )
' R% g8 h; h' G2 k  v           (ycor-of turtle d + y )
3 D4 V& S- z9 I" {4 V         
; M9 a5 S5 [/ U& W) i            
7 U4 D3 G' R0 aif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
" r5 R" u1 q, {" W. M; Z* e( S& i                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
" V8 w( k3 V4 r6 ^           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
( _9 ?& D& c: E& ?                          set x Wid / 2
& M/ o0 T4 i' _6 Z                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
  ?) N$ w. F' h* ?" p3 v. ?( A                          
. O2 T: W7 j" f- q) K7 R( P5 e6 [                          ]
end
; p% r+ k4 X8 T
/ e- `+ x  `8 L  v) ^" C[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
* i$ U: H! r1 _# f  i/ ]ask turtles [
) u& @& [* D2 I3 Fif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
( R) Z" q: x" q3 |, R' c          ( ycor-of turtle b + y )]]
% N$ b3 n9 {% A/ r3 I; Rend
8 V+ v  D* g) e; L) V( S8 U之前有个括号位置不对没发现