设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8965|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B# U! s# z% [9 U+ a
A10个,B10个
! k. ?" n1 |& ]想要把B的第一个乌龟颜色从黄色改变为红色
9 p4 o( h2 E; Z/ ~+ o; `发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?+ Q, C% R1 `7 b8 `
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按* Z! {. `* Q1 W9 \+ V/ z- Y
得到不同的结果,如图a1 和a2
/ D$ n$ G# e' X. t3 P: |7 F4 G想要一直改变B的第一个乌龟的颜色该怎样写???" }/ {, v4 |# k! U
% F' E# j3 i( E* f+ Y
. y  {3 y) i5 _; p/ ?% P. w( U8 z& @. H
globals [ a  ]. w5 L4 G& d7 `: r+ u- F
breed [As a-A]  4 i3 e6 K. @; D7 U3 X+ o3 _
breed [Bs a-B] 5 t6 h! O2 y6 m* O7 N, i, N
to setup/ V5 Q$ g5 [% W5 r* U
  clear-all
6 l3 e# S- U! Y7 Z; @9 j5 }/ screate-As 10[setxy random(5)  random(5) 1 z2 O* c) w# v* ~
set color 3]; i5 M6 N3 i: M- U
set a (20)
1 N7 r& V9 l. r3 C- ucreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 . l4 x- U/ h& P  Y1 p+ u7 N# l! r
] [setxy a a ) ~. F- v8 i" @& n, W- _4 t* U
set a (a + 0.2)! A9 P0 W! g! a! @4 N
set color 45+ u. H+ L1 u7 S1 @0 }; \+ }* L* `
]
' f! n, Z& v9 y, {, E& g   ]+ k( ^- x" @+ n: }
9 Y& \4 ^0 Y1 U* ~1 c
end
) i# f% k5 t2 U% a: y. Z# f" z8 H
2 d% O; B3 P* T% G) T! Sto go
/ m: v# ~+ M) Q6 x, eask a-B 10 [set color 15]
# b5 Z' q6 M9 V* q8 Pend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置/ a' M) L5 c; K. ^: l, p1 e/ l
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:7 s& u7 `% _! I3 ?- Q( R/ d
% R! q, Q1 c3 H7 @  J) h3 i
globals [ a  ]% T! u$ z' c2 e# {, U: D: B
breed [As a-A]  5 t: N, s5 a) L+ r* f
breed [Bs a-B] - |% a$ l- f! B$ X2 g1 I2 {
to setup
/ y# Y$ x& X2 d; P, ^  clear-all
! Z- P4 r6 ^* {$ L$ E/ Y% T4 Zcreate-As 10[setxy random(5)  random(5)
& Q- i+ R$ L( }set color 3]
6 ?, q2 @* E$ ~- X5 s
* I* J" f* j0 i& R9 T& w) e4 Y4 Bset a (20): e% M0 ~, ~3 a- S# e
create-Bs 10[ # N* Q" @9 |- Z# N9 c5 S# m
foreach [10 11 12 13 14 15 16 17 18 19 ] [
' p+ Z3 {# X8 a- o9 hask a-B ? [setxy a a " s0 E7 O8 ?: e  E) w% y
set a (a + 1)
1 d, w0 w% O$ h( J4 Z$ H( xset color 45
+ R! ~: q# N; a# g] ]
5 {# M/ S& t& U   ]
+ l: a' r4 Y& l  i 3 X+ T" L; i3 g( n
end6 }* |) @9 _' ?5 X, n
' s4 {3 P% q( P: m/ L% V
9 S$ v; C6 W; c2 ?5 ]
to go + `2 v4 y, y7 G- r/ V
ask a-B 10 [set color 15]
8 y/ m$ e/ S' L0 eend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-1 05:46 , Processed in 0.016930 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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