设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7083|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
4 w# ^- O1 u/ E! P) |; d) d0 S" wA10个,B10个
, }. W' I+ \5 j: k2 u+ F想要把B的第一个乌龟颜色从黄色改变为红色! G  m! ^" O8 `1 X0 m2 R, I
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?9 @5 H! X, W* Z2 K
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
: M6 m1 y" t/ `; r; j# @  Q9 r: L得到不同的结果,如图a1 和a2
9 o. R5 c. l2 O: R+ _想要一直改变B的第一个乌龟的颜色该怎样写???& S# D* W5 e8 n2 }( F/ y- F6 Q
0 A, I( G: D3 Q. c3 C) q  [  A
; T. j; s5 o4 @: p8 y" j
globals [ a  ]: I) D4 E5 v4 P6 I' @
breed [As a-A]  4 S1 m! S3 e0 ~( \# N6 |6 B2 x
breed [Bs a-B]
# d4 V" N; I+ F* u3 f1 @9 D' sto setup9 a/ U; p  f  r  y' Z; I
  clear-all1 O6 v# e) N. B7 r! Q  ^
create-As 10[setxy random(5)  random(5)
! s. n0 b( l: }set color 3]
" v. U- v# k6 T/ v  k# Fset a (20)
$ }) c) f4 a6 Y* Z9 _0 w2 tcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
& Z7 ^+ s; x# w# M  l' g" I( U] [setxy a a $ `# O& s* x9 V4 O8 o$ ]7 h
set a (a + 0.2)
( U$ B3 J& `8 l8 \  aset color 455 t: C, m: L+ n, L
] 9 c1 _1 ^* z4 q1 T- h
   ]
6 P, K0 S! B7 N3 O 3 r" y, I& a8 G9 I
end
3 W* x' l6 c/ ]8 ]9 l# N! |8 _. t3 V+ R
to go 6 L, ]3 l+ U, f% H
ask a-B 10 [set color 15]
$ t: ?# t2 p8 C1 Uend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置/ R. b0 e0 n6 ~" \: o
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:$ `1 U  u/ P/ h. x% @4 u8 k
+ T9 c: ?8 a4 [* R/ t
globals [ a  ]0 v* X# s; J' n! t% D- x( G
breed [As a-A]    }5 c, U& q! p/ y$ N6 ^) u
breed [Bs a-B] ' o  S9 Y4 ^! M- U+ |! M
to setup
" H1 |; _: m% P2 l/ S, ?# _  clear-all; A$ T, a' ^; G8 x' ^! }3 _( M# i
create-As 10[setxy random(5)  random(5) : e0 Q* g1 B6 p0 J! u! i
set color 3]# Z( w* ]( K9 r( i/ e9 K
$ o' T) a$ p8 J: C( l; |6 d0 y- ^
set a (20)
6 q$ A2 A, Y5 J2 Z; w" A6 ycreate-Bs 10[
4 O- r% f  O- M  H; |5 _foreach [10 11 12 13 14 15 16 17 18 19 ] [
# V4 }* Q+ p3 i0 M- fask a-B ? [setxy a a
7 |, B  t/ w+ Z- M2 a" {7 cset a (a + 1)
- e1 _3 q1 }# c, `" I+ u7 Xset color 45
7 [1 R; u9 U( V, C5 ^/ Y0 n. b] ]
: ~* m9 [1 F9 M/ J% T   ]2 r$ U( E# o. b0 B7 B2 b  @& |

/ C" ]+ M6 S; {8 I5 Iend
- l: U( Y0 W& b8 L/ o" o9 a! d+ ^# t' @- U, G  u
" b6 {- i/ X3 Q
to go 6 j1 N5 D+ r' _9 G8 p. |( [1 A+ i
ask a-B 10 [set color 15]
" q7 T& Z  D! T3 J! gend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-9-13 22:11 , Processed in 0.012570 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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