请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
: s0 X! j8 x3 gA10个，B10个
* K* \" M% F; f7 s) H3 h, q想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
2 `9 S: W7 q9 Z5 b7 n0 C9 H0 u还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
* S8 Z  s8 ]$ `8 q( r$ [3 W

# b! }- a+ z6 B; F% z% i& Oglobals [ a  ]
- J$ {1 J: f  G! P( |breed [As a-A]  
! z! A9 e, x9 y0 y' ?breed [Bs a-B]
to setup
% A/ ?6 E  K& }% [4 n  clear-all
create-As 10[setxy random(5)  random(5)
* R- `, o, ?! H8 fset color 3]
- `. N$ z8 M7 Mset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
2 ?$ v! U1 L# B5 T. S! T$ u6 ?/ |] [setxy a a
set a (a + 0.2)
& l! l# V+ ?( M" A1 h: n# Pset color 45
6 ~+ D. h; T* N]
   ]

9 G! X0 O7 A* Eend

to go
ask a-B 10 [set color 15]
/ ]7 q* l$ S+ {& Uend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
) w4 c( I, N* r/ F$ F% n! }1 v7 X那么B分布不随机该怎样写？

wangjiajun101

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

4 Y) H% `" T1 z0 a# ]( tglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
& D8 o0 n4 t! w; m- j% ncreate-As 10[setxy random(5)  random(5)
5 T" w: h3 f! j, [set color 3]

$ X" D/ j# b8 rset a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
2 g' c$ A* @) M" V1 v1 e$ N- rset color 45
] ]
5 }7 F0 t9 b+ h8 p4 N   ]

8 a' }- p& i6 a' |end
/ u7 o3 l4 {* h  a1 N  B7 j
+ f, l# Q+ M# D( P; l1 p, A) ~3 H
, j2 p5 V4 W+ m& b# j7 fto go
% N; c; |5 M0 W8 E  E" ]ask a-B 10 [set color 15]
- b- N0 T$ A9 p/ f2 dend