请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
7 h. p3 n; ?2 }" v. wA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
* y) }* R6 C3 l9 B8 b4 n' D, L9 {得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
  F2 E  G- x5 \# j# h+ p

/ ]0 Z3 ]2 f* N; Oglobals [ a  ]
6 K4 I( o  ^  ]4 [3 i5 i8 N$ U- |breed [As a-A]  
breed [Bs a-B]
to setup
/ r& z; U7 h$ }. E0 H$ P  clear-all
: @$ K) g' I* ?* }$ g" n# V$ Ncreate-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
] [setxy a a
+ z- L, h, S$ D# T1 H' B$ r  \set a (a + 0.2)
# a: Y$ D1 w0 W$ u- lset color 45
/ m& Y" W# E- ]]
   ]
8 z1 l( U( W# O) {3 ~
end

. i! a+ ]- s  z( V  U' j% ], Cto go
' d, }$ ?7 d- o' B4 t1 E7 ?) fask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
. |, ~; q/ ?4 B  j4 [那么B分布不随机该怎样写？

wangjiajun101

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

* E& x) H* x" f* q, wglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
4 r/ ~* |% f& Y1 H! F  i% b0 D9 l
: y7 s/ q, _, K3 _* jset a (20)
& K" c" ?6 S2 W/ _create-Bs 10[
0 `* B6 j' p# W% Xforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
set color 45
] ]
   ]
# F4 R& g- B6 g# s! ]# |) Q
0 R( c# L) u/ y$ Oend


9 F! ~* b3 I4 V' i$ H6 o+ k8 sto go
ask a-B 10 [set color 15]
/ G; H% r; `( Q4 eend