请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
) Z# ^- Y' {" g9 }, P, z4 fA10个，B10个
& n5 {! s9 o( [  A6 W: R4 j! p想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
$ U$ k' ?$ g# p得到不同的结果，如图a1 和a2
/ @& k9 J( F9 d, q想要一直改变B的第一个乌龟的颜色该怎样写？？？
( P) A) a1 M* p' }) b! q# E

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
; x. J2 C! J( e& B8 c  clear-all
create-As 10[setxy random(5)  random(5)
% ~7 h: R) X+ Eset color 3]
1 I8 u/ \9 h  b- o0 K7 F7 Hset a (20)
; j& @8 m2 {. e- ^6 W& `3 wcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
& d  d) O% {: X/ y] [setxy a a
set a (a + 0.2)
set color 45
]
   ]

7 t, [. y/ A( e; a8 ~' nend
2 r& j; r$ M+ _: Y  Z
to go
ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
* l, C: I; w% E. {) f7 ^  }4 ^+ H那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
& b  x0 T: [; ?* l! x1 nset color 3]

, p* K0 ~5 N6 x! g+ P( Nset a (20)
0 g9 S3 c5 y* b4 |- Z. Ccreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
  O- `+ E+ I% P5 Eask a-B ? [setxy a a
- c% U+ J- y! b$ q8 g  y% nset a (a + 1)
$ a; ~+ `0 f) M5 k6 y5 i2 h# fset color 45
] ]
   ]
- }5 |) C; s( O6 J  `) A
end


to go
& z6 L; l' B; m1 Hask a-B 10 [set color 15]
7 v) }1 H- |) F( w! Bend