请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
; m6 ?: S  F" G  {& {. }3 o/ e6 ^发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
( d  w  v2 ^7 t/ W6 f& p9 R想要一直改变B的第一个乌龟的颜色该怎样写？？？

- l6 k+ r# s6 x6 Y  Y* N/ N
globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
9 W. N; H+ Z0 t& M) D% z* n7 rto setup
  clear-all
; K1 M4 H& |8 u" \  Tcreate-As 10[setxy random(5)  random(5)
set color 3]
& |7 L! ?& V5 H. uset a (20)
8 n7 P* d, {! @7 hcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
) ?1 i1 |2 S$ e, M9 a0 T% eset a (a + 0.2)
set color 45
]
& V4 T' w1 w5 a% w2 a   ]

% _5 J2 n" I  r& P. T8 o7 ]+ Wend
. v/ [% Q( N- i3 P6 D7 a" O
to go
ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
  g: b, K3 U2 D那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
. |- _2 J1 v' W/ @, m8 z
+ B2 V0 b4 N4 l  Jglobals [ a  ]
, D: @, K( H% ^- B' R- vbreed [As a-A]  
3 G, O) X0 {. d" V/ w: H1 Xbreed [Bs a-B]
2 |1 j- I. @4 Q' j1 a! v6 @+ F: ?to setup
1 {7 y& B/ ]) u1 e" l2 j- H  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]

set a (20)
7 F* p( s6 k% f$ p5 f( V' F2 c4 v: ucreate-Bs 10[
2 ]: q5 r; y1 u# _# |6 _0 wforeach [10 11 12 13 14 15 16 17 18 19 ] [
3 A( W0 t  U7 p  q8 |# fask a-B ? [setxy a a
0 G1 Z$ i5 ?  G, c0 y/ y8 Bset a (a + 1)
set color 45
" P1 [% c* ]# e, t/ U8 S] ]
   ]
  P! X/ T- ^2 a; _) J
end
, x; e% H- _" d3 N1 u
1 ~4 a# |& \, S- ?
to go
ask a-B 10 [set color 15]
5 z, P. F3 m# h/ L$ hend