请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
1 a! z" y9 s' `3 _, Y9 D0 d得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
9 Y$ B: U; B; a( d

globals [ a  ]
3 J% i3 B6 Z0 U8 _breed [As a-A]  
( p  s6 u7 f( d6 D7 P/ B2 Ybreed [Bs a-B]
. C9 W# T  Q: Y* `- n! `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! U6 J% x8 I8 P3 h: C. T- [] [setxy a a
. @" |* a! V4 O/ \set a (a + 0.2)
set color 45
0 B3 s9 k) G- n$ H! S5 q) Q* q]
   ]
0 _/ q' K9 Y2 _8 s0 K/ r
end

to go
( W3 G2 Q! f3 X* Z- |" B* ~, k/ Cask a-B 10 [set color 15]
2 w2 Q* g! e' M# S! ?2 A( D% s2 lend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
4 D7 r( A9 I& h* c那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
breed [As a-A]  
" `2 T9 I0 T' J- zbreed [Bs a-B]
5 f) C- Z0 a% C% g  S; P0 ^to setup
  clear-all
% I. x. M& x( _/ p. [2 }* Ocreate-As 10[setxy random(5)  random(5)
set color 3]

set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
* R( H$ v" ?6 [$ t; \: n2 S$ Y" Tset a (a + 1)
) c, h/ v. H, x6 R* e0 t; ^+ G$ Oset color 45
4 f- |* R6 i  b1 T" h% U$ C3 G] ]
( u# W7 V& \. r  q8 G  d   ]
4 F. I, \- o, Q+ Y" j* ]$ i1 Z
5 [" ^7 `0 v5 Z# R& |end
: q! f  A$ ^  G% `
( P  |7 r( H* z4 T8 q& e3 ~
' `+ _# W% b* }! i2 q* Nto go
ask a-B 10 [set color 15]
end