请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
# r, v! Y0 y( e8 M2 U  H4 z想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
3 e/ L+ h' Z5 c9 J' {7 x* v还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
! S8 b/ |0 A) ~得到不同的结果，如图a1 和a2
! [" S! l/ W2 h5 o2 R0 p/ D' b想要一直改变B的第一个乌龟的颜色该怎样写？？？


globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
. v0 a  m0 P7 K1 L% p+ a$ kto setup
  clear-all
7 O) h/ F9 t9 m6 L* h, u4 Gcreate-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
& {$ Q8 P$ \8 O. e$ ~# m+ u: m* F] [setxy a a
3 y% Y( I: S$ r0 F4 U9 y6 Cset a (a + 0.2)
& R7 h; _4 l* P$ sset color 45
]
8 M, V" W" r/ K$ U   ]
& l9 y" @5 F/ ]& B. {; f
end

4 S5 T6 b, l) y2 T: Uto go
ask a-B 10 [set color 15]
7 C1 e( g0 e8 A. X" L& ^end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
4 m6 {( i3 a. Y; ?* P5 R( Y那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
$ |5 L; ]* b, T, X& Y4 \, ^6 Wbreed [As a-A]  
breed [Bs a-B]
to setup
* B3 }/ q% _, ^/ P; Z0 L  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]

set a (20)
create-Bs 10[
% s+ K/ A5 M! E4 X7 g) @foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
/ i3 ^- Q/ ?/ N9 q8 q0 dset a (a + 1)
set color 45
] ]
1 L) J( t) x; d0 _   ]
0 f9 H% ~( u7 z# N, Q" u4 c
end

: G& c3 D, Y5 Z$ B9 x
to go
ask a-B 10 [set color 15]
/ v" W# K/ b" Q  ?4 J2 Send