设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8200|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
0 J8 {0 ]0 v( b3 e8 `A10个,B10个
! H6 d, u4 L% g8 y% t! V; G. S想要把B的第一个乌龟颜色从黄色改变为红色! V2 l4 ]: K1 x3 o1 l: \; j
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?. M1 k6 C3 {, j! y+ f
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按0 c0 N' w4 r0 D2 o( _' R
得到不同的结果,如图a1 和a2
$ z3 Z' B% E4 U4 _想要一直改变B的第一个乌龟的颜色该怎样写???
5 Y8 z/ y4 a7 I
# H1 z% G; A7 h' s# s) Q5 I
. A/ Q4 V- z- U6 O) }, V2 pglobals [ a  ]& \  t' c4 |6 ~4 g$ k4 G
breed [As a-A]  - C6 ]' b( f0 D
breed [Bs a-B]
+ }- i9 _+ j( X; t* K4 O" @6 mto setup) U% ]: X/ g1 J$ O( b+ ]; Z! [
  clear-all
6 C; F1 A! }3 ^  O# i, y: C6 ycreate-As 10[setxy random(5)  random(5) 7 B* Q* d8 }! G
set color 3]! X% ^: i: V1 v
set a (20)# s6 w% i2 p& x' [' Y
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
, k1 g& f8 O  O# f7 Z* y+ X  E" ?6 V] [setxy a a
0 I/ @' M2 w. e1 F' aset a (a + 0.2)0 d1 e. }9 }" t0 a! b- k* k
set color 45
6 n0 G% J: U3 ?2 {]
  }2 [0 a  z( G/ i) a+ r7 Y4 m! v/ q   ]
5 e/ V& A9 k4 F" Q$ }
" l& _2 c( [) o  Send
3 _+ w1 _2 x0 F5 \; K) Q: z- \5 O; S9 D# y
to go 3 Q/ n) C; \& B6 r8 x5 A
ask a-B 10 [set color 15]3 M4 o$ ^5 ~/ P6 n, D0 Z
end

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置# \7 l) G: Y2 Z
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
& T/ Z% I; x7 k" A# F) @1 T' B- d8 b' z. z, e; M
globals [ a  ]- o( k0 X, Y6 m
breed [As a-A]  / [$ E, N6 b2 K) i
breed [Bs a-B] 2 M- e' V! V; \# I2 C0 n
to setup
5 p! d! T- N& o3 ?: E: u7 j  clear-all
! j7 Z0 g1 @5 u' E7 L1 }& m( Bcreate-As 10[setxy random(5)  random(5) 4 D& D; z3 c1 b% s. M
set color 3]
3 w. D5 c2 W, E0 W; b, D0 Q& ?. U- C$ s
set a (20)
1 y  v! v/ l7 n0 dcreate-Bs 10[ " }; H- H- ^/ w6 d9 y
foreach [10 11 12 13 14 15 16 17 18 19 ] [7 ?/ U$ Q; n, x) n  ^: V$ b
ask a-B ? [setxy a a
- M; F- ^, W1 `' dset a (a + 1)1 |0 z/ X( W8 J$ A  x1 o$ G
set color 45
' S4 J# K' ~9 E, E$ D6 {) S] ]
) i+ C: X8 j6 A6 Y   ]5 |& F' U( w! U; w' ]& ^* v' c

8 i0 _( K" g5 O/ W! X( @end
, a: e. K6 T0 e( f# C6 O; T
6 p% q1 i' \& x( c/ ]3 m3 y8 {! M
to go
* P: a( i) k7 kask a-B 10 [set color 15]
1 ]2 z% i! H% Q& }* Z# B  ~end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-13 19:38 , Processed in 0.019116 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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