请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
+ C3 F/ n2 C2 f# ^想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
. X& l" G  f0 h. l& ]4 u还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？

* `/ s4 s! Q( f! n
3 n, Q. P. j7 x( t; A# j9 t/ `globals [ a  ]
breed [As a-A]  
, X1 b9 i( Y+ T8 |+ p% ^* u+ Nbreed [Bs a-B]
to setup
  clear-all
: Q# Q# c' e2 P4 Wcreate-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
+ _5 W' J5 j( icreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
set color 45
]
   ]

9 p6 a3 a" ^8 \# n. h0 yend

to go
ask a-B 10 [set color 15]
7 m( u/ M& h% W* n, E3 Y: P- vend

wangjiajun101

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

wangjiajun101

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

globals [ a  ]
7 Q! }- v1 \* ~8 u  P' C; K# ^breed [As a-A]  
breed [Bs a-B]
to setup
$ g% W! ~1 p9 |0 r  clear-all
create-As 10[setxy random(5)  random(5)
% T$ d( H. B# F; U7 gset color 3]

set a (20)
1 q5 X/ h+ W7 T' n5 Ncreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
. Q- ]$ N* W! M6 m/ Uset a (a + 1)
set color 45
. {3 N! x# V4 E; F2 R] ]
   ]
! Y) ^. Q. V  Z6 v9 @# P
end

7 r6 _$ ^: z( B8 `4 i
to go
; H( b; V0 i# s* t2 J! k) iask a-B 10 [set color 15]
end