请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
9 G3 o& A# B3 u' {" [) ^想要把B的第一个乌龟颜色从黄色改变为红色
1 m1 p9 D7 H7 Q. ]6 W- Q发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
( b. G# [4 d/ l7 d9 R还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
/ D& i. \7 m5 D; z8 T想要一直改变B的第一个乌龟的颜色该怎样写？？？
7 T2 w$ w5 L% k; y' O7 w
# B; M5 b% c2 `- h& i( E6 s
globals [ a  ]
' z7 e* v6 H, Bbreed [As a-A]  
breed [Bs a-B]
2 Z% o% Z( I( g' }7 K) x, p9 Eto setup
  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
0 K/ {5 ~- L6 Y' j; dset a (20)
! d1 J6 b2 q1 D& Ycreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
) M+ m2 S+ q& ^+ F* |, U$ Y] [setxy a a
6 S5 [1 ?  N7 k& }set a (a + 0.2)
# d* M" U$ [6 pset color 45
6 C3 I" U! P# J6 n) Q( T& n8 n]
   ]

end
# e! \6 D6 r* H$ G+ g" |! L9 t+ p
: v# h+ u( Y, i. F2 {- hto go
ask a-B 10 [set color 15]
# O1 c- C: c# p) ~end

wangjiajun101

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

wangjiajun101

程序写成如下就可以解决了：
5 X4 \- H' {: P9 E5 p- f& i
1 V% X1 Z- f: v5 ^0 nglobals [ a  ]
breed [As a-A]  
, B( f* p2 e6 Q. H% L# Cbreed [Bs a-B]
# [/ q1 n" w' z6 V8 Oto setup
/ M1 k! w1 c8 k0 J6 ~3 _7 g0 O0 ?- E  clear-all
create-As 10[setxy random(5)  random(5)
$ P* v0 G5 `$ r/ g; @) j/ x# zset color 3]

set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
1 l" B5 h( K7 o8 }7 g$ j% X7 D& w3 ]6 Cask a-B ? [setxy a a
: _" Y1 i  Q8 O# ^2 }0 Y* U% ~4 lset a (a + 1)
3 }2 V  `# O/ m! ~, k3 N4 Lset color 45
] ]
   ]

6 i8 W( m9 f2 ^0 t( @) bend

7 D- o5 O, T* O* I9 P
to go
ask a-B 10 [set color 15]
end