请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
% f( F2 m2 |3 Q  [) z  pA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
$ Z) X  m6 k# D3 i+ ]/ S) ]! y- Z还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
" L- A9 O8 }1 R- X! c+ T/ r; n得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
7 `; p8 C- X- c$ n. ]

! D9 [* v' ?# ]5 G' r; _2 d  i8 pglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
) H' @* }( R: k0 Eto setup
  clear-all
" C$ i4 h) g) F" ocreate-As 10[setxy random(5)  random(5)
set color 3]
: ?! V9 \- @& [, T! o0 x' B1 `set a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
9 s' M* F  O2 B" K4 U- O] [setxy a a
set a (a + 0.2)
6 F( X( z& z7 p& q+ a5 mset color 45
/ S1 [, `9 q$ x. i( p# v8 l: o]
4 y# q1 r5 j( x% ~+ _) j   ]

* O  A1 X' W9 {. X2 Zend

to go
) h1 T. h% i8 n" _( r. L/ Y8 u( Qask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
, I6 F& `( d9 d那么B分布不随机该怎样写？

wangjiajun101

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

+ L% r! u$ q4 \% G$ `globals [ a  ]
breed [As a-A]  
1 k1 A- Y/ M& z) b" N$ L0 tbreed [Bs a-B]
3 G2 a! B  ]6 d$ J/ f' @to setup
9 _/ [/ j/ n# O/ r7 Y- _  clear-all
create-As 10[setxy random(5)  random(5)
: W6 O/ |* h: f& hset color 3]
, T' e' z) ]! {! l0 o
4 x  C) `' l/ Qset a (20)
4 a1 s* C6 x- z( T; ?' s$ Lcreate-Bs 10[
' ]( o* l, _% Hforeach [10 11 12 13 14 15 16 17 18 19 ] [
2 C" @# W6 D: h% G) Nask a-B ? [setxy a a
set a (a + 1)
set color 45
] ]
   ]

2 A8 r# X# o' Jend

" K; I9 P/ n0 Y- J. I) o
, N- E7 }" `1 hto go
ask a-B 10 [set color 15]
end