请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
' _, W- f: a4 s, ]9 p$ GA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
$ j) W1 K+ A- e5 j% ?; v3 w发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
! ~/ c2 e: ]7 r3 O1 ~+ N( T( v# K得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
8 m& [0 j" x0 d/ W  P! ^
: C; n, K, {9 N+ r$ H' q6 L
3 w/ }0 s+ y) P! s. gglobals [ a  ]
breed [As a-A]  
; [  y3 {1 B: V# G, e& Mbreed [Bs a-B]
to setup
  clear-all
) G# W9 ?4 X+ d. r% g9 tcreate-As 10[setxy random(5)  random(5)
7 S) d1 z0 }/ k% R8 hset color 3]
set a (20)
, _7 Z2 B* \# O, Icreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
set color 45
- a6 V5 @0 a, [2 _2 U  _]
   ]

( y, H5 Z6 |* M! F! q  Aend
* b" G0 T4 e7 A7 w3 [
7 ^7 a' x( m' }0 T2 O; w' Nto go
ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
* g. _+ _2 |5 a8 Z9 Q$ f) c那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
- a; J. ~7 c0 U6 ~& S0 t- T
5 H5 v/ D4 P2 P- N2 aglobals [ a  ]
8 Y; \$ Q! V9 f8 M6 Tbreed [As a-A]  
1 Y/ s6 s& ]3 A- K) K5 F5 S! Qbreed [Bs a-B]
4 ^; j# c7 M" Ato setup
: d: `" A0 e! q+ d! p$ l& j  clear-all
create-As 10[setxy random(5)  random(5)
* |/ {  l7 c& @: t, U- uset color 3]
  i# w5 t6 E7 X0 T+ w& R3 M" {6 X
set a (20)
6 z" j: [) @: T0 k4 M: @- jcreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
3 L! _" U! K8 G" K7 M6 Nset color 45
] ]
6 m8 y7 v. {0 F7 k# ]0 S0 t   ]
: o, Y* V7 v& a" ~/ a$ v$ ?
end

+ A; T: }- S( \! V" j3 P4 H8 K
to go
ask a-B 10 [set color 15]
/ K4 R0 w  [! zend