设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9194|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B1 [: f6 K$ S9 Y
A10个,B10个
. _  Q9 f9 v2 H9 X* U$ `% w: W! L想要把B的第一个乌龟颜色从黄色改变为红色* i( |' {) [/ a2 P
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?" S; d; I% H9 f0 \
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
& q& E6 U: W% ~; w3 d  b* @得到不同的结果,如图a1 和a2
) U; H( m8 E% f4 ?2 s1 y想要一直改变B的第一个乌龟的颜色该怎样写???: v+ w2 C. p! k; s  O0 g

3 N" y# C5 `" b" ^7 s$ D( f: _3 L' h% ]" H6 d$ d% T3 Y
globals [ a  ]9 Q/ N- A9 N2 I; ~/ |$ y; p
breed [As a-A]  , j( }0 Z' o2 \4 q0 v9 t
breed [Bs a-B]   L! A( l1 M+ S" D, J4 i
to setup
& Q# T& }4 p, L! G  clear-all5 Y/ O( D2 q( C& b7 h
create-As 10[setxy random(5)  random(5)
1 a! ]7 x+ i' u$ O& k1 hset color 3]2 z1 K5 O. J+ u; A, U3 j, S0 H
set a (20)
$ h7 [8 ~3 J* d6 tcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 5 V' s  M6 v: R% w: \& S4 U, S
] [setxy a a
7 M9 J+ {/ l: [: X6 s/ {set a (a + 0.2)
4 ]* n0 ]4 [; h8 b# ~set color 457 p  r3 J5 K6 N6 Y
] 6 P) c6 |6 |$ p- q
   ]; _$ |3 P9 [4 S
% K% Y8 g8 n7 t( A5 M. T
end" Y3 b5 m. V2 j# F6 b% f0 }
: l. T. ^0 D# C6 Z/ L  V2 `
to go
0 h% D5 m% D! Y; |$ _ask a-B 10 [set color 15]
7 Q% d$ @2 U- H2 c8 \4 Aend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置5 a# w, ~% _* _
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:8 K7 n+ {4 d# d% z7 W

  ^/ `& V% z, w4 n  Y, @globals [ a  ]5 i6 [. L/ V/ Q" w4 b" i9 b% }& K
breed [As a-A]  
: k! }, y* D) m2 w6 [breed [Bs a-B]
  L. W0 ^) @( q. w* O6 sto setup  j7 B* V- v3 ?# V
  clear-all, ~; {& ]; `/ u/ \
create-As 10[setxy random(5)  random(5) $ G8 K( m$ y& S2 |& ?& [( h% {
set color 3], |  @4 N! [- h! Y3 W* s
; A' }( p* U8 A* f
set a (20)
. b# f, i& D* q6 M3 M& i# ]create-Bs 10[
% m  T! H0 E# F# n4 kforeach [10 11 12 13 14 15 16 17 18 19 ] [
- O. T8 i% a, I7 m+ gask a-B ? [setxy a a / |: v& \: U# K
set a (a + 1)
& c4 D) b% r, z- ?. V, q; [set color 45' J- p& X4 u& @$ L# E; Y* S+ d
] ]
: S% r, w4 _3 \; R+ _   ]# A% c0 l: I+ ?8 m
* N: ]- V1 g- `0 F  {9 a' b  D
end
3 @4 _7 D  y: {. o- U* o/ G9 H3 ~8 w! D2 @1 Z0 Q# a7 |3 [3 Q

8 s$ Z( j" y8 V, ^to go % V, Z. ?& _& x* T3 e" o
ask a-B 10 [set color 15]( T% m' `; T# {* z" F) P: S0 J
end
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-15 16:04 , Processed in 0.016370 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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