请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
, }1 c% O6 ~4 ?, I* H% M% z0 IA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
3 i; k  @: ^  r; z& ^' x- Z  \还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
# m/ `/ C" I/ A+ K
$ o" t, [& B1 p) P" _) `# O( o
  ^' E9 Z! V) u* zglobals [ a  ]
breed [As a-A]  
( K) @- J3 Y, Cbreed [Bs a-B]
to setup
2 L+ R% W6 X% M) ~: k( a0 s: k  clear-all
+ c* W2 |0 ?4 }; Ocreate-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
/ `" k; _7 `& ^" M  p2 n. Jcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
; m) T- H6 W* m& S] [setxy a a
set a (a + 0.2)
set color 45
]
5 k  g. W$ f% w, k   ]

2 E/ s8 Z+ d4 \+ R# a8 _( a) ^end

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

wangjiajun101

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

wangjiajun101

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

& s- l  a) k% ?9 l: L% Sglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
9 C! M0 a9 ^- e' P  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]

5 q5 @, S1 O) r5 O' ~  k1 x5 Aset a (20)
* t/ B6 t0 e& }% C) p6 W3 \create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
1 S9 \  [9 ]9 j& Fask a-B ? [setxy a a
set a (a + 1)
set color 45
] ]
# h% A" ?# M3 |   ]

end
2 B4 E. @4 o( e+ S; v6 _8 m

# P7 u- i2 S1 {3 `5 \9 r  [to go
ask a-B 10 [set color 15]
end