请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
$ C  i5 d" f1 @& v7 r; xA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
8 k  t: i: q( \) F* T' T( R得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
! {0 \4 n4 v( H6 ~, J

9 A; R4 s3 L) z0 Dglobals [ a  ]
breed [As a-A]  
! @& C- C6 ]7 @  C* J9 c3 `  nbreed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
! X  u, P3 s0 ~9 Rset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
% A- B( _3 {8 m# A5 k5 R6 R] [setxy a a
set a (a + 0.2)
, K3 e0 a4 i, aset color 45
]
) i, ~) L# }# l2 K; i9 x- b   ]

end
/ G% e  C3 n6 `0 x
5 s+ Z; `: w: Q9 ]to go
ask a-B 10 [set color 15]
& c" |' K% Z2 g( ^) }7 Dend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
6 R9 P1 E$ a: {+ J; Z/ Q那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
8 z' r* q, X+ {
& q& U4 p, Z8 l. V* @globals [ a  ]
3 y7 p) r1 V8 f* gbreed [As a-A]  
breed [Bs a-B]
$ @" @% @, @0 k& Q' ?9 }' l0 `7 A3 u: Wto setup
  clear-all
create-As 10[setxy random(5)  random(5)
) H7 D$ B5 O6 v& Y2 d5 Sset color 3]
3 [* Q  V* J. v
set a (20)
7 s. m) Z- o  E1 hcreate-Bs 10[
+ q8 p0 G( }1 l3 s4 \; K% Oforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
set color 45
! [3 T5 \3 I. q9 I" s9 K' |1 a! ^] ]
   ]

end
1 f6 @0 |, u# M1 e5 Z

, m) Z* L! Q; m# t8 Hto go
% ?% _: r: N2 ^( r0 Sask a-B 10 [set color 15]
end