请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
' ~+ \, {$ n+ z$ y$ U& a; tA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
* ?! R9 e; ]( m  Z. g1 D  n5 A发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
! a; C, A' c" \* h6 U1 }$ N$ v/ t8 F还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
0 Y1 E2 l; q# Y6 q想要一直改变B的第一个乌龟的颜色该怎样写？？？

3 y0 t0 y( _: `1 {/ q$ {
9 G2 {9 ]+ j+ C( c0 \! w4 eglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
" G9 j  u. Y/ bto setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
/ D4 k7 }+ I  Ecreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
+ f9 H$ |2 q( Q, ^8 @] [setxy a a
set a (a + 0.2)
2 p" o  q+ d9 H/ t/ Iset color 45
, b5 M0 Q8 M9 x3 {8 h+ O]
   ]
* ~/ F( ?7 d! z, ~5 l
& ]& g# A8 {  Q9 J' x% X1 j0 Q0 pend
  ~" V) U- N% e# w8 \% ]* O
3 A, R) ~% P  c6 M+ y, jto go
! C; F' ]; @2 z% Z1 Cask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
$ D+ M' ?6 M9 w那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
2 p2 E8 `- c# K) C$ i& a
globals [ a  ]
) h9 q" P3 z2 V& }; Q- Obreed [As a-A]  
+ y6 A3 K0 E+ W6 V" ubreed [Bs a-B]
to setup
; N! u5 E" U; U. y- F" ^  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
7 q& s( m( g5 X3 B
set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
/ K$ d: C/ v* e- D% v1 k+ ]( N, Pask a-B ? [setxy a a
set a (a + 1)
7 p: ^% ?5 I  u8 n* pset color 45
% b  W3 d2 @: s& b8 k0 r] ]
   ]

end

6 o% P, R, X" W
( f5 P1 m4 @- F0 {! b' Zto go
ask a-B 10 [set color 15]
end