|
|
5仿真币
我想建立两个种类A和B
7 n' V5 ^6 W1 a; f" A5 nA10个,B10个
2 ^* {) r0 A/ `5 b% }. F想要把B的第一个乌龟颜色从黄色改变为红色
: y3 d, @& Z! A7 p发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
- [, v: N2 ^7 H& h; y0 M/ A, ^* G还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
% J& j/ N! K7 D' H得到不同的结果,如图a1 和a2
) q% j" A; E7 Q/ O G想要一直改变B的第一个乌龟的颜色该怎样写???
$ i! n! w# V8 M M: J
1 C/ p" o O' }4 x: q0 q8 K! H! P0 o8 E
globals [ a ]
- H0 P8 ~7 Y) Ibreed [As a-A] * \: w I% F, U n' c
breed [Bs a-B] 0 @9 J" w4 t' W
to setup6 X5 L$ \0 V0 x, p" C
clear-all; X1 `3 K% X0 l
create-As 10[setxy random(5) random(5)
1 u- }1 R) {' n& fset color 3]
& f% q, m: S, Z# `& N$ K2 F) Aset a (20): H- w- n F6 p9 Y
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
$ N: c5 x7 J* k z$ N] [setxy a a
8 H9 w+ m7 H1 m5 }0 vset a (a + 0.2)9 S# I3 v J5 V2 U
set color 453 [6 ^$ _' b7 t
] ! ~& Z% b3 l, n6 n @1 w' O
]; s* G' g" t& P. m
3 F! @$ ^3 B6 D7 a1 E
end
. f. V) P! C2 S, c4 {/ x/ B" ^* t; ^9 y3 H9 d8 V! G$ ^2 \0 w6 |
to go
# _ B. @7 V& l% p+ a' K) ]ask a-B 10 [set color 15]4 G% ?* m R( r: U
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|