请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
: n6 [3 [  |) {9 X& w5 E想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
% p& |6 c7 `6 _+ S2 A+ y9 x3 y3 Y还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
+ X/ |+ Z# h0 ~+ y得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？

" Z7 ]+ M( s" n. a
globals [ a  ]
- O5 p( e) ^  J" W* {, N: rbreed [As a-A]  
breed [Bs a-B]
to setup
) ^# p8 A: h9 b6 L& B  clear-all
/ T' u# q! c7 Q; y7 Ncreate-As 10[setxy random(5)  random(5)
% W" S( b* S, ~5 w+ g, iset color 3]
set a (20)
) |% m9 k  ?6 r* p# M7 ?/ {, D2 Zcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
: |! V: Q- \7 p" t9 o) a* I] [setxy a a
set a (a + 0.2)
set color 45
]
   ]

end

to go
ask a-B 10 [set color 15]
  I  W* h0 d' ]! l- s  oend

wangjiajun101

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

wangjiajun101

程序写成如下就可以解决了：
( Q  A. v  M4 ?/ v2 M% e
globals [ a  ]
0 V' T% P: r) hbreed [As a-A]  
breed [Bs a-B]
! ~/ I9 v  R% V" @: {+ ~! a; C  eto setup
  y8 s2 V( q; k3 _  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
  T( }! W5 R$ \! ]7 z
4 @7 R% ^# w) h. Y5 d* \set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
1 i, [: V* J: j9 c2 q' R/ t  ^! ?set a (a + 1)
2 f- r8 j, I* P6 [3 m& kset color 45
] ]
/ E- c- ]2 Y/ m) C/ ^# H( ^  b& h   ]

  g6 T1 m; h9 `, i7 v& p+ Cend
+ _# [1 B3 E) b$ D
3 H# `  K; K' n! c. |7 H
to go
ask a-B 10 [set color 15]
end