请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
/ S7 @% {; N4 ~: o2 E想要把B的第一个乌龟颜色从黄色改变为红色
5 u7 q/ @' w$ c: q1 j$ J: j发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
, J" w7 K& {$ g/ d得到不同的结果，如图a1 和a2
$ T8 ?1 `2 p4 i* y想要一直改变B的第一个乌龟的颜色该怎样写？？？


globals [ a  ]
% K1 c; q: _8 `& b# z* obreed [As a-A]  
* s2 p+ E, {1 \8 ?: nbreed [Bs a-B]
) c: ^/ O# l( J5 a; j+ K: Mto setup
  clear-all
3 ?9 I0 d/ g9 j9 p7 Acreate-As 10[setxy random(5)  random(5)
set color 3]
) r+ l, r/ V( K" m- gset a (20)
1 @- K* N! c$ p9 Ecreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
" d4 ?% |3 {9 |  ~. x- u# ]] [setxy a a
set a (a + 0.2)
set color 45
]
   ]
- A& v1 ]( M, F+ @8 s
) s# U- W( N) i6 Q+ T2 x. q* G3 rend
- |" [. y' ]5 J0 N. _3 k
: C- B/ m% s. ~# mto go
ask a-B 10 [set color 15]
1 z5 t& A) v6 g( J* T. \* O' Bend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
$ h: Z- r- r  A" a那么B分布不随机该怎样写？

wangjiajun101

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

4 t/ k* V( y6 f+ Z9 j! f2 Lglobals [ a  ]
( P# J; R0 ~) K: Mbreed [As a-A]  
( g1 M6 M& d( |! V+ gbreed [Bs a-B]
to setup
, d9 W1 e3 w5 Z! P7 B7 Q  clear-all
6 F7 b+ F' W0 Xcreate-As 10[setxy random(5)  random(5)
set color 3]

% a: Q1 H4 d! e/ C( ~7 yset a (20)
create-Bs 10[
% y/ n% Q2 D9 U' }foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
0 N) ^  h$ \% t. B" mset a (a + 1)
set color 45
] ]
4 m9 r, Q4 e8 I6 @9 q0 e& a   ]

end

* S* y6 v7 z- C" l
/ s0 C8 {# k, C  sto go
ask a-B 10 [set color 15]
end