请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
! k: o7 R7 x+ j) mA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
: q  z0 j1 L+ B) H1 ^发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
/ [, h: b  p. i' E, P: \' W5 Y7 B  v得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
! q4 ?3 C& S4 @+ \- v5 V/ W

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
$ O, `) R6 ^) D& d# Z9 nto setup
  clear-all
2 P- K2 k- p% q$ A* U& Kcreate-As 10[setxy random(5)  random(5)
1 e! |( {- B3 kset color 3]
set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
+ c7 p. x5 M+ G$ W4 [5 e] [setxy a a
0 c0 \' o& {2 r, d! V% r5 iset a (a + 0.2)
set color 45
& P6 V: Z( r1 z0 y! e: \* R]
   ]
  _: H, d0 S6 O! \' Z' ~" V
4 S! i* ]) r2 P5 ^5 `end
  n: ]6 p+ c7 c* ]" R4 u! \
to go
ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
2 R8 x+ e9 z1 g那么B分布不随机该怎样写？

wangjiajun101

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

4 l/ \8 |4 x" k+ L2 V4 i3 aglobals [ a  ]
+ _! ?3 k, a- m8 W% T, }breed [As a-A]  
, c& ~4 l& p! B5 z+ a7 D& @: kbreed [Bs a-B]
! N$ K3 R0 _3 e$ }9 N- }9 m* q! k( Fto setup
  clear-all
5 o$ j1 ^6 r# t# s! p5 b' s' \create-As 10[setxy random(5)  random(5)
1 l' C0 B  Z2 Q" v- Fset color 3]
* \' G  F8 C% R& T4 I: I6 B+ [) z* |
set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
' T% Z: f7 l7 tset a (a + 1)
set color 45
] ]
$ j4 H3 `( u, t5 `; P/ \   ]

end
" |8 N# w+ \3 Z1 E, B0 T

9 X% t; o7 N2 W) Vto go
ask a-B 10 [set color 15]
end