请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
( ?7 m  c6 y) ~, T) S( \* n% n想要把B的第一个乌龟颜色从黄色改变为红色
5 X* B# C% k+ R: j; q& @- ]! g发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
) K0 ~3 `% x+ o还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
+ K- A4 n; Y, b4 J得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？

6 g/ g, G" u* _8 a5 H9 G
globals [ a  ]
breed [As a-A]  
# U/ c  W& Q! M( E, P" Ebreed [Bs a-B]
to setup
  clear-all
9 U5 t/ c3 {- O* j6 ^6 g& m- Zcreate-As 10[setxy random(5)  random(5)
set color 3]
' F0 ^7 ^7 Q  j6 m- T" }6 lset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
, f$ f1 z& A. I] [setxy a a
set a (a + 0.2)
set color 45
) X; D7 N# x3 q6 Q2 J0 l/ x]
   ]

end
3 [3 N# S' T0 `$ d# @; r" c
to go
& @" P; w7 S' s3 B5 b% Z1 aask a-B 10 [set color 15]
* [8 ~! _" a6 n6 tend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
' h& {( X/ U- N' e; Q  f那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
! H& g7 M& A* e5 H9 _5 a- A1 L  clear-all
% A: H4 z0 T  L% m+ q, bcreate-As 10[setxy random(5)  random(5)
! d5 n: s0 C' ?% d2 r, ]' @set color 3]

set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
; z& q1 C, z  Y: qask a-B ? [setxy a a
set a (a + 1)
4 f; T  e' D" W6 g! Z) zset color 45
& {; D5 n* C* \2 r/ I( W* G] ]
   ]
, ^$ I0 a/ o; _  g
( d, b$ v/ L8 Vend
9 i9 r: ~5 S( w  E! `! }' t
9 z# F% h+ t/ N' A
' e. B3 ~9 M7 l3 _9 p5 rto go
, q" u% i3 f, S4 @8 h' u: `ask a-B 10 [set color 15]
! z6 M8 J" e1 ?( a1 cend