请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
& ]! K0 T7 \( G2 e  NA10个，B10个
6 n0 F0 \( \6 N: h0 I想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
- x) I7 J, Q8 R: Y; g还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
2 [; C' [+ C" B得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
0 r8 w% X; w& e: ~% b0 b
; J- O6 {1 U; n/ _$ Q7 \$ F
- H2 T6 i. e: v) iglobals [ a  ]
6 H0 a& b5 }6 m5 t" [% _; Hbreed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
6 E% ~1 p/ o" U$ B4 X1 Bset color 3]
set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
+ C- B1 P5 f$ v8 T7 k: Gset a (a + 0.2)
set color 45
" v5 t. _5 @& f3 I8 M! }]
) a% i" H- Y5 ~& P6 p   ]

end

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

wangjiajun101

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

wangjiajun101

程序写成如下就可以解决了：
! x/ i. i) `) v" S$ X
1 F" L( _) G+ n) Tglobals [ a  ]
* f. G& U: w2 m$ ]$ ]breed [As a-A]  
- I" x  k& F# V/ V: U; Qbreed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
4 I& F" r. F) g6 ]3 \* qset color 3]

set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
, r7 c" a' b; kset a (a + 1)
set color 45
] ]
   ]
$ g4 E: j3 o0 \  \0 g4 \: o0 Y+ m" m6 K
' a+ I  x7 t1 g+ P: D; ^# zend

; W0 K+ L  d' h% A( k: e7 J9 E
" S. I1 H$ U( u! s! kto go
ask a-B 10 [set color 15]
" X; c! n( W. k% O+ a4 zend