设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8441|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
7 p+ V* F5 S- OA10个,B10个  U# _6 F# s! t3 |7 [; D
想要把B的第一个乌龟颜色从黄色改变为红色& {$ E. N& f, J- E- H: E
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?& I" L$ W9 c/ R7 M! u5 ]
还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
& h2 u) L0 p5 D# a& h" t& J得到不同的结果,如图a1 和a2; o% c4 Y# Y1 |. N
想要一直改变B的第一个乌龟的颜色该怎样写???
; h' Q6 W: B, e
7 \% C* J* p: a
  q$ M; f) k6 Y) [1 R8 u& _5 k% Mglobals [ a  ]9 \+ b+ B! q9 Q# n: G3 V
breed [As a-A]  
$ O! P1 `4 X0 P: s# o& K) V. lbreed [Bs a-B] ! ]1 K9 }4 `" {" O
to setup
1 j9 Z0 B/ W! W, c" b; F  clear-all% C' D2 u: A( `% V! k
create-As 10[setxy random(5)  random(5)
; O& _3 y8 d7 K% t7 j, L& P0 Vset color 3]
7 o6 N  X/ c6 c+ Q& Rset a (20)
6 ?" D% u% _2 }1 B) t4 F/ [2 j+ Kcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 3 W& w( X2 w- Q( _
] [setxy a a / a) L& h( v+ v
set a (a + 0.2)
$ X4 a  b& e# r' }# {& `8 M5 V( |+ iset color 45
' G. w. ^8 e1 X' [# u2 b]
  H, c" G, f6 Q3 |3 e8 r) Q3 u   ]- ?& R: P* X3 D: u/ u: w' Y% m5 ]
3 v2 O+ T: W. w9 b5 T
end
7 x4 [8 V5 x  H1 ?
# X1 m; X# [* p5 f2 Uto go ' i4 y& g; d# s  _! z
ask a-B 10 [set color 15]
# Z4 x1 x# K. qend

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置8 c% J% k2 N- x& c9 z/ Y; t) }
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:  @" ^7 I$ e# g. k6 H# o* U
1 R4 C2 s' o5 k2 _
globals [ a  ]
$ v' i2 I3 A  F1 Q% nbreed [As a-A]  4 ?) w7 R/ G1 |: H. F
breed [Bs a-B]
5 [7 z, o/ j! J# E4 tto setup) W$ [" g" }; C9 I
  clear-all
; ?9 I! e3 O1 x3 {/ j" L4 {" dcreate-As 10[setxy random(5)  random(5) 4 {4 q8 u# L* F" F; Z
set color 3]
1 {; e0 k" P* h) P( P8 P- }' \% H  V  A- |. ^2 C
set a (20)
  w' L( Q4 A2 [2 ]9 \create-Bs 10[ & r1 x( d3 K' @! F5 g1 {
foreach [10 11 12 13 14 15 16 17 18 19 ] [
# C; j6 U. a6 w# T! zask a-B ? [setxy a a 5 T0 B/ O' @' T( e- [
set a (a + 1)
7 _+ P' P$ U3 R# ?- nset color 45
( f4 ?9 _; V7 T# W5 P] ]
% Z% b; Z: X  q* ?7 d6 @   ]: e' p4 c' y0 i3 C8 q3 q0 ~
! N' `/ q9 ?. G, a* O% _
end
1 N0 q, q4 I5 o6 T7 T* Q6 T6 `1 v. b2 v" Q3 \( o1 f
* k; ]6 `! I/ P& f# c& P" {7 @* a
to go 6 V- P) l1 L: v3 C
ask a-B 10 [set color 15]
9 s9 v0 C( g9 pend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-1 00:53 , Processed in 0.018340 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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