请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
) f3 ]8 v. D$ C. e- xA10个，B10个
6 C7 ~) t( i! g: F3 b# V) n$ R想要把B的第一个乌龟颜色从黄色改变为红色
# S) \$ ~2 C$ `5 I* j4 \* B/ V发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
; L$ d; ?" h( r- r还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
7 q% j) V$ U7 Z6 A# E3 C8 W! \想要一直改变B的第一个乌龟的颜色该怎样写？？？
1 F6 A& I' T( m/ P  g2 M  a
- b- ?  k5 |1 G, D
globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
6 q2 M/ F, x7 z7 }& s  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
3 ]  y4 U& y2 n, K3 ^] [setxy a a
set a (a + 0.2)
set color 45
; g4 y/ g5 _( L7 \! {1 R& l+ {]
   ]
" R* D" S: ]' o, E4 X- u5 P
end
7 A' v" C. B% b" ~- b9 E) @3 n; z
" _9 n8 @8 k$ m7 @to go
ask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

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

globals [ a  ]
  |: O% f) a( M1 w7 O$ ybreed [As a-A]  
breed [Bs a-B]
to setup
& z1 `/ e6 u: @, A$ E6 ]0 o4 b  clear-all
% y  W- T4 y/ w% p3 v  a. screate-As 10[setxy random(5)  random(5)
7 g. G* d3 J" i! E6 `, Fset color 3]

set a (20)
6 Z* w, G7 G& M+ f( Pcreate-Bs 10[
  q$ X- L5 e5 l# \2 }foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
2 G, [6 p4 s+ C2 c& A& g" r" I) tset a (a + 1)
, V0 [' N. o0 |7 m. gset color 45
. @1 t! x0 ^+ u* f( \] ]
   ]
" `/ _$ B6 q; W# Y' o
end

( i- b* d' X$ U+ i& N! W" c
! K3 w/ i& X8 W; R; `to go
ask a-B 10 [set color 15]
: ]! B9 J' H1 W, O) Y' @' S4 Fend