设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7389|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
# d8 c: d& p+ X0 _A10个,B10个. h' n$ I# U2 A8 G: h/ c$ ]( {
想要把B的第一个乌龟颜色从黄色改变为红色, B1 E7 B8 r! J
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
: o/ \- ~0 x+ y7 `还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按- j. `2 h2 C- z: o6 A' X! y& H9 ?
得到不同的结果,如图a1 和a28 j8 B" h$ U: L6 X- M( H. |4 E! s
想要一直改变B的第一个乌龟的颜色该怎样写???0 x6 M; E) A" o
' _+ w8 Y( }: }

1 |7 h* @) n4 d! Cglobals [ a  ]% I" k% H/ [4 m6 ]
breed [As a-A]  / W- w/ O9 ~) p: ?, k8 n
breed [Bs a-B]
$ @; ~. v8 r% O3 E5 v: r; Vto setup
& n" y1 z' W# r6 x  clear-all
' v0 ?/ H( D* |* H& z) @create-As 10[setxy random(5)  random(5)
( o0 ~: Z6 B2 l* I) _/ t* W1 b6 Bset color 3]& s+ W5 Z' k9 [" k: b+ N
set a (20)
, I1 D% h( B$ }create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
" p# L9 H% x  g: k) _  V% t] [setxy a a
7 }8 C( l& @. K8 }( xset a (a + 0.2)
" @4 k3 h3 [: f$ ~" b" Vset color 450 U. d/ l- }2 ^+ G3 K. V
]
# V0 ?0 N: k/ a. n0 _  u   ]/ ]3 f& e1 N6 R# n8 ?

5 [' s2 F- o* {! qend
9 Q+ h8 b1 u2 T! h
3 l" ~/ _; g) H" rto go + B6 d2 ?* x0 A3 n$ s, o: ]1 {" D
ask a-B 10 [set color 15]0 F$ i" b, h- s3 k" V* I
end

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
2 E) }% m) P% b( @2 ]& r6 Z+ K6 w1 M! V那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
3 m, |$ {+ `3 O: e, e( O
* E9 l% a, B  aglobals [ a  ]; n9 E. }" N9 E+ @; I; o
breed [As a-A]  7 |4 L- g: D8 h8 V, ?! A
breed [Bs a-B]
- V6 }1 J2 E% Xto setup
9 p( t! k: e. q6 H& E# c* ]7 O4 G  clear-all9 J7 ?) N2 t  R
create-As 10[setxy random(5)  random(5)
6 P0 D2 O0 _% i" d6 V( xset color 3]0 t0 m% q: Q; P$ V8 v: E& q

( Z+ R9 X5 B# _9 n7 J: Bset a (20)
8 _* G' F. P& s( h$ }create-Bs 10[ - p( @+ h$ _* H, |; R. p
foreach [10 11 12 13 14 15 16 17 18 19 ] [
1 V3 V# D- i2 S' m/ uask a-B ? [setxy a a
8 }/ I1 @- @' N8 W0 \set a (a + 1)1 h! y' w: G/ ?* L5 p0 @
set color 45
5 |/ o4 u; A) O, r+ m] ]
# U. F! _% e& h: m4 s; F   ]; N0 @: ~7 I. E0 l3 n6 m7 Q& u

2 z( I+ C" M2 R% F5 c) L% Lend$ \5 K; b# ]( B3 |& J7 s2 D

6 ~7 ]8 ]' j! G' E; L$ z( @0 }
( y# r' v( n$ P3 Q9 Kto go
+ o8 S- v' P7 u, B5 g& Mask a-B 10 [set color 15]
1 Y0 y, S3 d2 N/ v+ ~' dend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-10-30 11:30 , Processed in 0.013392 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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