请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
* O# T" q2 v9 B' U5 ^A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
" n' R) r  R0 B发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
* _5 U/ d) ^" f" \

globals [ a  ]
" K/ J, P6 K( r* `+ P0 Dbreed [As a-A]  
" s4 u- v7 d1 r" f" m. Dbreed [Bs a-B]
1 J1 b, Y& P: b% ~1 ^to setup
  clear-all
  G$ ~3 x4 O) G, Z0 g/ Ucreate-As 10[setxy random(5)  random(5)
set color 3]
+ @7 Q1 B+ @; [1 p5 \set a (20)
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
]
   ]
' a+ g8 j3 b* r$ a
9 S0 w# R; V. Jend
+ e, M# R  O  V
; A" C) ]' L' z; N; E9 Cto go
: O7 G5 n7 S( o* s/ t7 n# [ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
6 p8 j3 g7 E' F* F* t" W1 X那么B分布不随机该怎样写？

wangjiajun101

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

6 ^* N& C$ c5 j: hglobals [ a  ]
2 l: C7 ?1 {/ j' w7 Nbreed [As a-A]  
% _' a  q, C, o- ybreed [Bs a-B]
to setup
0 e# e1 Q6 ^; Z2 f  clear-all
create-As 10[setxy random(5)  random(5)
, \4 i+ D" `! Tset color 3]

set a (20)
7 Q7 a# m$ s+ [3 K% b; |0 ]create-Bs 10[
2 ~! s  T1 i* D: D2 v7 w! i: Jforeach [10 11 12 13 14 15 16 17 18 19 ] [
2 p8 S- [6 {  O* h- Wask a-B ? [setxy a a
set a (a + 1)
set color 45
$ F7 m3 H! O: J4 B' b] ]
& ]% X. y( K9 S, A   ]
8 t, Z& D/ R: z
end
+ i+ {8 n. X  A3 P( Z
1 H4 _  A8 n$ D9 [3 g
$ x. Y- J. l! Y" }2 d3 k9 D/ }$ yto go
ask a-B 10 [set color 15]
* _* \2 K6 m2 |! j, A$ K! _* g3 tend