请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
* j% [- w5 e0 x  P0 D$ a想要把B的第一个乌龟颜色从黄色改变为红色
) d- P8 ^. s6 ?3 C发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
: X3 b" z# J4 C* ?还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？

) W. _$ _0 @. w/ y9 U5 e/ @, H
8 c: f3 X6 Y0 ?0 dglobals [ a  ]
8 `$ _. [$ U, Gbreed [As a-A]  
breed [Bs a-B]
to setup
2 D% q: D* ]. p& p  clear-all
  |. b' L; l( A' [create-As 10[setxy random(5)  random(5)
: x% t1 Y; c* {+ @$ oset color 3]
' I3 H7 z; `( G( x  nset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
/ U4 l! t  U! _1 h] [setxy a a
set a (a + 0.2)
4 ?5 `+ d' [! o# P/ T! vset color 45
]
   ]
+ e' _0 F7 n8 M; q+ p' i. r2 Z
end

+ g2 U! p4 G4 Y# E1 H0 ?5 |  D5 J# \to go
ask a-B 10 [set color 15]
& y1 Q' Z7 m8 x0 {* lend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
* O' W+ A/ m4 T. L/ K那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
/ b3 Y3 q1 m) @) o
globals [ a  ]
0 V% K* H+ l9 O: ]5 r4 l2 g7 ~4 ]breed [As a-A]  
; t& D. M& I0 Q$ U0 o* mbreed [Bs a-B]
) H0 R, t7 o# W! ^3 s0 tto setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
/ _" c2 Z# ?9 _
set a (20)
  G% G$ N. ?# `8 @create-Bs 10[
/ _( s3 C7 R, w+ ?  Jforeach [10 11 12 13 14 15 16 17 18 19 ] [
+ v9 n5 `, f# t/ X6 T% r& _, \ask a-B ? [setxy a a
set a (a + 1)
% V1 t/ d9 r8 @( `0 vset color 45
- G$ j# y0 X8 S, C' \] ]
& g2 u1 V% X  y+ y0 g! |% F   ]
- w/ O" ^7 U" Z+ P: w! w
1 b, m8 c  R6 g" Q2 D' S/ L3 H: tend
: z3 R! J, J/ ?, I$ `5 C

to go
4 K& o7 o, @. |4 Cask a-B 10 [set color 15]
end