请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
2 R" G+ e* P' I( o! }5 l7 c: yA10个，B10个
; O$ U: q+ D3 O6 }7 Z6 M2 o2 v想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
( N# d6 E3 z0 v% x' e- Y" ~8 t) x

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
8 i" R9 N6 C6 j$ q+ `  \8 }create-As 10[setxy random(5)  random(5)
; A; \5 N2 W; F) q* Aset color 3]
  X8 w1 ?# `5 @( ^  f! tset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
# m. r) W& \7 |7 w" ]; Z5 `set a (a + 0.2)
3 f7 f- i& z1 E2 s. B6 k0 N" G+ |set color 45
]
   ]
* `2 `  F) {. b* n/ ]
end
/ k* |4 D* ]& B% K: [, r* I/ f0 [  m
to go
ask a-B 10 [set color 15]
9 f, S- V1 s$ y  z* a! B/ Iend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
' Z! U/ L9 j5 M( M, M9 i+ q! e! z那么B分布不随机该怎样写？

wangjiajun101

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

. y" }; z: e2 [8 a( Fglobals [ a  ]
2 w6 ~  C8 T9 g6 B9 hbreed [As a-A]  
breed [Bs a-B]
to setup
# d6 ~2 [) Q* C" j  clear-all
create-As 10[setxy random(5)  random(5)
9 U6 n+ r( Y6 _; o# I% Y! nset color 3]
! K# \& F- s) P8 ~
, B; h  v( n! Y0 H5 E# fset a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
: L3 [3 f5 }8 N* Zset a (a + 1)
set color 45
& O6 E0 w; ~7 m: d  Z] ]
   ]

end

" r9 r& Q2 W1 T3 d
to go
+ X/ `( y# Z: Uask a-B 10 [set color 15]
end