设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7785|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
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

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置" Z% k( O% _8 ~3 W
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
5 \/ t# |4 B' B8 ]' u9 {5 _: b# S% b! ~* [" A4 I
globals [ a  ]
& `- o- [$ u' a$ \breed [As a-A]  ( W2 V9 `& P0 m4 c
breed [Bs a-B]
2 u. S# j9 Q; Z6 T9 q$ {# gto setup# S: ?/ O) [( D$ R& d, O- f
  clear-all! g! S2 ]9 l' d; r8 Q; V  X9 m
create-As 10[setxy random(5)  random(5)
: o4 K0 U+ G( E4 H6 f8 e$ ?+ Cset color 3]! S7 U1 |$ \, L3 g9 Z
. T2 K2 y2 ^3 S; W- |
set a (20)) o" @/ C& m! \
create-Bs 10[
4 U- v+ P2 B2 W+ V( G" \* fforeach [10 11 12 13 14 15 16 17 18 19 ] [4 k; K% i. e1 o2 ]3 ^
ask a-B ? [setxy a a
, U( a& f6 @" o* W1 B6 F% l, L9 Zset a (a + 1)2 ~4 \4 r& M. v/ _
set color 45
- x# W% v+ u' h3 V8 `, a3 {] ]
% M1 }" x1 N; x   ]
5 e* J* _' V0 Q
8 z7 v* q; M8 |# C) S2 |end
& A2 p, L6 D1 z2 u
* T8 Y! V/ m. g6 Y3 p! J; A0 e2 {2 r4 @
to go
; }; X2 m( x2 T8 g% T# {ask a-B 10 [set color 15]
6 |, ^/ j( H- A1 jend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-16 20:35 , Processed in 0.014178 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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