请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
) y/ n1 Y- p8 [% D* v; H" D想要把B的第一个乌龟颜色从黄色改变为红色
% t* j1 B- ^$ c7 P/ B  V, V! E发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
) s$ b3 ]0 |6 ?% R, j3 w5 J/ u还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
# M3 l3 W7 c( I  B9 p1 j" \" i得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？

" x, G" E( a( Y# b
1 `1 y' E0 Z2 O5 }* j7 eglobals [ a  ]
! ^+ a; P0 t$ b  P; M, Hbreed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
9 S  v9 A) {- K" i3 P* zcreate-As 10[setxy random(5)  random(5)
set color 3]
8 E; M7 Z) Y# a" yset a (20)
+ e1 C8 F4 L) a( {( `% Pcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
+ V  |7 `/ f' L3 z9 Aset a (a + 0.2)
+ d' S& R# V) o. A$ ]8 eset color 45
]
   ]

end

6 ?6 f* S% d- \* Xto go
ask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

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

0 d+ L! ?5 P* }7 S* F. Eglobals [ a  ]
: F- o) T; g. e: b9 ?breed [As a-A]  
breed [Bs a-B]
7 M' g# d" U& Eto setup
% p, X  j) x' e& p0 k  clear-all
. Z3 L/ S4 }, b. s5 U' H) dcreate-As 10[setxy random(5)  random(5)
2 {4 K* W; D$ u% r+ d; a8 V' @# X! G4 Bset color 3]
9 [6 S* y0 l8 o8 W8 e
, r5 Z9 ^& A5 c6 @set a (20)
create-Bs 10[
$ a8 o% f9 M$ j2 n% Z( \& jforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
set color 45
; Z" b) l9 D" ~8 K+ ~$ h] ]
   ]

end
( W% r1 L; ~/ }4 S, ?; G, W* X
6 {2 [8 O1 v8 O) g6 X. A; j) E, D
2 u+ I% g9 G/ Gto go
ask a-B 10 [set color 15]
end