看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
: ^( h! G( p6 V, K4 s% x
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

2 K4 T( m6 z! r7 Oturtles-own [a b c d k f g h
" ?; v2 A6 ^5 Z) d! ^- R  L  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
' U' e: z7 x+ U' t9 M  u& I  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
: J' }* u+ e( q. o. z% [2 I  uto scatter
ask turtles with [remainder who 5 = 0]
- S2 K% p: o& E3 K/ o2 P[
set xcor xcor - 6 + random-float 15
& r1 s5 M) z( |9 y! wset ycor ycor - 6 + random-float 15
]
end
2 \3 C3 V& j/ T+ i8 }: B  p2 Wto unit_plan
* L# w1 I0 _. {( p( m2 dask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
8 `: q' V9 l  I. W* J' G                          set y  Dep / 2 ]
1 G: }7 ~1 b; R  Z           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
% Q( [8 S6 I% j* X+ Vif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
/ M. i% s, S' M4 r- O                          set d int (c / 5) * 5
7 T9 v0 p1 p; w$ f- d1 V   setxy   ( xcor-of turtle d + x )
4 `3 K. Q) G% [) g: ~* f           (ycor-of turtle d + y )
         
# h  `1 O# n' n6 w6 |* b4 K$ S3 Y            
6 |0 z/ _* S/ a4 N& W# Q( `. {3 Qif (remainder who 5 = 3) [set k who
4 h, [4 y7 {4 T* W( n+ ]) P; z3 R                          set x( Wid / 2)  
7 D7 A- d9 w4 @5 r/ M3 T/ X                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
/ I* M8 ]# `, o% P  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
1 A! D0 Y; w) C+ dif (remainder who 5 = 4) [set g who
7 t( D% v: k: ?* h. [! d                          set x Wid / 2
/ |" b+ K/ W8 e& V  W2 P                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
- d% G1 D# K6 W2 H# ?. T8 P) x                          
0 r0 y: g9 e8 M) H7 ~, r                          
' X/ \  @0 L9 D$ N  y                          ]
end
, }0 u; K/ a& g: W+ F+ X( M0 h
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
6 n2 S3 {5 y9 Vif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
/ P" L- N! z' ?: ^                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
0 O* E. Q! ~' H# _          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现