请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
) D0 W: B9 _9 L9 tA10个，B10个
7 q5 ]9 K4 `7 |. z* K2 c5 V" l0 P想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
' Q1 V; u; `/ ^还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
. z- O% {1 N: ]- e想要一直改变B的第一个乌龟的颜色该怎样写？？？
/ ~6 O* J! w: r& ?& t& j

! x9 {. S, D1 {" G: H' H1 P$ cglobals [ a  ]
: N3 r: c2 R( ~1 }% u7 C  C; }breed [As a-A]  
" z4 l+ @9 J* g9 D# J0 Qbreed [Bs a-B]
to setup
7 C' e- f" l$ n  clear-all
( G5 k8 y+ Z# N" g: W4 ucreate-As 10[setxy random(5)  random(5)
+ D  d  }! I3 ?7 Kset color 3]
. N+ O& r$ p+ A2 nset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
/ G6 Y( W$ v- [/ Z! c6 I5 u5 x# {3 u. Eset a (a + 0.2)
set color 45
]
   ]

4 q4 G( |: p9 fend

7 b) I7 W% D; |4 X. E1 qto go
1 l+ x& h1 R! L- ?. D' xask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
$ v9 W1 G2 ~( m% A那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
; u& ~8 n' S7 F, Z& Y
globals [ a  ]
4 u  ?! \5 C* _8 d6 W! |breed [As a-A]  
2 v, c7 S1 P  e+ K7 ?* vbreed [Bs a-B]
! R4 ?; X" @4 ~. ^to setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
3 Y- b0 W/ N" I; z' p$ P
set a (20)
create-Bs 10[
( m, o1 t% m8 H0 ^. D$ Vforeach [10 11 12 13 14 15 16 17 18 19 ] [
! f$ q- A- W( p) S# \ask a-B ? [setxy a a
4 x; d4 i) y5 H8 Dset a (a + 1)
set color 45
] ]
   ]
( r6 y" P) V2 _; {) Y6 O# {% h
end

# x. N; j7 `8 J; H/ l0 ~" l
+ Q1 p- @  N* p0 jto go
- W' e: v* }& n) h6 j4 B$ |- ~ask a-B 10 [set color 15]
7 _' Q1 Y- c; H6 ?* aend