请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
4 j& \& x  B( \% JA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
% B! k: X4 d% v) w发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
. Q- u  j# ]3 e% r4 H) U  H还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
0 @+ t- b& g0 C9 p/ f7 V得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
; G2 T7 b( u0 ^$ }

- n) U& ~4 k! P3 Aglobals [ a  ]
! B9 G) H% \4 j/ Xbreed [As a-A]  
breed [Bs a-B]
! ?( P- S8 |+ Q3 c* j4 J! Qto setup
3 a) v/ A$ W4 a' {: k+ d  clear-all
3 H. N, M8 n% xcreate-As 10[setxy random(5)  random(5)
) p7 ], R( C- H# j; o2 u/ Yset color 3]
9 W4 o7 Y, ^" c' e$ Xset 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
# U) ^+ d1 |2 Y8 }]
) w0 b" z+ O( b2 v  S/ C   ]
. p0 E6 C' I9 A; U; q
5 K; Z) M, j- Hend

to go
ask a-B 10 [set color 15]
" f2 K0 ^) s0 Y7 E: S6 E! R- Send

wangjiajun101

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

wangjiajun101

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

globals [ a  ]
: [  u# R) G4 P! o# zbreed [As a-A]  
  P7 s+ I: K# F) O  xbreed [Bs a-B]
  e( _0 v$ g# P/ Wto setup
' Y$ x7 `2 c9 G3 |8 @& J+ m* k  clear-all
create-As 10[setxy random(5)  random(5)
, L# }& A! k+ k! s: cset color 3]
: z+ c* v/ J: O+ i
/ D% k% [% b4 f9 I6 Oset a (20)
3 h; C; g% ?4 o7 P9 F5 Ccreate-Bs 10[
7 t  ]6 n  k4 K/ [8 ?$ N' Rforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
3 f7 F5 K8 K% }+ nset a (a + 1)
set color 45
. z# S5 s+ }2 z) e* L6 c] ]
. e& p+ G4 e6 ]9 n, ^+ X   ]

, V1 x# C1 n' j$ Uend
; u0 J& g' _1 l2 v  F: W! Q/ d

to go
ask a-B 10 [set color 15]
end