设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8432|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B$ e$ D7 t% d9 y) Y
A10个,B10个
4 K# i7 A2 ^( a6 g* M想要把B的第一个乌龟颜色从黄色改变为红色
0 p3 L8 V; D4 S4 L4 r8 L& K发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
7 i/ X! m3 t2 N7 J3 L还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
( k' Y& J6 A& H$ M- [得到不同的结果,如图a1 和a2
# ~$ ~( N5 P5 @' V想要一直改变B的第一个乌龟的颜色该怎样写???2 U# v' J; O9 }8 w. b0 P- J" ^0 Z

6 Q6 K2 y2 I; K: a1 K% Y7 T2 ^- m& d0 a4 Z$ `0 y9 X1 D
globals [ a  ]: ?% p& f! \  o9 R# z8 A0 c
breed [As a-A]  " Z3 j% i) b! f! s" Y- d2 s$ B
breed [Bs a-B]
; @3 M( z7 n' [3 y. Q+ {to setup
$ f( |4 Y0 H  F# I$ R" V2 v2 Z  clear-all1 f4 Q; l9 S5 o. @4 K* y
create-As 10[setxy random(5)  random(5)
  K* M- R9 m& [7 \' {8 v7 Zset color 3]
  [. A, O* R( nset a (20)
( R! r' P# m  G  w! M* fcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
7 \! u/ N: n$ D' j: [2 ?$ X] [setxy a a + X! J2 l, c7 A# t; w* c/ L
set a (a + 0.2)
' {7 B0 H4 o1 ^% Rset color 45
' m$ [4 @* x0 m( P- D]
/ N6 H4 {" C: J3 p   ]$ k8 C9 L( J. f  g
: `; Q. ~* i& i3 |0 z0 {/ b
end
" F) J6 k! L, e- }9 _1 f6 X  d* m. V
to go
6 t8 b/ U- `' C2 t, j! J( Sask a-B 10 [set color 15]
6 ?; w# g8 K* K5 k( ?6 T* Pend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置8 ]/ U5 B. [2 {
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
3 S" P! H6 R6 |- f9 h8 F, F& l+ w. Y! y+ h( |
globals [ a  ]8 F4 f3 j0 U9 w% x7 I
breed [As a-A]  
! E" {' g) R3 t! Pbreed [Bs a-B] ! D6 }1 d% S& S+ ?/ e8 S
to setup5 }$ f6 f! x; W7 k$ [
  clear-all, t5 N# d, O& u2 I) z
create-As 10[setxy random(5)  random(5)
+ |* W6 I/ @+ e1 Q$ w2 e6 J" r. Jset color 3]
) I" g. Q* T  x2 p5 H0 {- v# C2 \  H
set a (20)
. w3 V% e( P7 r+ W) ~7 lcreate-Bs 10[
5 l% h* Y* F( m4 m1 `8 U0 U* Jforeach [10 11 12 13 14 15 16 17 18 19 ] [! w6 Q. p* u+ \6 J) b# Z: V( G
ask a-B ? [setxy a a + S: w6 Q' V. h$ @2 [
set a (a + 1)1 V' o5 R7 W( H- W5 d
set color 45% w* u/ a/ d* L- ~3 A
] ]. ]0 Q/ e) `  E
   ]
! Y# A( T# U+ r. ~) k' B4 i  ^% O
/ [4 A6 w4 k  T* f1 S1 wend8 y2 ~+ o. K- c/ B

+ J* }% r, D1 n4 {
4 l! f3 p6 J+ ?* ?0 C% v7 qto go 3 B6 L) S7 r4 N$ h) {
ask a-B 10 [set color 15]! Y; d# O' c. o7 R
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-29 08:00 , Processed in 0.016485 second(s), 13 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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