设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8617|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
% b' i3 K: |7 A" n4 K5 W2 `A10个,B10个* k* u9 O7 Q  e( ^% W( b
想要把B的第一个乌龟颜色从黄色改变为红色
6 @0 U, ^: P" E: n& y2 G) R( y9 M发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?) k0 K: X5 D2 z! @( ~/ l9 {6 k
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按. k" e3 l* J4 F  d
得到不同的结果,如图a1 和a2
; D, A  J, H9 L8 ~想要一直改变B的第一个乌龟的颜色该怎样写???" W" B/ C4 D/ s; p
5 \/ v& }. D+ @/ v" X5 u/ j( B
3 W+ v* G) e% e% i# U. q  N  D# h, _
globals [ a  ]$ G! Z( @$ O5 a9 C) O5 |% K& u
breed [As a-A]  
& v( [, _) y; u; w# @! m4 A8 `9 Wbreed [Bs a-B] 4 U5 |2 K- K) y, f
to setup
0 v( x+ f; h/ K0 ?  Z  clear-all- h. X& D! U  d$ H$ J' |1 O
create-As 10[setxy random(5)  random(5)
  a8 G( |  r9 lset color 3]
4 L9 }; t* @+ Sset a (20)
( g8 w! Y# F9 y8 @' Wcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 " p9 S% q- F( R) o$ W# [' ~
] [setxy a a + D! j  F: q7 H: u1 N
set a (a + 0.2)
$ E$ y- S& z0 y$ Qset color 45
& S- n, x. m( s0 I9 Y+ k2 F% U]
, F) i& a$ n0 U8 {/ ~# I4 J/ l, o   ]9 K3 T3 U; l" i% m$ F
( W" Y/ a1 p& k& t* K
end! N% t. a5 T/ L; D  }
) p! o  ~0 ]( n. R+ A
to go ' j* Z- q2 i  y5 [5 D) q
ask a-B 10 [set color 15]
9 N, e1 y5 [# |$ F+ w0 C2 H. d0 Oend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
9 l8 X2 e2 x( o2 J; N9 P那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
( Y& e6 ?; J" l) j4 C' M6 W. V* k* a4 Q% }1 T
globals [ a  ]
9 p3 E5 d# Z5 ]* v. ibreed [As a-A]  2 c' @. D( U) b/ ~( l
breed [Bs a-B] ; U# T1 L/ j. G
to setup
5 Y4 D' g# W/ [7 f' H  clear-all
5 p' q9 G+ U, t0 `  @* F$ G# ^7 gcreate-As 10[setxy random(5)  random(5)
7 d6 Z3 T0 _& |set color 3]
5 q, X2 m: \/ h/ x# r/ @! J, X5 R1 {( y3 N" J' O8 ]5 t3 z; }
set a (20)
, p' @- s3 w- u0 E& E- Hcreate-Bs 10[
1 c: l; Y5 n4 ]& D6 N6 O- Rforeach [10 11 12 13 14 15 16 17 18 19 ] [8 ^! h: i, d: |4 L
ask a-B ? [setxy a a
. R1 A, \3 g4 d. S, ~- i, k! n% mset a (a + 1)
4 b0 m* y' i' ?6 N) \set color 45
" ?4 n1 Y) f& r4 c7 ?) P! p8 D] ]- h8 ^* ^- z: k' s6 O9 [4 B
   ]
3 V! c9 s5 |* E% R- Y! X
, }7 o/ a# M! n6 C& Yend
" m- q1 J1 |0 e9 V& D% ], @  I; a5 O) Y* S! y9 `+ ?

. a) l! X2 t$ b/ Eto go - Y  a' c3 U" U7 K
ask a-B 10 [set color 15]; e; G/ z  ~  W& ]% {- z
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-19 16:29 , Processed in 0.015413 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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