请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
4 u, S. U$ K& u& z- Z  O发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
& c' ?2 @" E6 P$ {: z' \8 M得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
0 u% F: B, o. C2 Q5 j  r" L) p

globals [ a  ]
breed [As a-A]  
0 M' n$ ?$ \3 ^6 Qbreed [Bs a-B]
to setup
* c0 g/ H  ~* Z% K  clear-all
, w, |$ n4 O7 s, ?/ `3 C& dcreate-As 10[setxy random(5)  random(5)
4 I: Q, l% I; S# p% Xset color 3]
set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
7 Z& W+ E3 i$ Q$ ]] [setxy a a
set a (a + 0.2)
set color 45
& t- E0 [1 Y; c3 _]
   ]

# j( ~$ K# `2 c& s- Kend
3 F6 s9 d+ m- J9 f( ?
$ s9 ?# Y% q& Q- ?, Hto go
ask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

程序写成如下就可以解决了：
+ x0 f/ [) p  h* k  ~* _
$ e, L3 p9 w3 k* d/ O/ dglobals [ a  ]
breed [As a-A]  
$ b0 x3 A. _. ]' a8 s  e4 k9 pbreed [Bs a-B]
6 Q8 k( |6 I* [2 @$ [8 Z0 D- Vto setup
  clear-all
8 z9 @5 I, z4 i( g9 F* Ocreate-As 10[setxy random(5)  random(5)
set color 3]

4 D: G- m1 k7 ]# A( a. z% N: m9 C# aset a (20)
1 {- z* D- S' {4 M4 Xcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
set color 45
# r! Q: b( v$ k9 z] ]
   ]
, q& q( U  H: H  D  D
end
4 |, d$ a* x* g% i& T0 l3 t' a
, ~! V2 _( B+ x3 }1 i, h
to go
ask a-B 10 [set color 15]
0 X( w# I3 h; `7 q; ?( l4 Aend