请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
9 Y+ `& E! ]/ G* X还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
7 W% E5 a' B. d5 P' s6 X, L) {想要一直改变B的第一个乌龟的颜色该怎样写？？？


globals [ a  ]
; G+ Z# V) \0 j: h% ^  D5 P5 ebreed [As a-A]  
breed [Bs a-B]
" V  V& }0 j0 w6 [' Vto setup
; R4 i0 |) p' q  y! ?  clear-all
  @* `; C4 }7 r) f- [create-As 10[setxy random(5)  random(5)
) l) {/ J! I; C& d6 j% E- e! |set color 3]
! k9 m; w- d& R$ ~* }4 D6 q8 vset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
1 _3 \& F+ h9 ~$ Q] [setxy a a
set a (a + 0.2)
+ W2 M9 h) @0 Z: q6 s. \' Nset color 45
: s! `7 j5 _0 b; R7 o]
   ]

end
% J9 `% Q! N0 z) i! f
5 h) g; l# _! H4 |1 ^3 F6 @6 {to go
% b' k6 m$ ]7 N( ~ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
( T1 d1 B. Q+ J那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
" Y5 X( M7 J2 x8 k1 J
globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
  ?, V, D0 C5 Q& S  clear-all
create-As 10[setxy random(5)  random(5)
* E& J7 \" L1 f* A% Wset color 3]

6 Y  v8 e% |6 P1 O2 _set a (20)
create-Bs 10[
) }! ?- X) Q/ f/ ?1 c  Bforeach [10 11 12 13 14 15 16 17 18 19 ] [
# s# {2 ~/ U1 u2 N. A7 F, w, X+ X( Nask a-B ? [setxy a a
6 M- R+ P, a9 w0 |$ H7 D, T" xset a (a + 1)
set color 45
2 _# a% b! E# E0 w0 @] ]
/ r& w3 O* Q0 l5 |. E5 b7 S   ]

end
, j* g: b1 X2 X: W  p% \6 d

6 V/ ^9 o; Q5 g$ m3 d! O- {( {3 S) D4 {to go
2 D1 a7 B1 h4 bask a-B 10 [set color 15]
end