请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
& i6 e/ `% _  d% ~3 K$ a; [, G想要把B的第一个乌龟颜色从黄色改变为红色
/ Q# d( J$ r' C发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
- I+ \8 ^: o' Z得到不同的结果，如图a1 和a2
3 Q- F2 }; U% k& s/ p# ~想要一直改变B的第一个乌龟的颜色该怎样写？？？
9 U; s7 V& |* c" w

: I7 i9 J  T. O* o/ Aglobals [ a  ]
breed [As a-A]  
, }  B7 y6 @1 S  v# {breed [Bs a-B]
0 ]4 R2 `; @8 zto setup
' P3 L9 d- E3 I. D) t( T8 x* H( _  clear-all
create-As 10[setxy random(5)  random(5)
6 C' |4 a4 z) ~7 }  T2 nset color 3]
set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
2 W: U: @2 r1 Q8 ?" ?$ R% Q2 Uset a (a + 0.2)
set color 45
]
   ]
- U, O; H$ m7 H
8 R2 }$ ^/ n( |6 ?9 P7 c# P& s# o8 ^end

8 \, t* _, u' m$ I" D! dto go
ask a-B 10 [set color 15]
9 c# V7 V$ _& V$ R  {" q, x' Rend

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
$ Z7 L! [- {- x' F$ @) y那么B分布不随机该怎样写？

wangjiajun101

程序写成如下就可以解决了：
$ |' v2 I2 B5 K, U/ B2 f
globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
to setup
# ^. }4 w0 w4 _  clear-all
) X+ q# ]# d3 q1 P- s' jcreate-As 10[setxy random(5)  random(5)
set color 3]
6 I  z4 ?% [; z9 h4 a
set a (20)
, G4 c) Y$ c: A+ ]2 E8 v8 mcreate-Bs 10[
% k9 I: n, s0 J, l5 c5 x7 u: D' m9 Qforeach [10 11 12 13 14 15 16 17 18 19 ] [
  u) r6 U. w. d5 @; Fask a-B ? [setxy a a
set a (a + 1)
+ Y+ b1 p, E" d1 M# q. n  Y1 Aset color 45
# T7 y/ H+ Z% G# }, A& z/ z] ]
3 Z4 S3 M9 k& S6 N7 g, L- O2 x9 K   ]

end

* \$ x- W9 [7 E( X+ q7 h7 r
: S6 T2 o3 \% |. Nto go
ask a-B 10 [set color 15]
( ?8 C5 |* J( Xend