设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8673|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
) H" {9 b$ [5 \A10个,B10个3 n& _  j* x5 t% @* q
想要把B的第一个乌龟颜色从黄色改变为红色* x! m# n/ o. Y7 @& }2 A3 [' C
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?$ X% C8 X; F+ \
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按% D# R" m9 M+ J8 ?
得到不同的结果,如图a1 和a2
$ ~, q  j8 U" ]" w! \想要一直改变B的第一个乌龟的颜色该怎样写???  Z4 ^% f7 C2 R4 U* @: ]5 {
$ d- J. }* e# w$ [- s2 ^. p

7 u8 v. z, c5 y* k. Nglobals [ a  ]$ F! _2 X, h* G, Q% q( Q
breed [As a-A]  5 a' z( R! h5 f/ X2 F
breed [Bs a-B]
: w- j  U) V' c* eto setup
" a3 R* k# b- w' {  clear-all
; L0 i: O% s8 \$ I; e8 c3 Y. Qcreate-As 10[setxy random(5)  random(5)
$ a) R; I' I4 K& `- {set color 3]
5 K6 w+ x, P! J$ L. pset a (20)2 m* f, S/ f1 Q
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
. [; i% o5 ~5 _' H] [setxy a a
4 E4 B% h. W! @9 V0 q" sset a (a + 0.2)
$ F6 N: T8 _) r; |) nset color 45
" X& ?- |6 ?7 G( Y( d* p]
* f  g1 z. p: F/ W1 P# m- G   ]" t% L( p7 `' D' {) n3 x! N" [

3 R: P# d& ^( W8 W8 W8 u3 l  ~end3 d  K! g# `! ^% ^$ ]! \

1 D# q$ q' @9 O! ?to go $ w, h5 x) P) E; ~4 g
ask a-B 10 [set color 15]
- L5 m3 z4 C! Y. l- A7 o- S" l- aend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置9 m  s9 C$ ?5 ]$ @. W
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
; Y, d% w0 Z, K. m6 |5 f" m, K
. X3 n. G& f8 Q: T& `# t/ V4 Lglobals [ a  ]& P8 s9 y1 y% R" T. k8 [3 e
breed [As a-A]  
; u5 a0 m, C" S7 c, Qbreed [Bs a-B]
7 l& t( A) h. y5 Y7 B/ g+ O" W- _/ Vto setup
- X. I7 y' n; e) V4 Q" H& y) {  clear-all" ~! d! E/ w+ p1 u: s
create-As 10[setxy random(5)  random(5)
8 i# k& F. F5 A+ d2 Zset color 3]
; n) o3 T9 z) N" o! M3 `+ j, u2 z* h- f& e* }. p! w" _
set a (20)# C7 z/ Y, _0 F6 j
create-Bs 10[ ; u0 K1 i9 M4 \( b+ ?1 u4 u
foreach [10 11 12 13 14 15 16 17 18 19 ] [
4 `# j# G$ o9 e9 J5 @ask a-B ? [setxy a a
9 Y" {& c: f8 @$ S$ M2 ?set a (a + 1), t5 _% S3 V$ U$ I1 I9 z4 e. R: ~
set color 45+ t2 z1 B4 W( N
] ]
! o! j) y* b& e3 W1 X3 O   ]
8 r( |' }5 S7 j" O
3 |; C- h& ?# y. K5 p/ lend
5 ]8 a4 I( e# J, O& C! b2 w5 P' L! A# E) a- ^
% Q. d. K; I. I* ?. o
to go
# {0 U" Q% o' Gask a-B 10 [set color 15]
; m. d, w9 c% t! {. ~end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-5 07:46 , Processed in 0.013196 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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