看看这段代码的问题

etamina

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

& |5 y5 r, n; ~! p8 x7 O! S: N& i' Q" r但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
& y& h+ U1 g% g( u8 w4 h7 G1 Q  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]]
) I3 B3 y* V6 _3 ]0 ~+ r0 y  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
. _) Z& @1 P0 r" q( T3 c7 h5 B5 k) b! A- \[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
- s- ~* e0 \. h]
4 a2 S' B- k( C! w9 jend
to unit_plan
! c# {7 n8 Q, m6 @ask turtles [
if (remainder who 5 = 1) [set a who
+ I3 A4 o1 k8 I/ N9 U5 h, H                          set x ( 0 - Wid / 2 )
6 I: z$ q( Z7 I) P, R6 @2 g* t7 m                          set y  Dep / 2 ]
  h. G) `8 v" P, Z, R           set b  int (a / 5) * 5
: N6 }% A3 W: F5 F. N/ v! d    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
# A# W5 o* V1 M* x* k                          set y (0 - Dep / 2 )  ]
% W' d0 a6 J9 K2 ?                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
6 t# V6 y% T  c4 R  h/ J5 N         
            
, k9 K7 E9 J) N/ p( hif (remainder who 5 = 3) [set k who
  [! i: k# K9 [9 d( l                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
5 ^/ l, r0 m) ?. a5 s: ^: T                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
$ w5 [9 r2 x# R: I! H           (ycor-of turtle f + y )
           
; R! D+ x6 v. h! U! ~           
7 T* D. U4 z: `5 k/ V3 Z! h0 S1 lif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
$ q  G$ x& V& {  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
2 j9 M: ]$ P& O4 d; q5 |8 X- |                          
                          
, i5 x8 M( n3 g7 d2 O                          ]
end
, G2 a8 ^5 v1 `
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
: I! r1 |8 ~, a/ }  W, p  T2 x                          set y  Dep / 2
4 R, ?0 x* m$ v' f; d4 D& h/ L+ P           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
" q% U$ G9 x, t- y4 b          ( ycor-of turtle b + y )]]
. I; i3 A& K( V& y  Aend
! g3 P$ p7 A$ ?# I之前有个括号位置不对没发现