请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
* |3 g0 C# Q9 _; G* \6 C% @想要把B的第一个乌龟颜色从黄色改变为红色
, P: o4 m, |" t, w7 M& W发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
( j% _2 @% U- f) Y3 A$ y& {; Q

globals [ a  ]
breed [As a-A]  
) x/ u+ c2 t3 u3 z5 X; D6 qbreed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
' T+ y, Z) j' Y. Z7 Qcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
; y9 o* ]$ G$ S0 g5 dset a (a + 0.2)
set color 45
+ E  l$ c5 i9 n4 P]
" i. d% F, I- V7 g$ u" \   ]
' h8 t8 E9 z% E( y+ @& n9 r
end

to go
% S2 u) |7 I4 T7 b! S! n! z: `/ qask a-B 10 [set color 15]
- S8 y9 M4 u7 x! F3 y' B. g# Iend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
$ y8 U4 d" R' n$ R
6 H. c5 }0 P- y+ }2 Zglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
/ _) c1 ?: g! _+ o* N$ Ato setup
. m: f8 n' b2 F8 |# S! R  b  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
* _- M/ B- @6 ]. B) V' W( m
$ v" ~& N4 k' p% |5 Tset a (20)
6 J  Q# e4 f% V# t( Zcreate-Bs 10[
$ L) L% r- c1 }2 o) q/ A; oforeach [10 11 12 13 14 15 16 17 18 19 ] [
# X4 U' z" |( a+ v4 ~ask a-B ? [setxy a a
9 L. u" G+ r5 T7 p3 ]set a (a + 1)
set color 45
] ]
   ]
) D8 x) f& ~( z
3 y% F( a3 e6 b7 jend


: k9 ]/ X: T& b* Pto go
ask a-B 10 [set color 15]
end