请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
9 c- J6 o; g. `' y* R7 a+ `发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
7 Q! f$ @) M- G0 J0 Y0 J! ~# v想要一直改变B的第一个乌龟的颜色该怎样写？？？

. `" x2 n: r, M6 h# \3 D+ C
5 v( _7 Z9 R8 L! Y! B7 B+ `globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
/ q! [2 X1 H9 J0 q. v' @. q( h  clear-all
6 W  z1 o9 v% f/ N; Xcreate-As 10[setxy random(5)  random(5)
  L6 t: B9 E' f% q* Mset color 3]
. S; @8 L. v0 F3 p* a& Z2 r0 Cset a (20)
  a4 }. P3 t. K5 w: w0 mcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
) F8 R9 K! r% B3 ^* sset a (a + 0.2)
set color 45
0 k% f9 R6 q! m; p; @]
   ]

end
! X4 x+ q( O! g4 ~/ {; M; W( x
to go
3 ]5 _& p* p9 U, p; x5 q, \# ~ask a-B 10 [set color 15]
7 S* [- s" y6 s( X# M% s- E( eend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
* F- d5 X1 R, f% g那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
% a' e: g* \4 O5 h: Zto setup
  clear-all
. i: F( I" E6 H1 \8 Acreate-As 10[setxy random(5)  random(5)
- Y  s8 I' o0 u: x3 u4 x( |; z, h" Gset color 3]

- A9 G0 E1 a1 U0 eset a (20)
create-Bs 10[
# q; T( H; }5 ?9 \. L0 H; zforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
6 m3 V: w- V, g! |- p% j$ J2 f/ ?1 Iset a (a + 1)
6 ^0 V# i8 d) Q- _set color 45
] ]
   ]

end


: @+ W9 \. w2 C+ uto go
: I+ Z: v+ h% Z3 G' H8 Pask a-B 10 [set color 15]
  O. {2 s) q5 t# \end