请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
6 w0 Z) B3 g; y: G" w+ Z6 A7 NA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
" G* |8 E+ s" b" `( N0 y发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
$ [2 g( T, ^5 U7 f+ j* H- e还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？


0 m% |& I9 z  V) pglobals [ a  ]
! w( E/ S" l, |breed [As a-A]  
breed [Bs a-B]
to setup
% ], K5 e& v2 N; T! J5 E  clear-all
; H# e3 L* K/ x7 M& Z0 Tcreate-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
. W4 J" D, y+ y1 G; T0 H] [setxy a a
1 D/ I# y9 O0 s0 ]$ T! a% rset a (a + 0.2)
set color 45
]
   ]

end
, t4 u/ X' p2 T! b; f
) W4 k! F- [4 ?; T& u+ W5 n. cto go
' ^- {' [7 a  t' z/ |ask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

程序写成如下就可以解决了：
+ s! E# S, X% x3 S# z
0 u6 ~( w* q' v4 X, _globals [ a  ]
breed [As a-A]  
, U7 H- V4 m. Abreed [Bs a-B]
. J) }7 A- M" W) Y$ ?4 ?# j& ~8 ?to setup
8 _3 ~9 o0 x  `1 _9 e2 J4 v  clear-all
create-As 10[setxy random(5)  random(5)
) i1 W/ o: ]: b- ]set color 3]
2 q3 J! U* V9 G% o, ]3 a
" B& |! j( j5 `& V3 Z7 Y2 h9 H7 ]; Lset a (20)
" _  A. K) N  E1 b4 r+ `create-Bs 10[
5 g) O3 X3 E: r3 ~, `foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
set color 45
] ]
+ N& W2 g8 w1 D0 i" \2 [4 i   ]

6 ~& C7 o) u6 Aend
6 C. j: B7 L  \

( Z, o( K1 A/ l, Y+ ?to go
ask a-B 10 [set color 15]
end