请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
- ~* u5 t) n$ V% v- m3 a& m  J  {想要把B的第一个乌龟颜色从黄色改变为红色
. ^( q& P" b4 o: M发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
# [; I% V  [% Y. V$ I还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
) G5 D4 v1 Z; B. g7 E$ o想要一直改变B的第一个乌龟的颜色该怎样写？？？


globals [ a  ]
" o" S/ j6 L/ B) F4 V2 \6 c* K+ obreed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
3 j( V4 M/ q0 Fset color 3]
+ ^) n4 T& K: z$ f  z( L/ Wset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
3 H1 b: F/ c8 s, }: x+ ?8 tset color 45
9 |( W( b5 R/ l]
, s8 r7 _1 @/ }# ?; G( c/ @6 f   ]
9 y5 O1 [0 A+ F. i* w
# f, G" L. c/ q$ B. Lend

to go
ask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

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

% o0 u: F2 N3 M0 C$ Y6 J( Jglobals [ a  ]
breed [As a-A]  
/ n) {: s% T1 c( O4 B9 Ubreed [Bs a-B]
to setup
  clear-all
0 \0 Z1 d$ G3 S/ screate-As 10[setxy random(5)  random(5)
3 ?  r5 W8 ^' U1 F  p5 k4 vset color 3]

set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
8 z1 R2 U9 I  g& e: Hask a-B ? [setxy a a
4 y5 p2 F6 |: C5 qset a (a + 1)
set color 45
9 ?3 u2 Q2 q4 u% T] ]
   ]
! Z* Q9 C0 n# r, y5 ?
end
. k  V8 e1 K8 z7 D

to go
ask a-B 10 [set color 15]
end