设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8450|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
0 {1 C, {& s& C- @A10个,B10个5 N( b2 {. e- l$ L; {+ m" M
想要把B的第一个乌龟颜色从黄色改变为红色9 ~6 c) r2 f! `
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
+ B) U/ A% b/ a5 o) D0 E/ G还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
' S% [4 _/ R' ^2 |得到不同的结果,如图a1 和a2
0 T8 O  z. ?3 [! h; v1 G想要一直改变B的第一个乌龟的颜色该怎样写???, J4 X& K" k* H6 M2 ]' p
+ T# C0 `. e0 E  R; ?

/ n% S  r4 e5 c3 h  D7 ]globals [ a  ]
; O( F; `1 j3 d% s2 }breed [As a-A]  
, Q4 H7 H1 V6 X5 Y- c' xbreed [Bs a-B] 0 L+ O$ f& o. b: |$ \
to setup
4 K: M+ u9 _- J  clear-all
$ Q0 V+ B, ~2 fcreate-As 10[setxy random(5)  random(5) ; g) [6 `3 Q8 P. |  N, s
set color 3]4 o) K* E, K! O. r& l* S
set a (20)% u0 o8 H9 S: `) Q% `7 V/ F
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
' v- i7 v5 v0 _$ V& a! W0 W] [setxy a a ( O2 A2 h: x' j) t" u
set a (a + 0.2)
8 V- {9 Z& J# K( Y" I" ?3 d! E  Eset color 45/ y9 A/ x$ L3 f5 e( S/ A' [
] : ?4 `' o/ M9 [7 U, O5 f  v# K$ ]2 W
   ]
" ^, x2 g( S. ~4 }; \) P
# [& O* I5 l: F9 e% }end
8 Y  K0 R( V! i" g9 X5 y& F! j5 k1 R0 g: t/ f
to go
8 _( W( G' s8 A: d4 qask a-B 10 [set color 15]
' q0 S6 w* h, R. V/ @end

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
& n6 L' x/ H0 V' E6 x# U那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:8 z/ D2 H9 H# r1 |, o( b

+ D  m3 X! q# o0 ^' c( [0 @- eglobals [ a  ]/ G7 a. f, `/ ~) E/ {
breed [As a-A]  2 ?& o% y5 @- C6 T% G
breed [Bs a-B]
# V% s# a, d7 @to setup. _  d9 c/ L. B+ p1 Q/ Q
  clear-all
' f( ~( v0 i' Y, M2 m; jcreate-As 10[setxy random(5)  random(5)
0 V) E7 K" ^1 K3 x7 nset color 3]
0 r3 f9 |% m9 o+ W# a" }4 t
. u- }+ ^! o/ K0 o* W1 pset a (20)4 N  n6 _& s) ^7 o4 a% a
create-Bs 10[ " ^$ g' s  ~, V  i
foreach [10 11 12 13 14 15 16 17 18 19 ] [  L  Y1 ^" `# P  y
ask a-B ? [setxy a a
' Y( Z. X: ^6 K5 _set a (a + 1)
0 n+ T/ Z6 S  \6 C9 rset color 45% g: W$ c5 _' D" a7 G* D, v
] ]( m" g$ P. B; L) _
   ]2 J' r; a+ n' M* f! `5 i
3 h' W; W9 S! T  ?% M
end, M, ]8 M- G1 Y/ i% _, P
$ V& J5 x, g) ?2 P3 P2 B. X
+ n; u. C3 j; Z+ b
to go 7 p6 n; b) S; s
ask a-B 10 [set color 15]
% v2 X+ D7 z' Y  e" u/ vend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-2 00:52 , Processed in 0.016044 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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