请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
) }5 E$ D" M. v* F; g3 L发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
: e1 ^9 J6 r# j: K8 V% _+ c% Z1 w. b得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
% X2 d* {) E5 v' S
7 U8 q2 h5 y" E+ I) w; F
globals [ a  ]
6 n6 D) j7 |8 l  d  g# Hbreed [As a-A]  
. ^4 y4 ?. L9 j0 F; n3 vbreed [Bs a-B]
5 n% N0 K5 d# m" f# gto setup
$ T2 }/ }0 u7 Y) y  clear-all
  V! ^/ \1 T, ?1 T% {' R8 K! Icreate-As 10[setxy random(5)  random(5)
set color 3]
7 w/ g  V& A! `" U$ Y) ]set a (20)
( e  a: P. j: e9 s; i" I: {) Lcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
1 I9 A2 m# r/ N2 c] [setxy a a
, z/ s6 V6 [9 I. ~set a (a + 0.2)
set color 45
7 d6 n2 C3 y" J- r]
/ Q! }" J; P" L; A2 E  H   ]

end
. H2 }+ y% l' ?/ K5 l
! O! n% k. W; u. ]2 i9 wto go
ask a-B 10 [set color 15]
end

wangjiajun101

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

wangjiajun101

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

globals [ a  ]
3 v0 z# _  p# F% w* H5 Bbreed [As a-A]  
/ l9 L0 S2 x& j! K7 C; R* v8 B/ Qbreed [Bs a-B]
& s( ^0 [/ ]! p. ato setup
2 n) O5 i+ W4 q* H; h  clear-all
% {% c3 j. J- a  Q1 w+ Qcreate-As 10[setxy random(5)  random(5)
% {% J/ t1 j% d  q* b! _set color 3]

set a (20)
$ d: v3 j) d# U# _6 ~  Icreate-Bs 10[
" i. D* S; E' Z. Z* P; k6 A) Eforeach [10 11 12 13 14 15 16 17 18 19 ] [
ask a-B ? [setxy a a
! m. g, _6 f' k! J3 t  B: S) dset a (a + 1)
1 a& o( b  Z4 Cset color 45
] ]
   ]
; h* _, ~- n: m4 a3 U0 u
. _7 e5 v0 C6 Lend


' H8 ~' r, I! `/ uto go
) ?+ h2 L/ Z0 e9 r3 nask a-B 10 [set color 15]
7 ]9 z; v! h; P8 `, R. nend