请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
) ~8 a" w+ c1 k想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
0 r) [$ N! O5 o6 C得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
6 @- q6 ?! r( H, m: a( V

* J& p9 c) V, T; w5 N5 bglobals [ a  ]
  o+ x3 t4 A3 Sbreed [As a-A]  
: M3 ]1 R1 ^& n0 ibreed [Bs a-B]
# F8 K2 V' J" ^$ n( w6 `7 t5 |7 xto setup
: v9 C/ |7 j# J- \" r  B" U  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
  m4 Q" ]  R' s7 W& m0 Dset a (20)
8 ~& P" k0 Y8 O/ w  y3 ycreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
/ |5 z& _) ~5 X8 F( \0 e% u] [setxy a a
! Q( k5 `6 |) v! M4 [set a (a + 0.2)
$ Z8 g. p- `/ Zset color 45
]
   ]
7 H) ~) {( H, D7 o# o7 g; u
end
4 N+ i* D3 f- L! L
/ M% y0 G- ?1 hto go
ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
3 h' r, F+ K6 I- D% n2 ^6 l那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
breed [As a-A]  
  J( e' R/ _, I( `# X$ hbreed [Bs a-B]
to setup
" h, Q/ T% [) h1 @) _& ]# N  clear-all
2 R% h0 h& ?9 x, C2 e7 z3 acreate-As 10[setxy random(5)  random(5)
2 R9 c* S3 d9 L" [( a) ^set color 3]

" }1 @% k9 a/ q1 `) rset a (20)
# e0 ~) M: @5 `- W- S. d) wcreate-Bs 10[
2 a- {& g# c6 Z# e" K9 Y4 X: Tforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
; T2 D" f& I. x3 e1 }set a (a + 1)
set color 45
] ]
   ]

. _2 S! V' m; l) M$ d( a+ |end

- A$ E! |2 p/ h( G* m
to go
ask a-B 10 [set color 15]
end