设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 6692|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B3 I9 W; r' B9 o" g
A10个,B10个
" M" H: n  p8 V6 M0 V8 {9 H) Y' H想要把B的第一个乌龟颜色从黄色改变为红色
9 k8 q1 {' y* q' \/ k( j发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?; s+ l) x1 q' v$ l1 u  g& G& ~
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按( [! U) O7 {) Y7 G! r0 b% _2 g) }! S
得到不同的结果,如图a1 和a2
2 m% d8 p# }* t6 ^7 a% x想要一直改变B的第一个乌龟的颜色该怎样写???
1 |7 B1 o2 e6 R! Z; V& c% f. }" J. L# `/ W2 v. a) n

# ^6 s6 l) k$ _globals [ a  ]
# Y$ Y5 U: P$ T2 Kbreed [As a-A]  
; j: e4 R, |! u  I- A& b  n- q4 E; {breed [Bs a-B]
5 I0 j; l- |7 E# A- ]& X3 `to setup
' T; }  b. I$ Z  clear-all
' A- h5 h" w7 }/ ycreate-As 10[setxy random(5)  random(5)
6 v% Y( H0 A1 kset color 3]
: v/ m7 G. J5 U0 g! s; N& o* Y! i2 g6 Qset a (20)
% N$ S* g) I, Y3 Rcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 * X9 l% w# `8 m0 ]& r
] [setxy a a
9 C' ]8 S* t1 l* ?. G. L. D& O+ |! wset a (a + 0.2)
2 E! e! b1 S- j: X: Z. g$ G9 xset color 45
3 i& r! F/ |' g7 {, J5 I]
2 _/ p$ f0 ?/ g8 E5 ^5 t" `7 N   ]: W1 z1 `( X. {& V3 {6 y# a2 ^( V/ z

$ O6 ?/ z( _6 ~: mend2 r: e9 D) f' J; y7 x- _

# Y; e& v1 K" [9 `to go
9 c+ u! b/ v" G" W' W6 C/ n6 Eask a-B 10 [set color 15]0 A0 b. s/ Y7 s  t/ `
end

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置! |3 s- K  y4 Z% x
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:) v+ d8 ^# O9 Y$ X/ A+ G
  F4 z' E3 x# T" f2 X
globals [ a  ]
, [# T( w4 Q5 n, M% w& ^2 C1 fbreed [As a-A]  
; L! [( L( l9 h, N4 S* H2 n& }breed [Bs a-B]
0 H- ^; A$ _* `; ]- mto setup
& C6 K8 A, @/ Y) L& h2 @  clear-all
2 L9 g% U# I9 _6 U4 xcreate-As 10[setxy random(5)  random(5)
* j" M2 b8 A+ \3 f" rset color 3]
9 [' f( |( X. V( n; r9 T% J" b8 T' F2 N$ m; `: z5 X+ f' ^
set a (20)! \0 e3 H3 @0 D7 P0 @
create-Bs 10[   h3 v1 N7 ^$ N, ^0 z5 r7 D
foreach [10 11 12 13 14 15 16 17 18 19 ] [
$ D( |) v, p/ }% g4 U/ o  A9 Eask a-B ? [setxy a a
. M5 c- ]7 [5 M, dset a (a + 1)& H; x% T, X9 e; w* M
set color 45+ V& Q  K; \* L7 `% U, q1 Z1 X
] ]
0 r: i+ l3 K# k( w" D   ]5 U6 M: R" H( h: J
- |6 b% Z3 R, g2 x& P# f
end7 c1 y$ R/ D& C* ^$ R5 q% C; U* {+ L

4 J4 P7 k( i: u2 y/ _: X5 b8 [- \& K% h9 P
to go
* e6 P0 X# C# l+ O2 e/ F% }0 O" jask a-B 10 [set color 15]
1 f/ J% x! S' [* T8 Lend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-7-1 06:43 , Processed in 0.016525 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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