请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
+ P! ?/ Z$ ^! s, ^- D+ Q想要把B的第一个乌龟颜色从黄色改变为红色
) f! @3 d) }% C4 \; X发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
3 E( [1 {9 {' e5 M; o( l, |得到不同的结果，如图a1 和a2
- X2 Q- C# ]/ V8 v. D4 m- p) E想要一直改变B的第一个乌龟的颜色该怎样写？？？

- l0 k4 q* ~7 ~& f9 n
globals [ a  ]
- v( p2 I) v. ^# [4 e1 q1 Tbreed [As a-A]  
) g, d$ x  A5 f: Fbreed [Bs a-B]
to setup
0 @: F+ @" \0 n$ u. T. ?0 D  clear-all
create-As 10[setxy random(5)  random(5)
3 |4 o0 ~+ d% v! `; c+ Q+ S& {set color 3]
set a (20)
* }, a* p( R" O. N4 @7 kcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
, A$ C+ e: u# Q- }set a (a + 0.2)
set color 45
* `4 j0 w2 s6 C/ d6 o]
   ]
' r) T% A7 q: I4 X
end
* a; n2 ^* y! A4 R! C: H, O
to go
! _- f6 [) C# q- x% ^ask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

程序写成如下就可以解决了：
0 @2 t9 s# p$ O5 z
2 G5 Z% G' E, G7 j$ x' J, Tglobals [ a  ]
* x- ^5 F% L& V2 P; E  f- mbreed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
, I) V: p0 `- D, {create-As 10[setxy random(5)  random(5)
$ Z6 z- U+ J2 |: H" Uset color 3]
7 `8 j1 v2 Q# _' n# W. O
( C' f) c0 G9 W: n9 h$ \5 _set a (20)
create-Bs 10[
! h( N: ?+ c3 n# Y# s. \" d; \foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
  o8 x0 g+ t: g1 oset color 45
] ]
   ]
$ j  e0 H* s* O
end
) c0 r" \% S  g; l

( x* F% S: ]+ _0 M. Ato go
ask a-B 10 [set color 15]
end