请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
$ D0 B6 ?0 Y7 @, |1 ?% vA10个，B10个
! q4 [" Z  y% t9 ]5 x0 s7 m想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
# c& b% m1 C- o: Q0 e% n得到不同的结果，如图a1 和a2
5 v1 T2 y3 h% V想要一直改变B的第一个乌龟的颜色该怎样写？？？
9 g- V; P# F8 X6 O  k4 x+ B  W% w
0 U$ m1 U1 w0 w& S
6 Z  g9 C: p6 r/ n# X; D% Xglobals [ a  ]
, F! \6 i1 q8 g- |0 E& Ubreed [As a-A]  
0 i8 s1 S9 u8 w, Xbreed [Bs a-B]
to setup
: b+ Y; o; N, e3 @9 T" ?+ m) C0 _  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
0 Q* r: s+ N# X7 I, uset a (20)
# i5 ~9 k4 j0 c. D/ H) Mcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
9 B) U- c# A- D8 Z# Fset a (a + 0.2)
set color 45
]
: E/ S( m+ Q0 @( f3 m1 E, {   ]
1 w1 k: _2 z% L) Z5 F5 ^5 V% d& W" V& @
end

3 }& V$ F9 a( \) n% W9 {to go
ask a-B 10 [set color 15]
6 J+ m/ m4 C, Tend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
3 ~* v# k7 L3 W! e! w) @) n那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
% O$ I& z8 E1 }5 C
/ S: S- I( z3 }  I2 }/ e# Tglobals [ a  ]
breed [As a-A]  
; o/ _% }+ \4 W3 C) |3 ?breed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
* X# s2 K5 Y" @! B" h4 N
set a (20)
$ k7 l, Z) `2 l" `/ dcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
3 H9 |# D4 c7 `set color 45
] ]
; ?; D% b1 B2 d1 K7 Z4 Y   ]
7 f$ v1 H+ \1 ]
end

) [" F9 P+ @6 j! ^& F
to go
ask a-B 10 [set color 15]
  Y; f7 e7 v# b; ~$ ?end