请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
4 t5 Z6 m9 M3 t- H4 K3 r$ uA10个，B10个
6 y" @4 f! T0 Q8 p想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
! Z; x, T; P7 h0 B$ H; r' s) i( U想要一直改变B的第一个乌龟的颜色该怎样写？？？
' }  V" G( r  w9 z
2 i4 c  x7 W: p0 D! M( s% s+ I
globals [ a  ]
breed [As a-A]  
2 k- x9 ?) q0 mbreed [Bs a-B]
5 T6 c, [9 I; w. b6 M/ b1 oto setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
. `" P3 m# O5 r4 `0 \set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
6 P; w( G! X+ S& M; g] [setxy a a
set a (a + 0.2)
set color 45
]
# g3 K7 ~7 J  w4 ]: }9 m' X   ]
+ t- R; Y4 J0 s. Z3 S5 q' F
end

( e& q, l, Q0 z* i7 X" m: W: y  Kto go
ask a-B 10 [set color 15]
/ Z2 q  e1 I9 C2 K9 F5 {end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
  D: u. ]* z2 `: D1 O那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
0 [- S1 w4 W0 e5 K
globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
, }; _' n3 u% ^5 pto setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]

" v$ S* z# x( c0 m3 y; J5 d9 |set a (20)
create-Bs 10[
( B' d! O- W  ~( a3 nforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
# Q  _1 O0 D! P4 T  _% |7 nset a (a + 1)
0 \9 j: x: T4 k; C: z7 p* uset color 45
] ]
+ d4 k: P# @4 q   ]

6 n& v  t2 J3 _end
' C9 m( m% d8 z$ u

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