请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
( K& k, O, U8 h还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
" s  i  b* |% C# P3 R; C% |4 {8 y1 d得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
0 K8 Y) c! E) o3 ^! g; L
( L! ]" S' B5 v, _. ]
2 c; p: U& o3 x% I1 A, Yglobals [ a  ]
2 M/ y/ A9 }3 B6 Nbreed [As a-A]  
4 @7 s! A% {* R& Ebreed [Bs a-B]
% l! L+ O: |: ?6 W$ ~to setup
  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
$ c  M1 y" M. K2 t: ~$ {] [setxy a a
set a (a + 0.2)
7 b: ~6 }* N" M8 ?3 j; ]set color 45
]
5 D0 Q) g4 X2 J0 b4 l   ]

end

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

wangjiajun101

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

wangjiajun101

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

globals [ a  ]
/ v, v# f( V) ubreed [As a-A]  
5 C, _% B. z4 ^+ X2 zbreed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]

set a (20)
create-Bs 10[
6 D- @( T. \& p" |" t4 B$ sforeach [10 11 12 13 14 15 16 17 18 19 ] [
* ^0 \. w. a: P& X+ l2 W  O$ T8 r1 Dask a-B ? [setxy a a
  ]+ u) b5 t  Eset a (a + 1)
set color 45
4 e1 `. Y: P$ S! t] ]
5 U' x0 F  l9 {% v2 w0 G" X   ]
5 I6 h* C0 x! h
end

: H$ X# T; M& @; q
to go
9 ~& R; P# @9 Y0 O" D. \ask a-B 10 [set color 15]
2 N( p! h* T' u( E/ E- ]end