设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8199|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
& z: [' e' V' h/ A6 E3 ?  pA10个,B10个
$ K% [* r- |, y6 G想要把B的第一个乌龟颜色从黄色改变为红色
; I' ^) Q" D8 W( V3 n. a1 ]7 C# l) ]发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?+ }7 n  D, u+ ]
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
, s) D5 j8 b- I) Z% h5 V) Y7 o得到不同的结果,如图a1 和a2
% e9 M5 e- c+ m: K; v% W想要一直改变B的第一个乌龟的颜色该怎样写???
5 T1 q7 f* z+ |0 x. t6 a' R6 S
  v" g  q+ h; j8 f0 _
8 S: g" F+ c& \* j' L" a5 ~2 [globals [ a  ]6 n" i; f% k9 ~9 ~
breed [As a-A]  : p+ o4 h7 {+ ]
breed [Bs a-B]
& J7 x. T; M( m* Q' @to setup. ~% u) D3 ?+ L
  clear-all9 O3 ~6 |5 A0 e2 v
create-As 10[setxy random(5)  random(5)
+ n6 L6 Z* w+ B* i+ G3 Mset color 3]
0 u* b4 Z1 S# {7 l# `; S5 }set a (20)3 {8 r+ s3 X& X
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 , O4 ]. r/ [4 ?3 s$ ]
] [setxy a a . I: I' s4 U1 u  \1 L# z3 P$ @
set a (a + 0.2)
) k: W8 d6 ]" V7 A8 s1 H5 r) y; F( Bset color 455 o  W- m; x3 @
]
# n, v6 a7 f" i0 m   ]
8 x; a4 @4 j! t
9 n& m3 W9 S+ z- jend5 `' W" H  D1 B' a" [
- A' A& k: c# T& g8 |% p4 m
to go
4 V+ V: l' T( }5 R3 ~ask a-B 10 [set color 15]
* I$ S0 s+ X8 j4 p- L2 r( Hend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置1 f* w) u2 f* k' f+ K, o/ F
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
& ?9 M& U( f7 ]( m
; v9 J' d' S/ o# h$ O9 pglobals [ a  ]
; o  N% E1 p1 p8 d9 }5 jbreed [As a-A]  
6 w) g4 @- w0 K. vbreed [Bs a-B]
. z6 U8 V, \" {( u# Lto setup0 E* Z2 {* p3 M, b0 n4 z+ v
  clear-all
9 \7 D9 X& m5 `' }create-As 10[setxy random(5)  random(5)
- g. z! m, [* E( mset color 3]
$ z  z3 O% a0 M# c
# w+ y! J+ g& f2 W" Oset a (20)
6 m) w  v( n$ |' a/ Q3 g$ @create-Bs 10[
6 E- m4 f- l) U; @foreach [10 11 12 13 14 15 16 17 18 19 ] [: t3 S+ o7 G" N4 c
ask a-B ? [setxy a a
2 o& B' M8 Y, l% iset a (a + 1)
5 G" L+ M3 x. r2 I' }+ Lset color 45: h' G# _0 t: D' L! K
] ]% x& N& b; U( S- \' N0 e( K
   ]
5 l, l- w* }' Y; A
8 C. ?3 G- E8 gend
: e4 t9 h$ p; ]9 q( @
( F/ `( M5 T4 r7 D6 ^3 {
5 Z4 T5 |4 P5 d  j. ~! l4 Hto go / C+ Z% J/ H5 V/ s5 Q& [
ask a-B 10 [set color 15]
2 ~( H% e7 a) x2 O/ ]6 l: l3 Jend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-13 19:37 , Processed in 0.013045 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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