设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8671|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
) D' t! g# z$ a5 ?# J) RA10个,B10个
" p" E6 m/ [. |$ e4 d+ I) p  ]想要把B的第一个乌龟颜色从黄色改变为红色! L) q" R; S+ C" ]
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?! T  M/ s* Y' S7 v
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按* Y- g  ^; H/ l. g+ v
得到不同的结果,如图a1 和a2
' v- N5 x, F% i# T想要一直改变B的第一个乌龟的颜色该怎样写???! N- M+ [5 h! E0 L! e' k  W3 z/ }" O
# R+ |- g) }# I; D3 N) M- B1 v
/ m. P! R# P& Y2 P( K
globals [ a  ]
+ H* R. C$ C1 [breed [As a-A]  
1 t- }. Y2 z* u7 Q+ K8 Ybreed [Bs a-B]
4 Q5 s7 Y: @' C5 s" u4 b3 w6 B7 qto setup
/ o7 h% }0 x1 _( K  clear-all
2 c! n: O0 u: zcreate-As 10[setxy random(5)  random(5) ' d, ~' q( O. x# ]  M
set color 3]
) C# f$ C" y  }2 [& K- pset a (20)
' T, C; R0 o& J; H* X. Tcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
* s' ]4 @7 S: H7 y/ U] [setxy a a
0 S7 T6 R, J2 [2 h: H8 Y# Fset a (a + 0.2)$ U/ p2 w  A  l9 k& M+ O- ]" H# C
set color 452 K% U5 c9 O6 q; X0 A
]   ^3 g/ f* N. y5 j. v% x) P- |' W
   ]3 F' r7 E) ?! \7 s
$ v" m( z& ~* M4 N
end
7 n) t9 o, B- n1 ~5 F+ c1 O. @. W" X8 B% Y4 s- B  h0 V7 ^
to go
2 t2 J6 A2 C  d, L( Sask a-B 10 [set color 15]4 X6 H" i& H# v# w7 x
end

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置( z, t5 H1 ~4 Y' v
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:7 g* y, Y6 {3 z5 }; \; S

/ d9 M) X" F3 Aglobals [ a  ]
7 I! N, H& T8 `breed [As a-A]  
! p& ]0 {/ p9 k* m6 Gbreed [Bs a-B]
6 Q  G2 r) @! `$ f1 p7 bto setup
4 R8 B0 x* e' p, Z5 {  clear-all7 h) Z6 V% f$ G% I; R. w5 \; |
create-As 10[setxy random(5)  random(5)
- ?5 j" K* b" S0 F; x: p/ sset color 3]! o1 X+ w) \9 u9 ^4 J
; D% g% u0 d3 H9 Z( {! u
set a (20)/ p' F  n! t. U4 q1 [. {
create-Bs 10[
7 W- M* o! s& t" q& c" H3 C  tforeach [10 11 12 13 14 15 16 17 18 19 ] [" U6 \4 S. ]+ @5 M) r" e% [
ask a-B ? [setxy a a - N+ ]1 n. o' q% T) ~5 Y3 @
set a (a + 1)
  c  K# L8 u- Wset color 45
3 |+ Z& q. a$ i9 G] ]& K; ^% H8 A8 t3 q9 ?& K9 p
   ]
1 l. r# _# n1 d* ] , ^4 D- s* ?9 I% P- h, U; L2 Y! F) v
end
5 O, S. _$ s% u% O4 B1 U/ Z% D# _
! J: y* V- ]1 [5 L2 `
to go
3 l+ Z- _  H) o; xask a-B 10 [set color 15]& Q3 r8 X4 ~! ~
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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