请教关于主体种类的问题

wangjiajun101

我想建立两个种类A和B
A10个，B10个
想要把B的第一个乌龟颜色从黄色改变为红色
. f7 [9 ]. I; o1 e- h发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？
还有：ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色，重复按
. m3 Q- x% ^3 k; p1 h# V9 m, V得到不同的结果，如图a1 和a2
想要一直改变B的第一个乌龟的颜色该怎样写？？？
) D( G1 h, V" _: z1 x, w

globals [ a  ]
" R) G' v9 q) a& t& Lbreed [As a-A]  
breed [Bs a-B]
0 C3 I: j8 L, k  lto setup
  clear-all
create-As 10[setxy random(5)  random(5)
3 Q" c$ T: u$ Y$ K! Jset color 3]
4 x) a! o8 h+ u* Bset a (20)
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
] [setxy a a
4 M7 ]1 l9 g5 t1 z1 O5 D- `% iset a (a + 0.2)
' s" N( M* f. ]! t* Vset color 45
]
+ v6 Y# U0 N# I- A9 P   ]
! I3 S2 h% F0 C* w2 S% Z
; P5 [3 Q3 l  {3 q: @end

% a, z$ R! z. B3 g; hto go
ask a-B 10 [set color 15]
end

wangjiajun101

你说：位置不同是你在B分布的时候使用随机位置
( B+ Q1 X. R' K# W( r那么B分布不随机该怎样写？

wangjiajun101

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

globals [ a  ]
breed [As a-A]  
breed [Bs a-B]
2 E; @) L3 H; J. ^6 _# ]1 X5 Nto setup
  clear-all
! D- v1 ~5 l" |# R9 W+ W' W: Gcreate-As 10[setxy random(5)  random(5)
set color 3]

, O4 z: ^* r  `# E; b% M: z2 U$ Jset a (20)
create-Bs 10[
/ u. {7 f5 R3 p1 l1 Y) l7 Dforeach [10 11 12 13 14 15 16 17 18 19 ] [
+ |7 ^! _" Z6 z' |ask a-B ? [setxy a a
. s) V5 _5 g/ R# Dset a (a + 1)
set color 45
] ]
   ]

end

* y3 E7 ]2 ^5 c5 f% j0 O( x
9 }9 f% U7 A; p! q% J& tto go
+ Y8 I  U. f6 ]1 s, x4 |ask a-B 10 [set color 15]
end