设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7770|回复: 2

[求助] 请教关于主体种类的问题

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B8 S3 g4 g& o* v% e% S
A10个,B10个
1 l1 [: H- E9 _  q想要把B的第一个乌龟颜色从黄色改变为红色% I7 C1 }" X& C! l
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
) ?) t6 W$ s& {3 z2 L) h还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
' A8 I  X6 ^( I, `, k得到不同的结果,如图a1 和a2) V1 _- L8 k( E2 F8 x4 `* H* ]6 p
想要一直改变B的第一个乌龟的颜色该怎样写???* A( _/ k( m, s6 [0 R

, @+ R1 A1 ]# A0 f
: _9 d; X5 b9 Q7 {2 G$ M+ U- xglobals [ a  ]
8 l0 d' f1 T" h2 [; d5 Lbreed [As a-A]  4 B8 H3 p$ k2 ~+ r7 S2 Z+ x* Q
breed [Bs a-B] ) l7 Y! y9 S1 e
to setup
, a( g, u, i! \. O( O5 @# z  clear-all! P5 Z/ J5 A4 ~  F+ W; Y% P0 W
create-As 10[setxy random(5)  random(5) & k* e4 B1 L; E6 |% w! ?
set color 3]
% k: S' L' ], y. q( K; _set a (20)
  R8 d8 s4 V* E# }' C% rcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 + Q0 a! Y. J: k8 C( V9 U
] [setxy a a
% q6 s; Y+ V6 R- U) [$ o4 f7 h, Qset a (a + 0.2)
! h2 {+ _: j' v& Pset color 45
9 P. o  d  t2 M0 r& U] 0 r2 f) I! \+ b6 I
   ]; |9 i! y# V8 C5 n: P/ E$ O( D

% n* f4 t5 B# J1 h1 l2 z2 ?! Bend( |$ ?4 }, E0 U8 v! Q9 D

- S6 _0 ~" y, P+ {4 g2 B. mto go 3 F$ x; F2 n+ l" v
ask a-B 10 [set color 15]
! X7 b1 ~9 Y8 Hend

附件: 您需要 登录 才可以下载或查看,没有帐号?注册
 楼主| 发表于 2008-8-25 12:05:19 | 显示全部楼层

请教楼上

你说:位置不同是你在B分布的时候使用随机位置0 }" k1 S# a- K. I
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
- v0 H/ y9 X4 R' K7 h
1 x% e& U; A- E9 p3 s  o  [globals [ a  ]
$ t4 o/ ?4 y* k; W9 Abreed [As a-A]  . B* K; S4 [  L& Q9 m
breed [Bs a-B]
' H. a" t/ j/ w2 p% Z1 Q' x! y5 x5 Ito setup
' h% R7 G& }6 i1 p, h' O, A4 ?$ p  clear-all% W- x  n: x' I  @
create-As 10[setxy random(5)  random(5) 9 E9 @+ \/ i' }" e3 g/ x7 Y
set color 3]! @* k* e& E- U6 d+ ]' j4 E
' C7 i, M6 L0 Q( J- D4 z6 Z2 j
set a (20)/ J& N8 u: J" N6 v! U% f, z3 J
create-Bs 10[ 8 v! G$ o- P6 H3 [; a
foreach [10 11 12 13 14 15 16 17 18 19 ] [" T8 U) B/ Q, S) g
ask a-B ? [setxy a a * U7 b3 y0 \$ z( A
set a (a + 1)
& s- Y1 J" h- n' M7 _: yset color 458 }/ h3 N! U8 ~, U0 K) \" `
] ]' a# p2 W5 c& ^
   ]$ j! g: L! h; {" t; Y  K

/ G4 T$ y; K8 o  b* d6 \+ Cend3 [8 `( {* I/ k  S0 e) ]* Q
) o! G0 _. o& h
# i- }5 P( x% n- Z$ }. O2 K
to go
2 z! {6 V, z. e( l) Hask a-B 10 [set color 15]2 x' I( O" w9 s; A* i3 G4 @7 d
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2025-12-15 11:57 , Processed in 0.013921 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表