请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
! G. z: B# \: [0 v. W+ _# {A10个，B10个
( ~  Y4 T) @9 H. h8 F$ F想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
+ Z3 Z* p5 }0 Y0 y" c还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
4 G1 J, ?1 ]- {) p& C$ R5 D想要一直改变B的第一个乌龟的颜色该怎样写？？？
# N' B5 i* Q7 Z# A$ n

globals [ a  ]
$ B) e" ?0 h% M4 S; D' v  Ibreed [As a-A]  
breed [Bs a-B]
3 X* B3 [$ ]! A% E* {to setup
  clear-all
# H8 o  g# Z+ g6 S+ j! xcreate-As 10[setxy random(5)  random(5)
% S: h9 R1 q# T6 [set color 3]
set a (20)
' k/ H, M  B  ^create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
set color 45
$ s6 V$ K+ z" {]
; ~: {$ I9 f0 R+ v5 F  k6 Y   ]
% `# H5 }/ @) u, q5 T: _* U, K; F
end

to go
ask a-B 10 [set color 15]
# d9 i& c: G7 pend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
* Z% }- v& j+ r, W那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
8 r0 i  N: K/ Y$ j8 N4 F
globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
9 k. H# Y( n8 N6 I$ Ncreate-As 10[setxy random(5)  random(5)
set color 3]

2 C1 b. w6 n3 m: jset a (20)
create-Bs 10[
) C4 M, C' ~# Q3 |5 |: X+ ?. O' jforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
' y5 P; o# d- _: s7 s  d$ W/ k+ `set a (a + 1)
% @! w- y) h% F6 `5 z6 |set color 45
# C! r% c! u5 K. q/ z0 z] ]
   ]
& {; y8 t) }2 t6 t* k8 Y+ [' a) `
end
4 \6 E+ }6 F1 Y7 p9 k2 k9 X

) H! r: i: k' b' V, L+ \to go
' P* e+ Z/ q8 L2 c, t: ]ask a-B 10 [set color 15]
end