请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
) l, c" d# q& g; L9 kA10个，B10个
6 e" Y% a8 ^- ^6 X! |1 O. \5 y, K4 g# q想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
' `% l9 v% B! q% I! v0 G6 V- w想要一直改变B的第一个乌龟的颜色该怎样写？？？


globals [ a  ]
+ w1 O) [& r# D2 qbreed [As a-A]  
breed [Bs a-B]
to setup
. b! l. W' ?: B8 L+ q  clear-all
8 L7 ^+ o# g2 i* J! {create-As 10[setxy random(5)  random(5)
4 ]. r) M  o$ d% eset color 3]
' z# F; N" A! a0 yset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
set color 45
  ]3 R& Y% i; B/ {: G) R! H]
   ]
8 e1 {% f' \, {! j1 ~2 ~3 c
0 y/ l$ Y  C  q! r+ T; jend
9 g) u; N8 _4 o$ d. R
- |- R2 G: R0 Cto go
4 F, w1 r  x1 \ask a-B 10 [set color 15]
2 R) Q0 A/ Y# ^& F* x- Xend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
$ H  \3 D" S9 @1 \. Y7 W0 K# B那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
% l: @% z0 t( A1 Q7 Mto setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
8 _0 O+ J" D' {. {$ Q' r  |  y9 y
set a (20)
create-Bs 10[
! [, |1 _4 i' b  Qforeach [10 11 12 13 14 15 16 17 18 19 ] [
9 w+ n" N/ Y$ m( J2 N9 `ask a-B ? [setxy a a
# k/ Q  I$ H" B! a) V/ Q$ u) aset a (a + 1)
3 @. G/ Y2 ~4 t" P2 \7 S  B# cset color 45
2 I2 ^: \1 a% h4 M4 H3 p] ]
& D6 z) Z3 I; K) X) g   ]

end


5 s3 \3 S7 Z' u  G8 ~to go
) L" t+ z9 f0 d& t' [3 L, o4 Jask a-B 10 [set color 15]
end