设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8198|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
1 f* ?& l* \8 N/ MA10个,B10个" ]" u4 G/ H- g  ]% o& y8 t
想要把B的第一个乌龟颜色从黄色改变为红色3 Q, B! `* X! \" P0 _9 y2 r, h
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?7 w2 ~* ?7 w  C1 K! N2 b# `1 O
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
/ g% E# P+ X* R9 z/ I: @得到不同的结果,如图a1 和a2
2 L' y$ F; w! f! a. @9 M想要一直改变B的第一个乌龟的颜色该怎样写???
/ Z) x5 a. i: p# n2 p8 {! z; k9 M0 `) I2 {) Y$ i- \4 [
! R( L0 X2 f. J: w0 l4 t' B
globals [ a  ]: w7 I1 d6 j' @# _
breed [As a-A]  
! k  m% h- k# ^' H# Cbreed [Bs a-B]
' ^- g$ i8 K" [" J9 Oto setup+ S, J6 f* m( Y* {* N/ s5 D
  clear-all
5 o' N0 O0 L8 ~( k2 Jcreate-As 10[setxy random(5)  random(5)
- o% {4 d! J) L3 T4 J8 Z* d- ]set color 3]
, a4 m& y- ]: S% l0 Jset a (20)% G' D! @! g0 s& _: y
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 - `, g/ v, d0 ?  |3 l, r/ i, _6 a1 k
] [setxy a a 4 B0 O, A; ?4 H/ V0 l6 b; S
set a (a + 0.2)
, u5 k. ?; Q* h* |: c$ P# bset color 45) b8 H" O; Q: U/ q) M# p
]
' G( Q6 E$ b6 c) s7 f   ]
- Q, [* J0 `) b & k. m- y$ S/ k6 s3 w5 @( C
end
% }. x3 y. O' R. s. K- _& A) T! G5 G# Z$ C
to go
, C6 n! Z( \7 H$ W  X, @ask a-B 10 [set color 15]
  j# x. V3 M; a. K$ `end

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置; L  T/ R- M# c
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
- ?& }) X; J5 e" G0 Y, ~) S  P. [* \
globals [ a  ]
# w) I. p; X6 N3 H, s' N" G( Tbreed [As a-A]  1 l3 V2 o( N4 N6 r2 E
breed [Bs a-B]
' ]2 a0 G& p* Z8 J% \8 J, u& Mto setup8 y2 b& ?0 A1 C) s% r5 P0 ~7 i$ B
  clear-all
% a* e7 A# [. ~8 K0 C$ N& Xcreate-As 10[setxy random(5)  random(5)
' u* b" B* Z# i: Bset color 3]; W6 I5 p/ G/ }/ `8 N7 S

9 I; |/ @3 {5 p) r+ [8 j0 Uset a (20)
$ D) |- n8 L" g# g; g8 G7 ]7 H& G2 Acreate-Bs 10[
7 I) k" H1 i5 a5 y4 uforeach [10 11 12 13 14 15 16 17 18 19 ] [0 D6 d8 \% ^$ F$ w
ask a-B ? [setxy a a
3 X0 G+ {& [5 `set a (a + 1)! u) k8 ~+ L3 X
set color 45% K( D6 Q. |  d0 D5 o' {+ h
] ]7 L2 [5 M3 c- v6 X0 R: S! g
   ]
: S: I) b2 x% a1 e
% r4 W# T6 {) r4 z" L0 Aend1 V, g  \) Z; ]( Q5 o/ Z& W" D
# M( F# Q6 T5 Z+ ]5 q0 W0 _5 X! [
$ K3 }, w& A7 |- I$ E2 G3 K- j
to go   b- p3 t- b+ M
ask a-B 10 [set color 15]/ d$ Q# l# G) R! W
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-13 18:11 , Processed in 0.014736 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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