请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
6 V3 g  m4 Z; F; A. F' a想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
) _9 x$ w. w) N& U( j想要一直改变B的第一个乌龟的颜色该怎样写？？？
+ T; Q8 |' v1 g7 d) t

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
* p) E$ {, c; O5 q. V6 Fto setup
  clear-all
create-As 10[setxy random(5)  random(5)
' A1 q2 Q& ?; H5 i' D* N6 gset color 3]
! i7 q* ]/ H9 F# n& a+ H( w: sset a (20)
0 H4 H- V3 L) `, z5 {create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
  ^" ?# G- e  t] [setxy a a
  y# j( `( ?( @+ [set a (a + 0.2)
! z- d; S: e9 Z5 i5 h/ }3 u/ R7 a9 tset color 45
]
   ]

end
5 p1 k- H5 d, D. y0 _. r+ U
to go
ask a-B 10 [set color 15]
9 C' z% {- \, T% Pend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
$ p0 K' B/ S6 u# J) X5 T0 ]那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
; O3 G* Y( `: S. Gbreed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
" J4 H! q0 z( ]8 Q- x/ V* o2 m( c
set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
set a (a + 1)
3 W! ?$ j3 w" @6 E; A6 @set color 45
] ]
+ T6 ?: [  q! g* z  T   ]
0 u$ k1 v( f' G+ r2 M; v; F
end
" X$ i# I3 B6 P5 x: j7 s4 \4 V" F

+ _# \4 l$ U  y0 i# tto go
  ?# s. g6 A4 @# Iask a-B 10 [set color 15]
1 K; Q. b7 ^1 J4 n4 n0 Oend