设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7388|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
- v9 S6 J- }6 T! KA10个,B10个/ n; V( U7 L9 Y2 ~
想要把B的第一个乌龟颜色从黄色改变为红色
: g4 s9 p; G# R' V4 F& l9 Z: Q发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?& J8 c! X7 x" P' L/ C
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
5 u: ?& d9 X3 ^4 X5 E' p得到不同的结果,如图a1 和a2
1 @: b7 t& I' L; e想要一直改变B的第一个乌龟的颜色该怎样写???# F2 Z0 x0 D- N. d; T) l! e

( x1 z7 W* M  [3 M
" _7 O$ y) w' L5 ?4 Y3 Q+ t( Qglobals [ a  ]
; r6 r/ N5 [+ _: g4 hbreed [As a-A]  6 P) C7 ]. o0 f0 L( z$ P
breed [Bs a-B]
' b2 x: K7 |$ O8 O  @" M  Xto setup* G) ]; v3 ~; V% |5 G2 l- C
  clear-all& G, [' ?( I: i. S/ I' h$ q( o0 d( Z
create-As 10[setxy random(5)  random(5) 2 o' L! X4 _! i0 `
set color 3]9 l- r  t( }7 V0 g. o1 [
set a (20)$ B1 J$ j% W. V7 S5 t! _
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
0 z6 z/ r" [* a+ y! B] [setxy a a
' D2 f9 F; P6 M) T) G  U' Q% g- Cset a (a + 0.2)
6 M) U( q9 e  `) Iset color 45
2 X, p6 Q+ Y& s0 e] # o( e1 F5 b" H. _
   ]
# l' c" x3 n  R1 L% | * @8 w6 f  h7 e2 u+ c* O
end8 ^; u! W$ ]6 n# ^( d
+ W: x9 a7 I. ~; x( E) A' q
to go & ^: A" ]) \( A' m# i
ask a-B 10 [set color 15]
8 k9 L+ y  D, vend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
0 r. I0 m/ |- X1 T8 w/ x% y那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:/ m1 Z! ]( C0 ?  ^0 @% T( `$ I- f& {

8 U( U' ]8 M  _  T* c/ r! Rglobals [ a  ]: f8 ^5 i( Z$ X" z
breed [As a-A]  
9 I1 w6 [8 C1 l) |" fbreed [Bs a-B]
& A, ^; _9 I8 f. ~! tto setup
; Y1 }: G# q* g* e  \/ R  clear-all) L' X$ |- f& P" [
create-As 10[setxy random(5)  random(5)
- d: p) y( M% [$ r- v# `set color 3]% T6 g9 a+ W8 s) j9 B4 u

/ e2 Y! ?: z( _set a (20)$ {7 m3 W7 ^: N+ S, Q, S
create-Bs 10[ / C5 d) m% @# [
foreach [10 11 12 13 14 15 16 17 18 19 ] [; ~# q7 \" O; c
ask a-B ? [setxy a a
/ B! s; {% H3 Z0 a; O$ hset a (a + 1)  N% s* P  l, t
set color 45
6 |0 z/ g, o6 p] ]
! H3 {" G, ~9 C) v   ]
' n5 x8 x. ?; x  T* E
/ U6 j7 m* p7 f1 q, t7 J* ]7 Kend( {% T# |8 u7 c- |" @

, q5 M. t- w. d1 G6 _! c- g
% p* H; F1 E6 i# B  G; E4 A( lto go $ |9 I- s0 c" N  m
ask a-B 10 [set color 15]
4 F  `9 t$ A2 n2 E* d) l' |! C1 ~" ?0 Kend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-10-30 11:17 , Processed in 0.012583 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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