设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8969|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B) a7 a: S; G" o
A10个,B10个8 k( m& h( |" [$ E, l
想要把B的第一个乌龟颜色从黄色改变为红色
: J/ p% S9 D/ H0 I6 y$ Y; b发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
+ c; H8 u7 K, J& n# K0 P3 L1 b还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按9 a' p, {" G( y! T$ }
得到不同的结果,如图a1 和a2
. F) |+ u8 s0 O2 m$ k( k7 u7 B' _想要一直改变B的第一个乌龟的颜色该怎样写???
& l7 S. ?2 J% R5 e8 B. K
. `6 p- E; d1 w" F. K# ]9 w1 X* I3 E+ l* q
globals [ a  ]
( L/ z5 s& f" q* j: N+ [1 M+ Gbreed [As a-A]  # P3 x. r- ~8 c
breed [Bs a-B]
/ D: a) ?, B) h+ \$ k2 B* nto setup6 V2 d9 k6 S0 b# K5 Y
  clear-all
. [7 b5 o/ O  n: x3 g: hcreate-As 10[setxy random(5)  random(5)
; v3 d7 B0 t: @  p: p5 `set color 3]; |( @+ F' E+ Y+ q/ \& j, h; A
set a (20)0 V/ N! E2 x2 Z  W; A$ I* w$ q# x
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
2 e! {2 _" V6 P) }: p9 f( Q5 O) U] [setxy a a ! [3 y/ ^: h0 t/ l8 f
set a (a + 0.2)
# U4 H/ c( A3 x$ N6 jset color 45
* s4 \) f% ]3 I" K# p/ O! ~: O  H] $ C7 f  N4 p6 Y  K# ^
   ]
! A$ x8 V" m! E' M. k, A: J
2 b( o9 D; I+ K- U4 ?0 C7 oend
& O7 i/ d0 U. s1 a1 E
1 c# M. W/ |/ L, o1 S( ~& pto go
# ?/ I% k7 Q. S+ Z. ~% |, ?ask a-B 10 [set color 15]
' Z! l0 i% z- M, H# n) b0 Nend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
0 p$ M0 F3 `8 j0 S5 e* A那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:7 R. D  [& L" |/ A. _+ L! h% C6 n6 n
7 G7 H0 u% s. s
globals [ a  ]
3 ?( S# o# a% d+ L3 @9 Cbreed [As a-A]  
# ^  {! G' S; V- J  {! Vbreed [Bs a-B]
5 U9 v5 U2 u( s$ g. kto setup9 r1 E! n/ y( N' Q* o5 u0 r
  clear-all3 I' U& G) A. F% f- a, i' B1 u
create-As 10[setxy random(5)  random(5)
) A5 s8 [& O2 r; U/ z/ H# Y/ dset color 3]" w$ w& z) S; i6 C1 [% w
. e- x0 F: D4 y9 n( B& X
set a (20)
9 U3 }* z4 g( u% t; M& Q( g! Lcreate-Bs 10[
% s; E0 k$ r# q( Eforeach [10 11 12 13 14 15 16 17 18 19 ] [
+ p' e% {& ]1 e" @: h7 Bask a-B ? [setxy a a 7 E$ U0 N6 Y) l4 X. P% a* Q6 m7 F
set a (a + 1)2 ?2 |; ]+ I2 y. o: @* Y
set color 45$ l1 k, B+ P; O) L/ S
] ]8 O& Z6 U6 I$ J( T( x
   ]
  ]# Q4 s0 D3 Q$ I
0 H0 g2 s! X2 k4 A, w; L" N' h6 xend6 _  U% O: G: I4 c  A7 `
5 q3 o, d2 g& v

. B7 m$ d* w+ |3 z. ~to go
3 w0 j9 y8 e0 g& S2 v+ Aask a-B 10 [set color 15]' G2 X9 D) I4 K3 K& a, G: R$ V
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-1 07:27 , Processed in 0.013963 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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