请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
: L* A& j2 |! M& }A10个，B10个
1 P0 E! L* B0 A( Z6 v想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
: C0 s$ }, Y' X1 ?得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？

$ X# e& f5 h0 p7 B
globals [ a  ]
& e$ j. z% g' t7 C# `1 kbreed [As a-A]  
breed [Bs a-B]
- _: t) B8 a$ ^% }6 b1 ?# t8 U7 eto setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
7 r2 n6 k  }4 x! s3 H$ mcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
4 V# _& [2 v' ]- k9 F; L% w' P] [setxy a a
set a (a + 0.2)
0 V: S; @2 L4 y4 `5 y0 Eset color 45
  N$ D% Q7 W4 A* {* E9 r]
( J+ U2 l1 F# R: c1 x   ]

end

to go
4 c9 D% Y7 _+ R0 g2 Kask a-B 10 [set color 15]
# e! R6 V' ]5 _$ tend

wangjiajun101

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

wangjiajun101

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

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
5 ?3 q9 D( b7 v/ B* _to setup
4 M9 R( ^: B% F  b  clear-all
create-As 10[setxy random(5)  random(5)
! _8 m) N- n' U1 ^8 M' H% a8 T0 @; Sset color 3]

set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
) F8 [! Z' _  Z3 {2 ^% k$ {' b: a3 Eask a-B ? [setxy a a
set a (a + 1)
set color 45
' {4 {7 i" V# t2 [/ T! w+ a] ]
& {' }0 k9 w' L$ N! p5 G   ]

* P1 n2 ^( a1 K1 z# }% @end
0 Z! H! P+ d7 S# Q* B
: p% d# I4 V* @: j3 p) x
/ O9 Y4 M) V3 y8 {( w% {. A; Y0 Bto go
ask a-B 10 [set color 15]
, ?( }8 l' e8 p$ D* u% k; a/ r8 mend