请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
( @) G* O# g: ~# c得到不同的结果，如图a1 和a2
( F% [4 N* v" c8 I/ ?/ \想要一直改变B的第一个乌龟的颜色该怎样写？？？
$ w; Y& P8 d) h! {

0 p' W7 i, o4 I. H, U" }1 C6 Nglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
' m* Y% J* J! e  H4 ^- `to setup
  clear-all
( d' y: W* k7 s1 A  }$ ]create-As 10[setxy random(5)  random(5)
  W9 c3 f' Y/ gset color 3]
0 J7 G$ |% g. R  o! _! K. X/ i" sset a (20)
3 Z, _8 z0 Q* ~: c# S4 m- Bcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
5 M; M3 Q2 q; t' }  pset a (a + 0.2)
set color 45
]
   ]
# [0 |! B) ^$ I1 i. _  M6 K
) h6 [% n, y/ S  Oend
% m, T$ c! y! H1 h
to go
/ M5 @  N7 U  F7 Z) W$ pask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
  e" G6 f' F* W# R$ d那么B分布不随机该怎样写？

wangjiajun101

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

) r; o. `5 }- [6 g* h* bglobals [ a  ]
breed [As a-A]  
1 P& C, r! h) ]8 R) I' Nbreed [Bs a-B]
' b5 r0 G* ?/ m( a' D9 v) Uto setup
, E( Q' p) v( @( X5 r  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]

set a (20)
% |& \7 Z* P* U" z2 X2 Rcreate-Bs 10[
! s) Y) f% H# d4 v9 nforeach [10 11 12 13 14 15 16 17 18 19 ] [
+ |4 c0 ~' L. i6 {& Task a-B ? [setxy a a
6 i5 f, @$ ~( f8 s" H4 ~" \0 Wset a (a + 1)
' ]  i/ S# i: V1 M' P+ m6 ^set color 45
] ]
2 @( L1 r6 i: x   ]
3 V! \8 X  G) d- r4 T  r( f4 j
end


to go
. D6 j$ @. @5 z2 u$ a9 h; Task a-B 10 [set color 15]
end