请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
1 M- v# }: m" v( Q: y7 E3 ^A10个，B10个
: ?& {& l1 s$ ?9 K想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
1 A+ @; j' L. w2 B: z- `还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
  `# e, n3 R2 o* o0 i8 G

globals [ a  ]
breed [As a-A]  
  d# A) D# y. E) O" rbreed [Bs a-B]
to setup
( f+ t. V7 m) \  clear-all
create-As 10[setxy random(5)  random(5)
1 L# @7 y  U/ N. y6 z, ]* Aset color 3]
set a (20)
" H4 F: ]1 w5 H8 kcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
' M$ ~2 h2 w7 S5 Y0 F+ ^3 q" Qset color 45
: ~6 O' J2 z, e6 j. p]
   ]
: k% J) R& r* T8 A  `8 w
; X. G* A- b+ C/ t4 F# `' l% S5 oend

to go
  F. I) V3 a* ~% z: E. o7 Jask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
. K/ V6 i) ^1 l+ t1 s那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
) H1 m1 C2 [9 T
globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
7 h1 i( V3 D- k7 O4 Dto setup
* _5 D, M8 D8 c& Y  f  clear-all
6 M0 u4 ?+ ]6 j9 w0 Zcreate-As 10[setxy random(5)  random(5)
6 M$ s9 s* `6 H; Z' u& [1 uset color 3]

set a (20)
5 e6 W# n; X) Q+ vcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
2 t/ j+ s7 X6 K+ b2 Wask a-B ? [setxy a a
set a (a + 1)
! t# h& f2 ~2 Y$ ?5 u9 ~set color 45
0 h$ `5 l# I8 _7 M+ i2 l6 s] ]
   ]
2 L2 Z& _; E) }  F  [/ V) W/ Z
end


to go
ask a-B 10 [set color 15]
7 l$ e* u1 Z  A! x  _end