设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8020|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
$ d. E* J, f! i: V  NA10个,B10个. z/ G$ c6 w$ _* Y# K! J
想要把B的第一个乌龟颜色从黄色改变为红色
$ E2 e" u* n/ E6 ?发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
! Y+ [5 L& Z) G% y6 a' a: L, L* V还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
3 K  _) h/ S# G( K4 b3 E- g得到不同的结果,如图a1 和a28 J; m3 c% N5 q  N% b% g3 A* o: t5 x
想要一直改变B的第一个乌龟的颜色该怎样写???4 m+ n1 U5 d6 B# G! F

7 @3 J: v7 R% T  }0 r3 ?; Z" \! }4 r' \1 @0 V& D8 d- m
globals [ a  ]9 w) v% N, ^  m$ u( Q5 O
breed [As a-A]  ( }4 o4 I  j! H, P/ j1 z
breed [Bs a-B] ( q& \0 O" r0 [
to setup& b7 I0 s5 R7 e0 d4 k3 a
  clear-all
: G" [( U3 [. O* N* s" ycreate-As 10[setxy random(5)  random(5) 7 P/ B2 ?! {9 y% _0 d" ~/ b
set color 3]0 P. Y- b6 n4 c6 t
set a (20)
9 ?* D. r& ~+ m2 `7 Dcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
9 M" Q( e& N  W] [setxy a a
! C+ d) Q8 o; Bset a (a + 0.2)3 y7 ?, `: p% D# L1 X+ c2 |# }+ `
set color 45
3 t1 M( @9 @6 v  a) _7 k  P]
, K3 f1 H, }) V% d. h& s. \   ]
# s8 m" }1 U" F7 p7 Z ; \( |! N) ~3 I( i" m
end
2 o/ e6 K% l$ h
+ P5 Z% f0 k2 {9 wto go * ]( }5 C7 K+ ?
ask a-B 10 [set color 15]
/ B3 [$ M, i! X+ Dend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
) i( o" d& l( C2 e6 Z$ i那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
$ y" n+ b5 S1 E
; I/ a, H6 E. U9 {" nglobals [ a  ]
5 O; ]0 i" q0 c' p  ]$ Wbreed [As a-A]  + j! i: y5 b& Y9 r) b8 F' _
breed [Bs a-B]
- @8 _  Y  F2 X9 ^to setup- Y# W8 M4 F; p
  clear-all
# B3 F0 U1 _1 {( S( T# Dcreate-As 10[setxy random(5)  random(5)
( C, p+ X! H# C) Y1 S! |- G4 k- [, Tset color 3]
! m0 u- N. a  d9 i) Y+ \  j. P
/ i+ @, b% P) _set a (20)
8 W& G3 Y( g* U( P0 b8 }' @3 ucreate-Bs 10[ ( \7 v( J, ^& z: w
foreach [10 11 12 13 14 15 16 17 18 19 ] [
# @( _" W$ `. o, S) Q2 @1 I2 jask a-B ? [setxy a a
0 T- g1 ]& @" i: l8 ]. Qset a (a + 1)" v3 n$ k' d/ U8 |1 B8 l
set color 45! P+ w/ d& F8 C6 R1 q$ v$ M
] ]4 \7 k3 M! m6 I
   ]2 c- y  C4 |4 {; F: H% N

! w- a# O; |/ Q2 fend
; _7 n/ |& x# _3 n* J% s, g( T/ c# B9 N* C3 S

' f  a7 y) u7 a) n5 f' o5 Wto go 5 p3 ~+ x+ z# L* o7 t* Y# U
ask a-B 10 [set color 15]- q; X# m& O5 T- h- `8 v; B3 s
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-31 03:50 , Processed in 0.012847 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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