设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7408|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B' [" u( @  B  T! [6 Z7 n% Q# [
A10个,B10个( [+ x$ R, y3 q5 b' X
想要把B的第一个乌龟颜色从黄色改变为红色
' F( D; }; w5 c+ a) {! s9 W发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?2 R' M- H4 _  n; S
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按# Z3 ^( S' P6 R
得到不同的结果,如图a1 和a2
& J' [6 E8 p2 [- v9 A想要一直改变B的第一个乌龟的颜色该怎样写???
3 e; d$ l" k) W, t. c
, i& g' c4 m2 j( w. [8 N; p2 Z8 d5 h1 s2 |
globals [ a  ]
$ v/ S# G! M' a! Vbreed [As a-A]  
6 L* n0 p2 i3 R, nbreed [Bs a-B] + q1 n+ ^+ e( g" i
to setup
. {. t( ^7 v7 w  V  clear-all& x7 E! y7 a9 B. g+ X
create-As 10[setxy random(5)  random(5) 8 {2 t0 o5 P+ s$ T  q+ j% ?, {3 u
set color 3]
" @1 u- {! V- ?2 i0 S! ]set a (20)+ J" E- z0 F( T: E* ^
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 : B% z( \' A$ ~6 w  T, e6 v7 |$ i
] [setxy a a : `+ A% _* v2 q* C1 J: S) x
set a (a + 0.2)- z4 A0 n1 u) v; x
set color 45
/ F9 l# ^; n0 l) A' ]8 Q] 3 |7 ~5 U9 J& z+ X* g4 ?2 [/ b
   ]
2 ^$ z/ a9 v! V' L
3 D' U5 z( |' Jend
- v. f/ {$ B7 ^2 X/ g. `0 `" A
to go   L, |3 f# J# p1 ?7 l
ask a-B 10 [set color 15]
$ I7 H  j% i+ M- r. Aend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
9 e& s( N& c" D& z那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
' l# V6 G. r8 N' p2 B0 }$ ~
& u4 J& }" m4 t* lglobals [ a  ]% S: e# o+ B% Y# X$ b0 J# C- x
breed [As a-A]  
2 t/ D' X! ]: j8 fbreed [Bs a-B] 1 d& _6 g" Y% k. M
to setup
* E- X4 X3 N7 L  clear-all
" r  n* ]$ P- |# w6 B) [, Tcreate-As 10[setxy random(5)  random(5) 7 Y! Y+ r4 o  K  U: v4 l5 q' ^7 d
set color 3]
! V+ m5 z8 o6 G+ f% `8 j4 w2 `2 ~) K! X- |0 [
set a (20)
) J& j6 Y% ^4 }& L8 I, @create-Bs 10[ 0 X4 e& W" k, J' ]! y1 E
foreach [10 11 12 13 14 15 16 17 18 19 ] [. U; T6 J# d! @
ask a-B ? [setxy a a ! A; t+ }( S/ f+ `6 f! R
set a (a + 1)8 H* E/ E. Z$ Y
set color 45
3 b, p( f1 X- E) A1 o6 h] ]8 l& O: B  `" m1 F; L
   ]% }; x; Q' \8 h8 p( E  X- t. \

) w& n0 ]/ R  D7 \. Fend0 s3 H+ L- X5 c
% y' ^- h* ]4 E9 l$ D7 y1 X; b5 r

5 X& _$ }* W! R" `1 J6 Lto go 2 D! B+ G) U3 f, {% I
ask a-B 10 [set color 15]( G0 k# b; e1 @
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-11-1 08:24 , Processed in 0.014992 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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