请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
! u7 ?/ N3 e7 Q1 d2 Y想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
. a  u' M* c* E7 h$ W还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
8 M$ N5 s; B; k; o想要一直改变B的第一个乌龟的颜色该怎样写？？？


# Z5 P; `( A6 T  Q  Cglobals [ a  ]
& k' ?1 y  @4 Gbreed [As a-A]  
7 i. Y& o# a% Abreed [Bs a-B]
to setup
  H' I/ N3 m) d, t) J2 b6 B  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
# }7 I% L; [: o/ K0 C% q6 \] [setxy a a
' ?' ]( p/ S  N4 bset a (a + 0.2)
" V1 N6 a& m0 k, {) `set color 45
]
   ]

end
1 G% A) X0 n7 L# _
to go
ask a-B 10 [set color 15]
: j" ?* U7 X1 S, Eend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
1 a" I# R$ V8 Q8 M! S" \那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
breed [As a-A]  
  }9 [) D# i; j: _( W1 i% _breed [Bs a-B]
  A- [: _- }! d5 k- x* v" Jto setup
0 d2 d: i) j( O3 b2 ]$ o  clear-all
( \3 n! z0 j, x3 B3 l4 ]  e  k+ jcreate-As 10[setxy random(5)  random(5)
set color 3]
" y6 t7 ?/ X$ T, w+ z' _
1 _/ p7 |' v: s9 o* Y2 R, f3 Lset a (20)
) p& k  _' G) @% R. H; N- u. Qcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
+ o) R: z! `: Qask a-B ? [setxy a a
set a (a + 1)
2 }4 h6 a) T$ a0 E8 y, X! sset color 45
] ]
   ]

end

  G( H9 y" g# u8 [3 n7 u; n
9 E% o( C  c# r! u: Vto go
1 j/ F' a+ o7 R, g# P* V3 a$ Dask a-B 10 [set color 15]
# W: _! q9 d$ a+ ?) o/ Y% lend