设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7774|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B! f5 M2 h% P, ~% s2 `" g
A10个,B10个- J+ x1 i' }- r0 T. x
想要把B的第一个乌龟颜色从黄色改变为红色
4 e3 S( O( x2 H8 @! ]发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?+ H/ }: n6 W. G+ S2 _# v
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
; c# M) K+ k, L. H) ~1 ]: @2 b得到不同的结果,如图a1 和a2
3 v  A' l; B( }8 z3 q* x0 P. O想要一直改变B的第一个乌龟的颜色该怎样写???. x% F# c) p- l9 X+ y
# M, m. O1 G! Y  t6 v$ T% R0 E4 M

/ f4 I3 ^' z9 b+ U4 `globals [ a  ]8 G& y( Q; |* D. S/ d0 q$ w0 V
breed [As a-A]  
; e9 g4 Q" Z: x* H2 |) sbreed [Bs a-B]
7 e. w0 ]' W/ Wto setup
6 l. J  o+ ?' u- g4 y0 r" ]  j  clear-all
+ J1 S" N8 `" O! v3 ]create-As 10[setxy random(5)  random(5)
7 S0 N/ ?  Z8 U. d  v. B/ U6 Gset color 3]3 [$ e% d/ ?8 q; j6 c
set a (20)) I% J- u0 S: T  g0 k6 h
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
2 [' P! J9 j/ N, y) U; i] [setxy a a
% @7 Q( O" V. W: J6 mset a (a + 0.2)
4 v# H0 F6 n/ x& ~3 z0 nset color 450 U) z/ n5 {: [+ E' E) E, B
] - p" h& G- g" b% }6 ]$ K
   ], L$ i# Z  _( W5 z3 J( U; g! o; ?
: F& f, m6 O8 O
end
* L: a& S. ?$ B3 q; I  V5 |
  y! M2 u! m# Bto go 9 q0 R* u; i# C/ y# N- O  n
ask a-B 10 [set color 15]
# k7 \3 f' R7 _1 |6 oend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置, C0 \2 I. y- ]8 G# T8 U2 j1 O9 Y
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
6 J; j" z0 T, }2 a. b1 I2 \  C7 e& k+ N2 k
globals [ a  ]( \' z: Y. x5 P! ^, ?2 {
breed [As a-A]  
( W; j7 }( Y9 \% @breed [Bs a-B]
; a& n4 ^, F$ \; oto setup/ L0 j, d% G3 c8 j$ L
  clear-all
8 T: `( p2 B( Z8 r( z8 hcreate-As 10[setxy random(5)  random(5)
2 G" W* z$ r. qset color 3]
, R- T, L8 e; \& ?" T9 x8 [5 r
- H) N: U2 I0 ~6 |# x) e# ^- w8 iset a (20)/ H3 M3 K" T( F+ e: |9 c
create-Bs 10[
8 Q2 L# T" x  X6 m5 [1 oforeach [10 11 12 13 14 15 16 17 18 19 ] [
- S9 L4 r/ h7 p2 p5 F" ?ask a-B ? [setxy a a * F$ Q3 h4 d1 j) k
set a (a + 1)
+ V' {3 Z) Q+ g) |" `set color 45
3 Y  h4 x9 ~( @0 C2 @] ], B+ ?1 q/ G: I7 t% @, O
   ]
7 \* ~. {7 {( k$ Q! W # \& a1 |( ]4 T% W# y$ D
end. l, ?$ E1 q1 D9 W* c3 E$ r
0 h, A, |/ a* Y7 t

/ H' D: |  L) s" _0 |( j$ ato go
0 \- o" k  T9 a! b0 e  b9 m& T$ kask a-B 10 [set color 15]
7 x( g  |0 a& Mend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-15 16:06 , Processed in 0.013735 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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