请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
. |4 n8 T( P1 J, t发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
% }4 V6 T) K5 Z) g9 ^! D( d* z! ^还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
# ], Y% y" S, f* T8 W得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
' ~- G8 P+ O/ E; p8 \+ ?3 B
( U0 G8 K- `2 A
- W3 z. B, F# x, x# uglobals [ a  ]
breed [As a-A]  
; w" b& v$ t" K0 g! rbreed [Bs a-B]
  \" G: U7 [) q1 W; Pto setup
  clear-all
create-As 10[setxy random(5)  random(5)
5 H1 G8 _) K- t3 l* k. _% X0 Rset color 3]
set a (20)
& {1 _  Y7 T- v8 F7 e2 bcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
set color 45
]
9 L9 R, ]1 B; A/ w% ]' C   ]

, V& D/ _% u+ H9 m6 |+ I1 S- Rend

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

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
/ Y2 L8 g5 {% s5 j$ j那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
2 g/ T% w+ b! m( q  |& S, p
globals [ a  ]
7 N  X+ k& r, }- q2 ubreed [As a-A]  
- n' b8 M3 e" o& Nbreed [Bs a-B]
. h# n2 m# q- M% O1 Qto setup
) Z$ Y* s4 e: J9 N! ~  clear-all
* F! j/ N7 T7 P* B. Lcreate-As 10[setxy random(5)  random(5)
set color 3]
) v4 B! R% y$ C# w6 z7 n- {
set a (20)
$ d, _7 A2 P! E- n/ D3 U' U. Tcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
6 _! _5 }: k. t1 y2 P* U; u2 z" Oset a (a + 1)
set color 45
] ]
   ]
4 O7 z" x3 h' k6 `3 \
end


8 Y; D! {  t; G9 [' e! I/ _& Xto go
ask a-B 10 [set color 15]
end