请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
1 F  r# a+ {1 e+ b) J! u9 s想要把B的第一个乌龟颜色从黄色改变为红色
7 [* j1 U7 t; R) S# Q3 w4 s发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
. E4 G# H; Z3 M& w7 |- }( [9 r' c1 h想要一直改变B的第一个乌龟的颜色该怎样写？？？


globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
% I- p% B. ]0 i' q* p, r- d% X, Kcreate-As 10[setxy random(5)  random(5)
set color 3]
set a (20)
8 I. z! T2 W: G5 ?" a. W0 A- Mcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
+ ~8 g% k- o2 W3 H9 d3 \# qset a (a + 0.2)
- K+ G* y' H- w% Vset color 45
]
   ]

3 v; o& W) U5 H) Yend
5 z/ ]$ z; _# s& a& q/ J' `
  T3 k9 j4 a3 ^7 {8 Xto go
$ v8 y% f, n& K& |4 c3 f5 S+ sask a-B 10 [set color 15]
0 j2 L) K7 ~2 R$ dend

wangjiajun101

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

wangjiajun101

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

$ c7 v% g: G0 {; I8 F+ V4 mglobals [ a  ]
$ x7 G2 D# R* dbreed [As a-A]  
breed [Bs a-B]
to setup
  clear-all
create-As 10[setxy random(5)  random(5)
7 e, H5 I* a, c( uset color 3]

set a (20)
$ i8 }# \% O8 }. \# M$ @5 d4 N, ccreate-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
$ b! {1 n- X  v+ g  t9 B, I) qset a (a + 1)
" ^7 o9 O: T5 F, ~; ]0 lset color 45
' l# n6 b7 H3 S] ]
   ]

end

& Y$ @$ ?, _  ^$ Z; h9 p
to go
% r, R9 x' p4 L8 ^/ ^4 E* `ask a-B 10 [set color 15]
end