请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
) C8 J- R1 A+ U5 P2 i4 v& ^A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
" r- {/ ?$ J7 }1 m发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
3 ^/ ~4 o4 }2 p! J, c; N) b还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
, i0 m/ ^, x4 o0 c想要一直改变B的第一个乌龟的颜色该怎样写？？？


globals [ a  ]
2 K- f2 q$ g0 Sbreed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
- r5 v! U' ~/ ~) jcreate-As 10[setxy random(5)  random(5)
set color 3]
' K4 p1 E, Y: M! Z9 Kset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
% [& w4 c2 f0 k! A: F: kset a (a + 0.2)
set color 45
. }+ c2 \5 p5 b/ [/ G: z% t]
. Q- u$ e4 v. ~( z+ a! S   ]

* z  h  }( n2 S2 x9 Gend

to go
ask a-B 10 [set color 15]
7 u' M0 ~2 H: J* n3 n* zend

wangjiajun101

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

wangjiajun101

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

# H' h& l! ?8 Fglobals [ a  ]
2 O3 b9 w' z7 Pbreed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
& Z; `. N6 ?0 `3 m# Ycreate-As 10[setxy random(5)  random(5)
set color 3]

set a (20)
8 `+ y6 D8 l& @% l9 H2 rcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
1 E$ G1 k+ E5 k4 G  Eset a (a + 1)
set color 45
] ]
; y/ ?. V  T$ a. R- x  ~2 @   ]

end
5 ?3 K( D: [9 Q. x5 _! s* u

. k8 A8 p* f+ X1 {. Pto go
ask a-B 10 [set color 15]
end