请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
3 `  Z; u, O: ?" K+ zA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
# z$ x' I0 U# d* U# q发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
  C; ^: p% W4 w, F3 C4 k想要一直改变B的第一个乌龟的颜色该怎样写？？？


6 E% E3 R/ T7 B9 M1 d9 Eglobals [ a  ]
breed [As a-A]  
6 a7 G0 e+ n8 C) k0 R6 P( `breed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
# [  E7 Q% Q, ]9 h% E; m5 L3 Vcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
+ q* m5 e1 h! R1 T% n" Hset color 45
0 _* T8 O  a  V8 y: y4 ]: C]
   ]
( |- t0 q$ G$ h4 l: t4 c
end
2 I2 S& {$ P5 ?, f  N9 ?6 F
3 I7 |- ~+ i. k; m% O8 Gto go
2 Q: u- J) B: T: w& |+ Yask a-B 10 [set color 15]
, G! i% |: Z2 W. p& tend

wangjiajun101

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

wangjiajun101

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

globals [ a  ]
/ t+ |( z; M9 j$ P& L4 pbreed [As a-A]  
+ a) d. }' f  z: U# Qbreed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
2 t! f+ ], s6 h# Gset color 3]

set a (20)
3 T9 Z$ {) i' [create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
& B$ Y9 C0 m2 q" F. O* @8 aset a (a + 1)
set color 45
] ]
   ]
+ x# D+ E& S9 k: I) c- v
: z2 c$ J9 d; Qend


! U# p) O! {3 f0 kto go
( m" T. A6 g' M/ Mask a-B 10 [set color 15]
end