|
|
5仿真币
我想建立两个种类A和B/ n9 b6 U5 h5 o
A10个,B10个
: d. r7 M0 E; X想要把B的第一个乌龟颜色从黄色改变为红色
, a. A1 s w/ C发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?( P: Q: _) G3 I9 T; F, H! }) u0 ]
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按8 E9 {( ^; q- a8 j
得到不同的结果,如图a1 和a2
) u. w7 P8 x U想要一直改变B的第一个乌龟的颜色该怎样写???7 H4 ~# {, g& V- V3 x/ U
) J' W- M+ g! C1 ~3 v2 o/ d
. \( e7 @6 B# B/ `; Y
globals [ a ]
" ^" q4 E$ X/ |5 Z3 K3 K0 }- Qbreed [As a-A] ( V: \4 i' m3 M3 v" D7 {
breed [Bs a-B]
+ T5 f/ H9 O. M/ j1 s- w9 Uto setup
$ i0 ~4 S" n0 D clear-all: g: `; p& J5 G2 j) c/ z
create-As 10[setxy random(5) random(5)
+ Z/ ~) i* Q" M, D" _8 v4 Sset color 3]' ~; ^3 c0 U7 h8 Z j
set a (20)& i! h% I. U# H6 a
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 * i' ^( t5 N9 K$ Y" l+ I
] [setxy a a
7 a" ^2 u! e9 ^% [( Q" G1 H7 ~+ f9 vset a (a + 0.2)' r( g0 w) a5 ?" N( C7 i; g! l
set color 45- z+ X- s$ K' H
]
/ D- ^8 o( _ _( y% I& I ]
( {( b+ E& d- R A& I* J 4 ^6 ~& }8 M. {3 { l7 h
end. Z) n" x) r; u; z7 y0 ~% F
9 u( C$ I/ H' t% s0 P" q" E: I3 Xto go ' `! _8 h6 T) H% `* v/ n
ask a-B 10 [set color 15]' I# u6 o: f: A
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|