请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
) z3 o3 {) {* P$ c; x5 @0 u. o& ~A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
/ Y/ M' g/ b2 B6 L4 C& i得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？


% V/ H0 m4 f: ?3 c! A  vglobals [ a  ]
1 w6 _2 \; d8 J* Lbreed [As a-A]  
  a& v* P5 t0 q8 Q# k3 Fbreed [Bs a-B]
to setup
( s6 ?  U: v# Y" R  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
  {0 B* w* T9 d4 o1 j5 I0 k) ]set a (20)
6 X- s4 s& y4 ncreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
: J6 S& s  A: p5 w( ^& B! Uset a (a + 0.2)
2 m1 m6 A, s2 Xset color 45
) V3 l( U# _- x7 z3 b( X1 g2 k]
* _* f+ l2 B8 _$ o" |  j* F2 w3 w   ]

) `  t# s2 w- P+ `* v7 \* ]5 p  ^/ |end
0 u: t+ j- Z) E3 l0 H6 V8 u
( Z: k6 _  d5 p8 Q# _to go
/ {- ^/ `1 o* a! \6 pask a-B 10 [set color 15]
* _$ J1 H. x) m0 P  D% rend

wangjiajun101

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

wangjiajun101

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

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
% {9 m5 m( j+ f: jcreate-As 10[setxy random(5)  random(5)
set color 3]

set a (20)
4 t9 p; R5 s! `create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
4 r% p5 r0 x, {ask a-B ? [setxy a a
set a (a + 1)
" {. g) G) X+ _$ e! l, {% U+ X* j; uset color 45
' t/ ]9 _- I7 a" k] ]
% _5 d7 Q' O) X   ]
1 q# O7 y, l/ o
end

6 ^% h3 r) h& B& Z
9 T5 K7 I, F( m( I8 ]# S1 X  ato go
, G$ |1 ~& n( X" Yask a-B 10 [set color 15]
% c. x- P! m. Oend