请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
5 Q' X- C* f; [7 v7 y& B! z; s得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？


! b, S6 l$ ]7 r+ \: Xglobals [ a  ]
0 h) D5 O$ y+ W8 @: M+ Mbreed [As a-A]  
5 z  J6 z  j( ^& d" H# K- vbreed [Bs a-B]
to setup
  clear-all
+ p2 v' {4 q- ?create-As 10[setxy random(5)  random(5)
set color 3]
4 g/ h1 r$ a5 @2 k: A. {/ Eset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
7 S* {4 b0 ~# P% o, C7 Q] [setxy a a
set a (a + 0.2)
set color 45
]
   ]
6 l. n; k& z+ n
end

7 g9 h' ]; ]$ w& O. ], [to go
& g$ L/ s' A' }/ D, ]- P* R+ i& zask a-B 10 [set color 15]
* @: K' R9 q* r2 C" G' F$ |end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
# r$ m# h& I* g+ g那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
% P0 |6 P5 R7 U( X! H; I0 s4 T
+ A( w1 T" {2 ~, \+ `& P& bglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
4 P$ A" G& B' X, v( ]! ^  clear-all
1 ~/ W2 [7 w* O5 e- |" j7 ccreate-As 10[setxy random(5)  random(5)
3 Z  ?* C: ]3 M9 ?; dset color 3]

set a (20)
* y' X) V( c; n7 N+ ?. _. @3 rcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
9 w& {& N# \; F. I- m3 bask a-B ? [setxy a a
/ i9 ~% ?: Y$ h+ O0 M- Bset a (a + 1)
$ B! F7 d4 k4 ~0 Z9 b' R! Zset color 45
1 ]& y# c, M) r, K. V] ]
( L$ E) C. n6 e. a0 z/ D8 }   ]
. R2 _+ g8 m6 R
/ \4 [2 x3 h3 Z$ Gend


to go
. @6 }( c4 Y! I+ [$ I: Lask a-B 10 [set color 15]
7 V4 [( C1 D2 M2 v" N. V( kend