设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7775|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
# i: M5 m! B; y" EA10个,B10个
' S+ q, w9 ~; q1 X) v5 Y想要把B的第一个乌龟颜色从黄色改变为红色, `/ j& z& W+ c& \$ i/ s$ F
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?5 ^" I5 u/ J! d; \$ [0 p
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按3 S( e/ a, I! i# X& R& v0 ~
得到不同的结果,如图a1 和a2
6 x& v! ?0 q# ^( G" }/ z/ E想要一直改变B的第一个乌龟的颜色该怎样写???
4 S2 u; ~* @* ~6 W3 I) K6 H; a8 J" }( }

$ D$ o( ^) J' m+ m% eglobals [ a  ]) f6 C& q+ w6 K* A! A
breed [As a-A]  9 I1 D" z5 ?, X: `8 b9 t# v) F! T
breed [Bs a-B]
3 m5 K' I7 ~. p- b( ]/ bto setup
2 I! [& v  B5 G. s+ L$ @- Q  clear-all
& W6 A4 _, g% s. Qcreate-As 10[setxy random(5)  random(5)
7 }3 {' S- [, ~! B3 b1 Fset color 3]7 B" U2 V' u& v1 m
set a (20), H! f' p" X9 D; |6 @2 R9 v7 t
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 % D" q" L$ z. B2 I+ e$ l. b
] [setxy a a
  q: W% J' U5 rset a (a + 0.2); S' P6 a. W' o: l% v2 V
set color 45
1 [+ I+ [" m# {0 V/ U' D( b]
7 {" B. t, _5 B3 `3 A, P   ]/ O  t+ a$ Z2 X( K& w

6 S. e" I; J4 C2 _" ?end; G1 f  V) n4 a" }5 l
  V* }4 Z+ R" `( O
to go
* w2 j$ }3 l. X7 U  eask a-B 10 [set color 15]
9 X* e1 W5 Q: c; c% B+ eend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
3 B0 J5 _& H" M( \8 s6 V$ Y' J那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:' ]9 ]  q6 ^4 |, i. L! X! k

$ @6 ^) n% \' H4 fglobals [ a  ]3 i0 ~7 P. d5 X( q( U2 ]
breed [As a-A]  # e5 l6 d$ a3 J' C8 v9 P
breed [Bs a-B]
1 A; b& U, ]( ^$ |. u" Wto setup5 l4 t$ v, s7 n0 H: d- J1 r
  clear-all
7 h4 P+ q5 P# Q% jcreate-As 10[setxy random(5)  random(5) ) M- c) l) d% c8 |# f7 H' v
set color 3]
+ T9 l8 C# Z, |  S# ]) }3 k& j
$ \5 y  b% r' n3 z1 ^. G# x, {set a (20)
! e' d- l3 t, v' n, j8 {3 qcreate-Bs 10[
* r3 I/ p- ]! [foreach [10 11 12 13 14 15 16 17 18 19 ] [" s! e3 J# u) x# b
ask a-B ? [setxy a a
1 x8 g7 Y& {- V; L; Rset a (a + 1)
1 f& }5 X. s; V! ]set color 45
6 X% Z9 n" a2 q4 G# e) ]+ s] ]
' s* L! ]2 L( M. w  l   ]
: w5 p  x  F% M2 B
1 q- u7 C" ?5 @& t6 Q3 Hend
5 J. |8 ]# N/ D4 R9 j. J
0 O, B; W* e' H  h$ x4 F3 X4 m$ M1 s) c# P* @
to go
3 G5 c$ ^( E7 D. [5 w+ w7 dask a-B 10 [set color 15]+ E$ M. W8 E6 y- Q3 L2 p
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-15 16:07 , Processed in 0.014159 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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