请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
7 C' H. a% i1 a1 xA10个，B10个
! ]( a3 T: t6 i  h9 U( w1 @想要把B的第一个乌龟颜色从黄色改变为红色
  v; F8 n# U* \  P8 _发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
  S# w# ~8 E( L8 n还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
& \; ?4 @3 u  X; L% P: ~# a1 _想要一直改变B的第一个乌龟的颜色该怎样写？？？

1 S5 \* o+ t4 D5 a4 x3 a
  e. e. F: z3 m. P$ C1 r% dglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
1 i8 v& o5 U( F+ W( F6 nto setup
  clear-all
& O7 X0 [% W1 c; d+ q# l# S! G5 Bcreate-As 10[setxy random(5)  random(5)
- a" \# D  T0 ?- \% {set color 3]
, B" N; w' y& j0 c/ yset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
! E8 S* X+ p5 k* K8 W' Dset color 45
$ m* h& x$ Y& U- C- q]
   ]

+ M( S! ?2 B9 {2 J# M, tend
, I# H' g# `( n4 b
to go
) N& C6 h$ r# [0 c% Uask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
$ o7 `8 S1 {  _* z8 {  V那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
2 E- q! ^) N" A$ `- L8 tbreed [As a-A]  
breed [Bs a-B]
to setup
: h; v; P, @, i8 S$ L  clear-all
create-As 10[setxy random(5)  random(5)
+ J3 L$ w% M/ g$ W1 ^set color 3]

& [3 d& w" U2 F" Z0 C. \7 uset a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
; K' K# v* e1 b. Lask a-B ? [setxy a a
1 N6 o1 Z- w6 l+ q9 w  I8 c6 Zset a (a + 1)
/ V% Q& Y1 p6 xset color 45
] ]
. F* m7 j) X' k) p   ]

1 a$ ~! R2 b4 cend


+ c* G2 m3 C' \to go
ask a-B 10 [set color 15]
end