请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
* a5 U* C: h  N% {# B3 ~- i# l/ iA10个，B10个
$ @9 P$ @; r4 Y3 n  L7 L想要把B的第一个乌龟颜色从黄色改变为红色
1 `- d4 H8 s. p% I( s- d发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
# q- c/ V$ S2 k, V" ~2 b5 F还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
* v3 W, R8 }& O7 ]/ c想要一直改变B的第一个乌龟的颜色该怎样写？？？
: t/ K" c- M4 w; i% D, Z

5 N( q' \5 X- i3 A1 Q9 Kglobals [ a  ]
, W  D* _; j" B6 b, ^breed [As a-A]  
4 I. G3 D2 w& Mbreed [Bs a-B]
to setup
/ B, I0 G9 J, M  U  clear-all
create-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
% b' D9 ?0 O4 P- H9 k9 M4 W] [setxy a a
set a (a + 0.2)
set color 45
. p% P$ l- w7 E8 E8 B- [3 I0 x5 ~]
  }9 e  l+ ?) C# K   ]

end
1 z: {0 M5 F7 L0 u9 a8 R- J
% j, @! q3 F% R) N) h. K% {8 zto go
+ V1 k! @% A, [ask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

程序写成如下就可以解决了：
6 }: }3 C4 q, R% N
2 E0 r9 V% o  S5 Cglobals [ a  ]
breed [As a-A]  
. i6 G( g7 O1 P4 U& U. B& zbreed [Bs a-B]
4 \! p: e4 \& n  p0 lto setup
) j9 ~, J* _( \* n5 o  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]

5 ]% }" \; u) fset a (20)
3 T0 O, B# }  \create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
set color 45
] ]
   ]

: t: \$ m# r4 G* Cend


to go
ask a-B 10 [set color 15]
end