请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
# [% r8 Z3 G, Y0 b8 K* z得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
; p) ~' _# O- ~
& L  {$ m' W$ K
globals [ a  ]
9 C: a7 P6 Q3 j* b( m6 E5 M1 ]breed [As a-A]  
breed [Bs a-B]
( q' l3 X0 g0 N( Z% c7 y* O0 ^to setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
) t; l9 s! Q2 \1 k9 d' i+ G2 ?create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
: k7 }2 d5 J, {4 f' ?. a$ C, i) }set color 45
+ @& ~2 `2 E' w' m# a$ T]
   ]

end
4 h; Z- e0 B# u, l
/ u' V( f2 A" T" @5 G) t8 \2 @to go
) y: i/ u) n: T) ]# fask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
6 k& j4 b$ K, m0 }$ _# A* a1 u那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
% @% D, j+ R9 H
globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
9 _5 T7 m# x% G( Q1 t/ }to setup
% ?+ Z2 W& [0 t9 O  clear-all
8 O' `' }6 J: A2 u; w$ S1 Acreate-As 10[setxy random(5)  random(5)
set color 3]

set a (20)
, r( D' ]' W3 {create-Bs 10[
/ R8 L4 S/ B& k4 n& Iforeach [10 11 12 13 14 15 16 17 18 19 ] [
3 A) u  s" q5 o) Fask a-B ? [setxy a a
0 E7 I& U" c) C, V# vset a (a + 1)
set color 45
" k4 I0 x. T+ T. b. c; |] ]
   ]

end


to go
8 ?4 F! V/ E) u( |/ N4 M$ b) S; Uask a-B 10 [set color 15]
end