设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7772|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B$ ~1 U% C6 u  V+ v
A10个,B10个
! D6 M+ k: o- b9 S想要把B的第一个乌龟颜色从黄色改变为红色
( c  b9 v; J; c8 v& A& n发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
* r6 L; r, f0 v- n' s3 l+ v( l还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按! G  n9 d! {( P$ v! ]: o
得到不同的结果,如图a1 和a2
: u+ ~1 {+ G! M2 ^' k$ N& k4 S. L想要一直改变B的第一个乌龟的颜色该怎样写???
* N* B+ d" j) A1 }! W
5 I6 M- e) y6 F+ v: B3 O4 X* \/ j8 @1 t
globals [ a  ]: V) z& p' |2 i8 r
breed [As a-A]  
( P! `8 |- W/ b( z! U8 s5 ^breed [Bs a-B]
8 M/ Z, w3 f8 T8 Eto setup) u9 ^, a+ G) p) s" V
  clear-all
9 @" a- b7 K. I  g( Hcreate-As 10[setxy random(5)  random(5)
8 g+ M. D7 X+ Gset color 3]
( x( M, n+ @7 Y- Pset a (20)! B/ H, h1 H& G) ~' ]# e: a
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
( Q* x& K( ]9 w8 P/ Q] [setxy a a ) a. g3 h$ N0 J
set a (a + 0.2)/ b* Q( e$ E% B+ L
set color 450 h2 x9 C' c! C
] ' }# ?1 a2 b4 _2 ?) n0 z
   ]6 S( L% j4 c" `
) V& U$ ^  ?5 Z0 N4 G
end
$ x* z/ _2 s) e% @
' y( E; m; q4 Z% bto go & y/ I  ~, e/ U1 H$ r: e- r
ask a-B 10 [set color 15]
# H9 r8 K: g' @% T, L2 R; {) K; qend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
7 o' I) ~9 q8 `) l& l' v那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:+ W5 t6 Q) b0 G# [6 A; O2 c
! e1 W7 f; N; ]& ]1 y! v
globals [ a  ]
1 z4 ^* r, N5 mbreed [As a-A]  
/ Z3 p4 c) @$ i' `4 F8 cbreed [Bs a-B]
; Q! m% ]- A: \! P7 k5 \to setup
% X+ |7 |0 T2 w; Q! i& y  clear-all
6 N( P, o4 a& \3 a/ ]" ycreate-As 10[setxy random(5)  random(5) / _# C& X% R2 s! I$ _4 I
set color 3]- Y4 L2 K$ T, S% O; d
: n& i+ A9 o: M7 Y" d
set a (20)
/ S* P- m- G4 E7 P2 hcreate-Bs 10[ 5 p4 e; M1 T- o( I6 B' {( w6 P
foreach [10 11 12 13 14 15 16 17 18 19 ] [  x/ s# w6 L9 }) y. M  U
ask a-B ? [setxy a a + t  i% r4 f  u7 U& t
set a (a + 1)$ W6 S) z$ v: X. o* v: Z, V; `9 p
set color 45! ?8 f5 T1 L/ h
] ]; y9 T' M2 x3 c- Z( s
   ]
3 x% `4 m8 K& Q" W) ^! E' U* W 3 }. }/ T; A- L7 d9 X
end
  n0 S  j& ]9 l/ {- e8 |& |& z5 \% R' e/ c0 E
9 ]& g/ y: c  {: H4 X7 i! w3 y
to go
; ?$ r# S* e" z) L; D" cask a-B 10 [set color 15]
1 V3 o( i( P7 b, `end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-15 14:24 , Processed in 0.018270 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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