请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
$ g7 ^. m, V# N, x" C3 j" M0 B- C. U还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？


globals [ a  ]
) G( c- V) o/ X/ s6 F; Bbreed [As a-A]  
breed [Bs a-B]
9 q. o0 h* I4 Vto setup
: N4 i% ?% ^( M# s0 [& o$ X  clear-all
6 @1 H% y, D% ~+ V6 Z& e3 \' dcreate-As 10[setxy random(5)  random(5)
# F; q5 L6 `8 w8 Bset color 3]
set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
2 p7 X5 Y" D, j] [setxy a a
set a (a + 0.2)
0 E' ?$ x7 l9 m! b/ z2 c/ ^set color 45
]
: s- }1 y& m" n) W" D1 M# L- C5 j9 f4 _   ]
6 Q" O% r, i; u" s* K
end

% {9 x! I9 C6 G3 ~' ]+ O. yto go
ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
) {8 W( S" i4 Y那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
& \: Q% J9 C! m4 N
globals [ a  ]
; c; u2 ^$ H7 V$ o7 X# L- Ubreed [As a-A]  
breed [Bs a-B]
- ?; R/ K/ l: {# l- r- eto setup
/ `2 Z5 Z$ ?  D+ Z* T8 i# n! w, {  clear-all
9 e- D7 e+ \' n; y1 Tcreate-As 10[setxy random(5)  random(5)
set color 3]

4 n9 s' t) Z# Z' [; _- mset a (20)
" {7 A* S3 K/ O( t! y7 j' v( Jcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
- \) `9 x- @: w( @. d* X1 Yset a (a + 1)
set color 45
9 L6 S$ v- \, F3 q( N8 u( @] ]
   ]

end
9 D7 k! S8 b3 [0 L+ u. b# P3 f8 _  F
1 \9 r. ?+ c$ G. o0 o6 N1 A! \
to go
ask a-B 10 [set color 15]
end