请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
; ~+ A6 u  [/ I" i! K9 Z, KA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
- v) ^% M4 _% O% t/ S$ t还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
$ t# h/ K$ g/ M1 B# p, {+ x得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
0 I1 w4 N6 X9 G( z; a0 `& J0 U% |/ E/ g
; F9 ^5 p/ @, q- i( [6 ^" J
5 s1 \2 n" J9 U2 ]# _$ @. {globals [ a  ]
( _) B: Y+ x/ b. y7 Qbreed [As a-A]  
0 \8 Y: P  B/ v6 Kbreed [Bs a-B]
to setup
  s* m6 ~. d) L/ x% G! Y5 [, {  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
1 ]+ X7 A* R1 [2 S1 l* _9 ]8 \set a (20)
8 w# i5 x7 A3 tcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
  q) z; H0 C: e# V6 Y] [setxy a a
% M; d% P& X: S9 E: _" ]# P1 wset a (a + 0.2)
set color 45
]
   ]
9 X+ k( l! a: |1 i
9 h3 t4 m: j+ eend
3 c" X) r- S0 @/ r' G3 r. Y  g1 y% O
+ P3 y& h. j  Q3 o7 K8 k) z! w& r8 b# Cto go
ask a-B 10 [set color 15]
0 G4 ]/ Y" \1 h* \end

wangjiajun101

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

wangjiajun101

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

5 g: {: |$ m5 C0 I% ?0 ], U7 \globals [ a  ]
* D$ r! ?( i7 h/ s* sbreed [As a-A]  
breed [Bs a-B]
to setup
8 @" e) K3 z/ w. @- H  clear-all
create-As 10[setxy random(5)  random(5)
" I4 B' l4 @, g/ Eset color 3]
' j% v* a2 n& \* A
set a (20)
create-Bs 10[
: j0 h; J. d6 ~& w8 a' u1 D) ^; h9 p" Zforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
) S4 [, e2 L' cset color 45
7 {4 P& \' ]: T* _] ]
   ]
4 K& A) J/ D& C7 i
end
( Z. Z' f+ @. R/ _# t2 K

+ u- P$ z+ e0 g5 u' x3 Zto go
ask a-B 10 [set color 15]
end