请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
2 {& J: |% l% \5 L6 Z2 QA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
7 c4 B! O/ v; Y得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
- Q  \% ~% s4 d- i: b
8 g- I3 k% J( t
2 Y- }# e. d, j  C1 y3 j6 w: _globals [ a  ]
breed [As a-A]  
9 N6 ?* g/ ?  S5 Y6 P+ P7 j4 Abreed [Bs a-B]
to setup
7 l& X, I2 D0 k. q  clear-all
0 L: Z0 F8 ?" s) o/ ^1 R* }9 kcreate-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
5 m" }+ @' u3 k$ F; U] [setxy a a
set a (a + 0.2)
  r. A) M2 {* q% a# Rset color 45
]
8 S' }2 @; o1 V' b2 s* a5 `   ]

$ w* k! @8 b0 G/ v" gend
% E2 B. e" N5 a2 O
% ^2 i- I5 I8 n& U8 b7 vto go
3 t6 ]0 U: `: M8 N$ r; D1 Rask a-B 10 [set color 15]
4 Q5 f3 l1 z& wend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
3 G- \3 V& \. y  ?' k( P% K; @那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
6 R2 }- d; S4 bto setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]

set a (20)
create-Bs 10[
, o) W! l) E, N# Z+ B$ f8 ]$ {. M3 U& ?foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
6 e# a, v/ u9 xset a (a + 1)
; S" Y6 L, W6 \* g0 s- cset color 45
- ]5 x% p5 s6 O* ]  f+ C] ]
- V% l  O( [2 L, `6 F; {! z   ]
) B# n& B0 t4 C. [. ^8 r
end

: g' W" X9 E4 a) o. z/ u
1 F# l- n5 o: X$ R+ ]8 m& y2 z. Nto go
, z6 `4 R/ U6 eask a-B 10 [set color 15]
end