请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
" t( ]4 d0 Y; ]+ F( L' K9 R6 D& A4 vA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
# K' B0 b! ]# t. a/ {发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
- e0 z$ X4 F& ~3 q还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
) F$ z% o2 b2 P1 p7 n% V5 C+ X

9 F: Y* c7 w; Yglobals [ a  ]
6 K/ k9 c# Y9 P5 v' w3 wbreed [As a-A]  
breed [Bs a-B]
- m3 `' B& a+ `4 Kto setup
/ ]2 X7 F' {2 @  clear-all
) I, U2 g, c5 C' e/ T) _create-As 10[setxy random(5)  random(5)
6 Q  q# x; y5 Z9 O  q& U6 U3 uset color 3]
set a (20)
: q6 i: e: \) s! L7 \" H3 @create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
set color 45
]
   ]
7 j  Y. G/ e% S5 L5 {" C( I; y
end
; t  t/ s3 y4 A) _" {( W& p
to go
ask a-B 10 [set color 15]
# L3 O" F4 q; Gend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
; s. P6 ~/ B4 r那么B分布不随机该怎样写？

wangjiajun101

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

2 [& d" X0 ^0 nglobals [ a  ]
4 o' h( t/ [- b! }2 [! @+ a! O  jbreed [As a-A]  
breed [Bs a-B]
% u" r. \% P: Z8 K( f1 Dto setup
  clear-all
* v3 s2 y+ o' r( @7 y) S) L- O+ {create-As 10[setxy random(5)  random(5)
set color 3]
4 q2 x+ f% @4 i6 w% M
, U+ I  ]$ x1 v9 {8 F+ h- Gset a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
+ h0 E5 u5 N8 _% O* o) sask a-B ? [setxy a a
set a (a + 1)
! u' g( u! v2 Vset color 45
] ]
" `. R0 n+ o4 x* l8 H' L   ]
5 j8 [9 C" X4 z( B+ d( w, {
end

5 h1 s1 M5 e- k( I! N
; [4 S0 w$ f$ a3 O3 Fto go
1 K* y) X" N4 X- P" r+ ]2 q3 Bask a-B 10 [set color 15]
2 i% F7 v: t" q% I; Q- eend