请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
5 }% f- B$ n. D/ HA10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
8 B; |/ }( m0 K, J. t- r还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
  t2 w- M& }) r/ q得到不同的结果，如图a1 和a2
- m+ Q+ }5 P" G0 I% q想要一直改变B的第一个乌龟的颜色该怎样写？？？
) N6 P; z# ]/ p7 d

; G; O! v2 J6 c; ?" X  _+ wglobals [ a  ]
breed [As a-A]  
breed [Bs a-B]
* A: p# G( }  A" O9 K/ F' ?6 ato setup
  clear-all
create-As 10[setxy random(5)  random(5)
1 G% I0 k  e. I. F+ [0 G* \& v( Eset color 3]
set a (20)
& m6 l" z5 ~; p: Vcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
set a (a + 0.2)
: g% G- }9 v# X) ^8 K) I: |set color 45
]
   ]

0 a0 ?' y- P6 S* v- zend
, ]& P# l! v! T8 T* D: W7 c
to go
ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
' U# F% r4 }" n' r5 A; z那么B分布不随机该怎样写？

wangjiajun101

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

' M+ T" B6 c! R  O& [globals [ a  ]
breed [As a-A]  
6 T! c: k4 ]. \6 M( Wbreed [Bs a-B]
: s5 g7 h* K* Bto setup
: |4 N( H% L4 ~+ F# P# Q  clear-all
create-As 10[setxy random(5)  random(5)
. w: J3 @, e6 }' w- L6 V1 j" bset color 3]

5 o# F; N9 n0 K5 eset a (20)
" ?3 P! |7 M# B0 s" X- gcreate-Bs 10[
2 }5 Y' V  i% [2 P5 aforeach [10 11 12 13 14 15 16 17 18 19 ] [
- v5 X3 f; q! C# Kask a-B ? [setxy a a
0 Z8 A- l5 M0 I8 j0 Qset a (a + 1)
" D: N" X5 j* E" ]# uset color 45
] ]
   ]
  W5 Q& V# F& M) D8 \; ]; n
( i+ c! z2 f% K8 Z: o, qend
0 p& Q. i7 E) h# D* C1 O0 k- I- J

( a( @4 Y3 ~: n+ uto go
+ @7 l- g0 @$ A$ d6 P2 L; h# xask a-B 10 [set color 15]
1 x0 d+ c, t% M# p  ]end