设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 4824|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
1 |+ o' j9 w5 t& ?A10个,B10个
( `8 N+ [  J; P想要把B的第一个乌龟颜色从黄色改变为红色
* S" w4 @4 N) E6 ?; B$ z4 w6 B发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?. ~/ m" |& [( Q% W4 N& `. }7 T
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
- ^& M; k: y, ^& l' v8 P& S# ~得到不同的结果,如图a1 和a2  k- O7 J/ Z- X7 Q& P" `0 @' b4 c
想要一直改变B的第一个乌龟的颜色该怎样写???
* Y! O2 o' h, x/ c5 P3 R
. a* i  [" Y0 p& p
  t9 Q# z$ ]. \6 P& q: Dglobals [ a  ]
$ k, a  [/ |) {' dbreed [As a-A]  
/ M0 _* I9 R* s9 I2 _  e/ H6 g5 r5 xbreed [Bs a-B]
; d, u; q9 o2 ^5 @to setup
5 Y* y, r0 O7 l# F  clear-all
$ y& _/ E' t; Gcreate-As 10[setxy random(5)  random(5) 7 ^; A6 v* r7 y' P) S  L7 j) z4 h
set color 3]2 W: r0 O/ t$ a" n1 e1 b
set a (20)9 h$ d! c, _& Q5 }- A2 I: P
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 ( b# t  \8 A6 v7 B1 ^
] [setxy a a 0 `% Y1 V/ l! i- f/ W
set a (a + 0.2)& {- p3 C7 Y4 p, a$ \; e$ {6 N
set color 45
& a* D7 T+ c& ]]
. o" g1 T, I3 d/ l' g   ]
( ~/ X' S$ I& |- T3 m6 P4 v# t5 {
5 `3 e/ d1 n' p; qend
: a8 D# [) R3 \! N$ O7 `3 Q/ N
7 q0 x+ H, k+ M0 j# ito go
+ w9 j+ m* ^; A: C3 `ask a-B 10 [set color 15]
, }2 |: y' w. a% Q8 R9 hend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置/ J1 q) E# E9 R6 Z+ `, Y% ?* r
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:; u( X8 j& W8 c: s0 h- w
$ \1 ~9 U( S' G/ G4 b5 C
globals [ a  ]) }2 H+ F$ m8 ?3 v
breed [As a-A]  # ~/ ^2 Y% Y  r
breed [Bs a-B] $ X# a# i+ q/ J
to setup
9 H7 Z% {. E/ R# ^! E( I, Y  clear-all
( f( t  u% G6 I/ Z! ecreate-As 10[setxy random(5)  random(5)
7 [3 ~0 x0 _7 e" fset color 3]
1 t4 c) m) h. ?+ X! W
) u4 i* l7 y( ]3 Aset a (20)
8 S  w7 e' n9 X7 A* z+ `2 @- ncreate-Bs 10[
- L6 t1 T# f  Y( Mforeach [10 11 12 13 14 15 16 17 18 19 ] [
! S9 y1 s) V9 R9 c% \, Q0 H) U2 ~1 Eask a-B ? [setxy a a
1 y- j$ q6 _6 W1 W0 e/ f; Dset a (a + 1)+ E, R1 j5 r( d" ~* L; ~3 W
set color 45( X' e* C+ u& O9 t3 R) ]
] ]
" p0 A' i/ B4 Q6 v. O$ V$ \   ]
( e" \  M5 _: W) \: J) c, t: U) H, B " D$ `# M6 r' [
end* L1 K+ c4 Y+ x1 r! r

. i8 a7 ~4 M" N" T) W
2 |3 u8 g4 J, o* `3 Xto go 7 I- B5 O# t1 X/ z: w& ^
ask a-B 10 [set color 15]/ }  T7 L9 z9 Z/ a. N
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-6-16 00:46 , Processed in 0.012499 second(s), 13 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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