请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
& r1 ~3 U( ?. j$ x8 j8 M, ^A10个，B10个
! B$ M3 T( K* w7 e7 Y/ z8 O4 u想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
# |% N3 M% i: E+ M6 t  l8 R8 i得到不同的结果，如图a1 和a2
9 K$ @4 _4 Q+ ?1 u想要一直改变B的第一个乌龟的颜色该怎样写？？？
) n8 k0 k+ x. _3 v5 }! X+ T

globals [ a  ]
9 W9 |/ R# v$ ]" E7 i5 u; q& tbreed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
4 ?9 |1 P3 Q. z  E) acreate-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
) P6 h8 C5 o/ N( \# }create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
% B- F1 |& T1 ~5 u# B/ `2 h] [setxy a a
set a (a + 0.2)
9 `! `9 X9 L5 D( m2 iset color 45
]
   ]
: G3 F: s7 n7 _8 z4 D1 p$ r
5 K" ]0 f* g. n& z! nend

0 W4 o8 O) T5 H5 F! Sto go
( I% P2 m8 I  C6 Kask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

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

! O+ v* g5 R0 t; yglobals [ a  ]
breed [As a-A]  
9 G( g& Y) A7 k) }2 z: gbreed [Bs a-B]
to setup
; L  }# F6 ?3 y2 ^& m' V. }  clear-all
: k+ C/ ]+ Q- fcreate-As 10[setxy random(5)  random(5)
( F  F8 L& R% p% V4 \3 ~set color 3]
1 [' ]2 k3 i; ]: W2 }% ~0 ~' [
set a (20)
2 G" ^% L& |7 u! ?9 Ncreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
5 h! a  n# `$ yask a-B ? [setxy a a
! P" r6 \4 |* r# s8 H2 G7 T4 oset a (a + 1)
3 e4 X, X; c$ {+ C: u: rset color 45
7 L) z; j& A1 G/ x6 z] ]
   ]

end
7 `1 `+ G6 M! |- [' @7 u
% F( {& V. Q! g2 I5 T+ Q$ J. G
4 G: R, }6 ?: S! H4 C; t0 |to go
ask a-B 10 [set color 15]
end