请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
8 T; X& b) c) X得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？

: i, ?3 `6 g  l: W  H! \" ?
; v9 r: }! v+ x( M( X/ q8 n+ O5 pglobals [ a  ]
breed [As a-A]  
7 i$ \% _5 C8 i+ U% r+ p* v6 e$ }breed [Bs a-B]
3 l' o' p  |$ z$ v( n& O5 t9 fto setup
, l' S# @9 d0 g4 r% L  clear-all
create-As 10[setxy random(5)  random(5)
/ {( P. b# w7 W2 M/ f" h" jset color 3]
set a (20)
( ]! K( L. }1 T# Ecreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
6 l, v/ R6 F& j] [setxy a a
& ]* B2 }. O+ o" ]set a (a + 0.2)
set color 45
+ @* c1 T, V8 ~3 X: A]
   ]
  ^5 C7 |1 w1 y7 c. l5 w
* ?2 l8 @  i6 j9 H2 A4 n% eend
$ ?  k) m/ J8 N: c
to go
. r9 ~: N. y! x' ^, ?! ?, hask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

程序写成如下就可以解决了：
# `4 t& o9 u' z: `( n( W7 Y- F8 X
globals [ a  ]
" }# d& @  ^' w4 X/ ]' }+ obreed [As a-A]  
6 g) {0 A9 D1 [) Sbreed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
+ V+ [8 ~; M7 R% u4 a  aset color 3]

set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
" G, c* S* ^1 Y1 Y9 Q/ x3 U1 C; Dask a-B ? [setxy a a
2 X/ R2 l" {( W0 i2 p7 {set a (a + 1)
; t" j/ H% L3 L( m( t6 ^2 oset color 45
. \8 [* W0 v" d: Y] ]
* Q, Q4 v; @9 X/ J" E   ]
  Y$ d) x+ r* n8 L
end


to go
ask a-B 10 [set color 15]
end