看看这段代码的问题

etamina

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

# O" s" O+ W- b" b; @但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
: H0 E, e# Y% \8 ~2 W& W$ C2 Q" g/ ~]
to new
3 E1 f3 v- v% u. D9 w: m! a  ca
  crt 5 * num_of_building
, a5 V) \* ?5 ^' I+ X  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
# e$ I) \7 r/ F% V0 k2 ~) u  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
+ R  y0 ^; j: |$ M) l0 Gto scatter
) \* D- \! w0 a: K$ L& a  rask turtles with [remainder who 5 = 0]
[
4 N+ t; B4 |& b1 pset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
4 ?* ~# q+ m( \! c+ U# n: C7 H]
2 M  ^  P6 E/ H& e3 Xend
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
2 Q5 X  Y* z1 S' t( ~1 ~- B                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
6 W% g2 Y: [& h; S. P4 E    setxy ( xcor-of turtle b + x )
0 J/ X* r9 z- y& N          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
! O! w8 W  l0 K                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
5 M7 u# c- s3 B" r  x9 g+ x/ g/ x         
            
- X4 F9 `" v$ ]! M, _if (remainder who 5 = 3) [set k who
2 a" O, S) K4 G3 f                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
( O# G) ~9 e# h! P+ m           (ycor-of turtle f + y )
           
. U  t5 |* o# s9 ?2 o0 g$ E8 l           
if (remainder who 5 = 4) [set g who
% |  f+ I- B+ p                          set x Wid / 2
                          set y  Dep / 2 ]
' p* Q8 N4 k/ A3 W9 A                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
1 J- T6 f" C3 }! v+ J7 E7 G+ e                          
) J! G3 ^. k4 M5 Q, e" ?% w" h, |                          ]
. d* W, q. R$ b% B" f, }2 Z' }end
4 r3 x2 v7 B8 ]6 _, S2 z
+ _. q+ }( s- B[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
1 v, O7 }3 M( o应该是
ask turtles [
* E2 Q4 M- c  `1 p- b7 ^$ Kif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
: Q0 R: c: _5 O) {           set b  int (who / 5) * 5
( ?: o3 ?, T( J- X/ M  j    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
. F3 z' P; x. `' `8 Q% C2 B之前有个括号位置不对没发现