设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8970|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
! h" P( K- S& {% X% h. P+ @A10个,B10个
1 f0 P5 |, X0 e# Q想要把B的第一个乌龟颜色从黄色改变为红色
' d+ `) ?& R1 M  i发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?. m( a+ j+ H" j% _1 E* Q9 m2 K& N, m, X
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按1 Y4 v3 n  D6 n! H# _. Z
得到不同的结果,如图a1 和a2
& N' Z4 w, f6 P& m1 i想要一直改变B的第一个乌龟的颜色该怎样写???) S, y1 k# s  |) I4 d8 }8 S# \
" J) I) V! j8 m% |
( a$ X* F1 p: y1 K
globals [ a  ]
4 x, r: |5 i+ D1 z; u* kbreed [As a-A]  + Z/ B3 W2 N4 j# K
breed [Bs a-B] # Y) N) c  j+ N) Z9 R1 n! a
to setup
3 O8 c# {) v" c( w* n  clear-all
, N0 V6 j5 j; t8 e$ Z# s5 w" }create-As 10[setxy random(5)  random(5) ( h2 `3 S4 ?$ L, X& p% a* Y4 u9 W8 j
set color 3]" ^, k. {9 Q- g$ y) ^7 e
set a (20)
% X8 `6 ]/ T; \% Tcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
6 h+ g, `# e+ \: a' I. c2 [: S! z  M] [setxy a a 6 P- ?) d" z& ^0 P* [3 w
set a (a + 0.2)$ }0 u8 |0 P' s6 K, @# q, _; K4 ]# w" a  M
set color 45
# d0 D: k1 k$ ]/ M! L3 m]
  R# b) Z/ b) M% K. L  C   ]
! y! A. s* F4 @0 w
4 ?1 P. p$ g& `) L' m2 U$ pend
' V( Z% `+ B+ u' x, D5 T! h- @: H7 _* j! c
to go / v# O9 [" u4 J" V, o7 s: F3 `
ask a-B 10 [set color 15]
, c( A' |9 Z5 tend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置
+ L7 m2 A7 d/ U$ x/ O: p" t那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:1 r3 u! ^$ D  h6 p- a

# v4 U4 u3 F8 y9 C  c4 xglobals [ a  ]; V6 Y) Q& Y5 B6 i% P
breed [As a-A]  9 [' w5 d+ \& r( \, n* ~6 I8 o8 k
breed [Bs a-B] 4 o- {% N+ f2 ^3 R
to setup
6 R* i+ s! q4 h; n  clear-all
/ O- y. y) n4 q* ~create-As 10[setxy random(5)  random(5) ! r& f2 h- w( \# B+ Q$ y1 {
set color 3]
7 S; r) m  p) T8 S- a( t+ F# H& @' \4 W  X9 ~6 \
set a (20)+ S$ \* B: u5 |4 Q! |% D
create-Bs 10[
% I8 N: {9 r+ D5 E0 A+ @foreach [10 11 12 13 14 15 16 17 18 19 ] [
# F; T. [( N, |8 s, Oask a-B ? [setxy a a 7 H; x, Q, J; ], D$ M, A8 ]
set a (a + 1)
% X3 H3 U/ ?" }$ z* x7 rset color 45
0 ~- b8 y% i" g5 [& `# P" M] ]- }( ~8 e% S" q. }
   ]
8 Q. ]; }9 z5 p5 R+ Z+ Y4 U
- R- {8 L2 i/ n* O6 e& d7 Lend$ @; J' e; X! p

, O( Y' Z9 H3 V0 H- |! Z# A' g# r# Y3 X7 T3 X% I$ p
to go 9 R: ]; i0 W# K; o/ K' T
ask a-B 10 [set color 15]
5 a) o: M! C! kend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-1 07:32 , Processed in 0.016525 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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