设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7751|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B$ l+ K$ H( O. d9 E! |
A10个,B10个4 m. |7 K  g8 [" w' O% x- b
想要把B的第一个乌龟颜色从黄色改变为红色2 X  v# o  a4 o; c3 C, P' M+ D
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
; I8 ~# Z1 X6 K- A% f还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按- e! q# Q0 |% ]  w
得到不同的结果,如图a1 和a2
  p* d" ^) |8 c- v1 ~& P' {& a想要一直改变B的第一个乌龟的颜色该怎样写???
5 i) Q; E. \0 W2 O3 m5 }5 w' J9 s7 [2 ?- p; A# z- L: |  h
/ s6 L3 h; O3 X% V
globals [ a  ]' U! r  e. T( ?+ ~3 O
breed [As a-A]  * f2 Q2 n" V; I) v" l  C
breed [Bs a-B]
! X  {8 a" C( ~- ]6 s  M& }3 K4 x# ^to setup
5 m8 Q% @! V6 P# U  k  clear-all' |, Y9 v. b5 c" f% h! @: Y
create-As 10[setxy random(5)  random(5) 9 _5 e: [0 i) {  f& P/ m: M
set color 3]
) B8 @" E5 Y2 \: Kset a (20)
% A( [' J5 c7 b, Y  k" T4 mcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
# j: ?8 v8 c, ]& P& V# F] [setxy a a 8 M- f" v5 {* ~9 @& v3 }
set a (a + 0.2)6 ~( P3 p: F# I8 U
set color 457 r8 G8 u0 T6 W# g4 R1 A
] 3 @$ f  n3 s8 e: W, e  i
   ]2 c: k) f3 S* E3 S. Q. W" E
# o. t; x- A/ \3 q; y
end
% j2 C* o! `$ h8 k
* ?, Q1 p& q( k# Rto go
2 p) V; `% h/ D* H/ j% h+ p$ G# _ask a-B 10 [set color 15]
1 Y3 h6 n! d( Q; pend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置% `9 R* |6 k/ }( u$ b5 m$ h  T
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
" Z2 C+ |  ~1 `1 H6 J( l% X. L# t+ t3 @1 E* U
globals [ a  ]
% L* D9 `  l+ p, @7 e8 t4 Lbreed [As a-A]  / m+ @6 E, r$ Q! m' h! o3 v- [( [
breed [Bs a-B]
* L( O* [" |  \to setup( \$ P, q. G2 T& Q
  clear-all
, _% ^- _. H6 o- ccreate-As 10[setxy random(5)  random(5)
0 t) @) b& j8 q& m9 t* Vset color 3]
0 `9 Z* {/ ~6 Y* A& P/ v5 j7 ^+ V8 R0 {
set a (20); a! z& J& |" Y, g2 l) O
create-Bs 10[
1 t7 a3 m# u( _  h+ I. }5 Xforeach [10 11 12 13 14 15 16 17 18 19 ] [; m: `2 \. m- \$ j
ask a-B ? [setxy a a
4 u( T5 M+ W* ?5 G3 q" nset a (a + 1): h- v5 S0 z3 H8 C" c2 a( V
set color 45- e0 Z3 P+ R1 L, Z
] ]
. k$ L8 d  {7 y! A7 d4 i+ f2 l   ]
7 j$ ]( k6 q! D1 z$ z& U" o( X/ c $ L3 w) I( e# \* f
end
. j( c% \! R" O5 j  n$ d" E9 _, b5 L! q2 K) |

7 ^$ I2 ]. e* b% b1 h0 _to go ; s4 d% \# a: _5 Y# p0 x% F
ask a-B 10 [set color 15]
6 u& _. J) d0 lend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-14 13:59 , Processed in 0.013619 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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