请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
5 h9 C/ ^& V3 b" x  d# g7 H+ _$ \发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
0 z9 M" @5 i8 @- C+ F) O" D
  }3 c0 t) D7 d9 K6 A- `
) ?. ~0 A4 T7 M4 y; j; m6 E" R; iglobals [ a  ]
breed [As a-A]  
4 K5 ~  z7 b: m" \breed [Bs a-B]
to setup
- q6 u! F! ^7 x$ E" g) _  clear-all
create-As 10[setxy random(5)  random(5)
set color 3]
7 c8 a) u& Z3 T) x0 T% h# |  A# sset a (20)
7 ?' s7 o- m# q' q; j! z' g! kcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
) z( X4 ^  F5 p% p8 y! c' B] [setxy a a
, _9 r3 V5 ?' y4 S9 K8 Wset a (a + 0.2)
set color 45
) e* B5 M2 F. f" X1 _# g2 s7 e; s]
9 n2 }& a" k. Z# ~   ]

  W' r/ b, k4 U2 Tend
: q7 ]1 V! F9 O$ J6 C4 P
to go
4 B1 e0 T  y6 N5 v1 X& ^; t" Lask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
: {4 R: p6 p2 Y4 x; s那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
# g& D2 H9 o( o: g! n
; n4 y6 n5 I3 }globals [ a  ]
8 J! M7 B& r; J; s" I9 v6 {' Q8 H/ h: sbreed [As a-A]  
( b* w6 F* j: I; g: V2 Gbreed [Bs a-B]
to setup
  clear-all
- m1 L* ~6 a* c' s. Z8 x! |create-As 10[setxy random(5)  random(5)
set color 3]

* {4 z6 v% ^- B* _set a (20)
, o7 a) a9 _5 A" L6 ]create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
$ \8 c( Y2 o" {! K! Q$ S6 _ask a-B ? [setxy a a
set a (a + 1)
, Z$ x8 B6 Y1 h- F$ O4 p  d9 k6 `set color 45
4 Z3 O$ D- Z7 n] ]
( Z6 c5 O- g/ _1 c. J   ]

end
& {/ d9 \5 I* m( o* @" w
/ b/ i; U7 ]6 L" d  i; g- b
to go
ask a-B 10 [set color 15]
# \- s0 D5 v4 n6 o% aend