请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
+ b2 J- y7 \$ t# }, _7 lA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
$ M- ^6 y# `9 C0 m* K得到不同的结果，如图a1 和a2
9 D; I( ~; Q. q/ v; }# f想要一直改变B的第一个乌龟的颜色该怎样写？？？

) G& X" z+ p7 w% P: B# {
0 M) R; M) r/ u; O2 D1 n$ O9 B' Lglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
& ^* ~$ Z; `4 zto setup
0 T1 Z' ~: U! Z5 H  f- w. I  clear-all
& V" q  [* q+ Q- _' y# @; d& ?- G7 b+ acreate-As 10[setxy random(5)  random(5)
set color 3]
& Y. @' H0 t2 @  G! W2 R" ~set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
1 `3 p' |" g* c& vset a (a + 0.2)
set color 45
, Q2 ]$ X& K/ A0 r! u]
   ]

! p1 N/ r5 K& l0 s" H8 rend

$ t& M0 x3 Z+ n( J1 D6 Yto go
  F- a! ]* W. _: K, T% B" pask a-B 10 [set color 15]
+ W  B0 j. D5 X5 `4 {end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
( [" }/ b7 |- u那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
8 T% G3 y; u  \% Jbreed [As a-A]  
breed [Bs a-B]
% V1 X( |7 s7 ]- P- G% j7 Nto setup
3 F+ q9 h2 V3 N/ S0 }$ r  clear-all
6 D5 ?& N! G# C2 {8 b5 ?6 ^5 Ecreate-As 10[setxy random(5)  random(5)
set color 3]
! h. p5 A- W' G# O6 u3 n
set a (20)
create-Bs 10[
foreach [10 11 12 13 14 15 16 17 18 19 ] [
% H: F2 i) F4 V3 q& F, h/ M/ ]1 @1 ]ask a-B ? [setxy a a
set a (a + 1)
set color 45
' x' W" R: L6 Z# ]; A] ]
' h* w4 a7 E+ I0 R2 h   ]

end


to go
; }+ L0 K, M2 Y4 t* D7 p9 _ask a-B 10 [set color 15]
0 N0 c* A: b; ^6 @% B1 r3 vend