请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
3 T9 i1 c0 \/ V, f) w" r3 V+ LA10个，B10个
6 E# x% d( G) @- k0 n4 x想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
1 {( o2 {4 t/ n  Y: f9 H" l0 o. F还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
  _0 N, G, O0 n. p, ]2 |7 X  J得到不同的结果，如图a1 和a2
/ P* S0 k- M8 |: q' P* ?6 s; f想要一直改变B的第一个乌龟的颜色该怎样写？？？

! I7 S0 }2 W1 w, K3 j/ f2 r1 {& Y
/ \  M# {0 ?6 f& B; [globals [ a  ]
breed [As a-A]  
: S9 v( s; R1 Q- ?" S8 ?1 {breed [Bs a-B]
to setup
0 q+ j3 Y3 o1 P  |: c$ e& n  clear-all
/ w- q) L" \, ?, ^4 a4 @create-As 10[setxy random(5)  random(5)
  K/ k, v# J8 [. |1 z* i( C2 U+ tset color 3]
. u! r9 F. E4 C: q: B: Sset a (20)
9 o' N4 ~, |+ L. W. ^5 N* @create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
, [$ b! C: r2 O' ^+ }set a (a + 0.2)
set color 45
* m: g; O( {6 a) F# z]
' ?" _' A" D/ E. ?# @0 z   ]
7 K/ E( H+ [3 I
end

2 v/ E8 m5 f& V- Q5 V+ `to go
ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
6 }: D( E9 A9 o" j9 M那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
: B9 c" I9 t) s+ X3 V+ ubreed [As a-A]  
9 ^) u  y5 I  t$ {+ @breed [Bs a-B]
  \! F% T8 P( ?' X0 Yto setup
  clear-all
create-As 10[setxy random(5)  random(5)
8 x5 p. H& [8 y. [; M# Jset color 3]

set a (20)
: T0 W1 M& n9 ]7 g0 Z0 c! y7 Xcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
6 s1 h2 L" E: E6 z+ N3 [! ]ask a-B ? [setxy a a
set a (a + 1)
( J( G# V  h) H) Z# Aset color 45
: o9 z2 L9 \$ E! U8 I( i7 J] ]
   ]
2 W4 |3 `$ T2 w3 j! n% e
end


4 I! i/ e) t0 Qto go
) t/ B( w2 c- u- d# hask a-B 10 [set color 15]
end