请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
, n  E, b, N( O& R. V* c$ s; [A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
' E, L3 V% k( q( ^' p8 ?& e发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
7 r7 h- K& ?5 L# e; W0 ]得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
4 W/ z7 r& _5 t' }5 M% t* m1 {

( b$ b; Y1 ]# _" ~globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
2 B& }* y: J* t( M. v8 Jto setup
  clear-all
  o5 A% _, ]! P. J; q) ncreate-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
5 ^! \, |! p  x* Dcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
6 d0 |  @0 z8 e9 I( \7 \$ z] [setxy a a
" q- K' |( j$ n/ Y* U' Kset a (a + 0.2)
set color 45
& i1 ~$ U7 a6 w3 v# [5 ^9 X6 J: R3 Z: H]
$ I7 }' `3 C0 o1 u6 {   ]

end

to go
( m1 n- C$ r3 _* ~ask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

程序写成如下就可以解决了：
! T! f* g5 S1 \0 P! M: p
4 S- t& A, W4 t0 s& z, ]8 Jglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
# s. [& n# V! K+ `: k) yto setup
% n1 }& V* E+ a  d, V1 m" R: Q  clear-all
1 x" @8 I) _/ S, \: a9 J+ gcreate-As 10[setxy random(5)  random(5)
set color 3]

( a5 }* t9 V. ^6 [/ e& w  y: L  cset a (20)
6 u, ^# U5 \  }, Bcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
& y9 e2 y$ l( O7 Iset color 45
8 d  |* ~9 H, g  S  [* _5 F, Y7 t] ]
/ k- \5 b: S; [+ ^: ]) x   ]

end
2 k, g/ z2 r# h, ]; v, A
, W" q, k% d; R1 b7 _
0 W( {4 f6 g4 z) ~* X% {# Jto go
/ }5 }# F+ l0 Q6 ?3 ?% p6 [+ Pask a-B 10 [set color 15]
end