设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8672|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B. N+ l2 o: G+ _5 E
A10个,B10个, H8 w0 n- T$ j
想要把B的第一个乌龟颜色从黄色改变为红色0 ]/ u+ q( d7 D. u7 P( w  Y2 L
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
6 c' S. k5 n7 ^5 B; h- I. e% }还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
4 [, e: A5 j$ t0 J2 `. x5 D0 b得到不同的结果,如图a1 和a2
4 R) `1 V! ^4 |5 e- d' B! P想要一直改变B的第一个乌龟的颜色该怎样写???+ O5 Z) c5 Y! j8 b# E$ t

1 w+ W1 j3 @- Z$ T( {* p) E( V# f9 G% T& P2 w/ c5 Y
globals [ a  ]2 T$ j# i* h5 @3 N
breed [As a-A]  
* ?6 c1 J1 U* H! ?  Ibreed [Bs a-B] $ I* _6 a0 e& h. {* E
to setup( N1 H, _) ?  {5 x, h
  clear-all
+ @8 b8 m* Q6 n1 b  N% qcreate-As 10[setxy random(5)  random(5)
9 _  J. n9 L# t& W$ |set color 3]
7 a& [* U2 N9 S) iset a (20)
0 n! \) Z" U8 e+ h( Dcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
9 N+ H  w% i8 W& Y] [setxy a a : k+ t: N9 C, |' @! X  Y$ a, v
set a (a + 0.2)2 A. Z* ]; q3 Z8 Y7 v) Z
set color 45
& R6 K4 N# W0 l& F] 7 o' x: a* Q' V5 G8 e8 v4 y
   ]: g; f& {; A) d; r8 M& _
( r) _* _, a: @5 I8 M. o1 ]/ m' D
end
) j! r* H  j9 `# A
0 i- ]& B. }1 z* t# J% e3 hto go 8 M& X( A- D$ ?% P
ask a-B 10 [set color 15]
6 s6 W8 l/ d  T. N5 w2 @7 Wend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置8 |- ?5 w/ p6 O# O5 A
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:  Q0 P6 O6 o5 ^
* C  y9 U1 {3 m  v1 t4 \6 U& S9 F
globals [ a  ]* Q* J4 M& q& `+ }+ M
breed [As a-A]  
+ v% O+ |! \; N8 Z% D; tbreed [Bs a-B]
: z5 E7 z! t% O  F. nto setup
3 V5 H4 f1 X  ?' X8 s7 d  clear-all" e( u1 w# x" s9 z8 A: `
create-As 10[setxy random(5)  random(5)
6 g; y) r5 W9 D; f: t- Yset color 3]3 c4 ?1 K% S0 ^7 y/ i
# {9 U# R4 e& s
set a (20)6 d; L, G; ^  I- Y
create-Bs 10[
8 s$ [8 i) g  R$ z. o# V9 J4 Jforeach [10 11 12 13 14 15 16 17 18 19 ] [5 E. J8 p/ n7 F9 n8 q$ X. m5 g
ask a-B ? [setxy a a ' w, v0 k. g8 W& S  Z
set a (a + 1)
( _1 c: Q2 j% L  R3 tset color 452 s/ v0 r1 r% I2 D$ ?% Z1 A6 v2 Q  f
] ]
) [2 H6 n  L" B  Y* `0 c* c   ]: y6 B6 I' j$ w1 z  J
6 V2 g) m4 K/ U1 t! u+ `9 }
end9 c0 S, q. i0 v2 S4 b. x

- R# s7 Z5 c. H. V
  m4 o) ?8 r) d1 ito go 7 o! A% r8 H/ q9 Z2 v* ?
ask a-B 10 [set color 15]( Z' s/ o0 e: e" W$ _) m8 N
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-5 07:45 , Processed in 0.014378 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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