设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9197|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B" L3 T! T7 ~& S* A
A10个,B10个, f$ ^8 G, j; ~. G$ ?" U
想要把B的第一个乌龟颜色从黄色改变为红色! W( g; u) O( d
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
. p$ K2 [; C7 K; H还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
& z$ x3 s8 _1 n& Y得到不同的结果,如图a1 和a2, z/ z; G3 e& }$ q& v
想要一直改变B的第一个乌龟的颜色该怎样写???- J- X. q, ~4 l% z5 U+ y2 E; z/ t

% K" T1 A9 U, q, A" A# ]  L/ ^4 y* I$ v. {' P
globals [ a  ]
( T" Q  n, p/ l2 w: d% y. O' _( ]breed [As a-A]  . }4 c) [: I- |$ s1 X. X
breed [Bs a-B] & j7 F. M+ n- G  `
to setup
9 t9 u% P$ B3 D; @$ D. X  clear-all
7 B; N3 @6 l, H7 m" ocreate-As 10[setxy random(5)  random(5)
6 ^% E" V4 q" O2 tset color 3]4 z' H% ?& y8 M9 V5 i
set a (20)
- o& I  u9 N/ s2 O0 V6 J8 D! Rcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 * A5 n# c5 |% d0 }/ S7 n
] [setxy a a ! a8 i9 M# F% n1 H; I; Z, N/ P
set a (a + 0.2)
; m; y: U) n, @set color 45, n0 g- t3 }* q* M
]
# N% W; I' _% r1 p& w) z   ]
& Z9 m! K; B$ z% ~' ]4 ? 3 P4 Q$ E8 r/ x% J
end& d$ q% }* Q; R1 c% r

5 c; p) z! k7 f: f4 |' v  Pto go
* V6 u3 L$ p* z6 B7 gask a-B 10 [set color 15]
' S! d: j. y+ t2 u( Q, l5 J1 Send

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
) M7 R3 G. k8 S  l1 S那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
, B# y& D9 X2 e- n0 B
- n3 E7 p! \9 nglobals [ a  ]
6 H. A6 j8 e8 P- K% s: G# W' dbreed [As a-A]  2 c0 N  L* H7 T* H/ _, o. Z$ \
breed [Bs a-B]
# h: ~2 d( `! b  }# Q# B  ]) ^to setup
& F- I4 g  \, O, z: T2 t. \  clear-all
- Z3 s# m0 y# `: H% Jcreate-As 10[setxy random(5)  random(5) 1 p2 L' [/ [! Z- S' d2 z4 H- V
set color 3]4 v! T) f0 {; [# l9 c6 g
/ S. h6 F  \, U9 g6 D! F/ ^
set a (20)
! `" l6 Y9 {$ C- Mcreate-Bs 10[
, n; C- E2 Q" @% n( Zforeach [10 11 12 13 14 15 16 17 18 19 ] [+ ]- w; m% k8 H# E  O( G$ r8 `
ask a-B ? [setxy a a
- x1 [! O% p% ?8 @+ Vset a (a + 1)2 R4 N, b& A% a$ A; n) i
set color 45
' U& l2 M& x  _, S5 I: `] ]3 i7 ^; N8 o: x+ {6 T
   ]# {" N: D7 u8 P

+ F( u" \( V, O9 j9 v! c6 Zend: W. E/ H% M+ _: X# C. S
" @0 Q+ a5 j4 X  U9 A* v

2 }4 q, l5 j  ~; n1 r) ?8 l6 [& |& zto go
. E4 i( C/ O0 z, ~0 L1 Iask a-B 10 [set color 15]
# f& ]% e+ L; Y6 S. S) i# O7 m9 D) F' Cend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-15 19:08 , Processed in 0.015792 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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