设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8926|回复: 2

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

[复制链接]
发表于 2008-8-23 10:28:35 | 显示全部楼层 |阅读模式
5仿真币
我想建立两个种类A和B
' s4 t! [$ c  A& k( sA10个,B10个
( x/ T5 e* j( z7 n" Y3 z' b4 k想要把B的第一个乌龟颜色从黄色改变为红色9 C" t+ R2 c  ~2 b* P+ F3 z& }! b; u, ]
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
, J1 V0 b1 r# I- {还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按- R) l0 B% V9 V* l
得到不同的结果,如图a1 和a21 t8 b2 x5 B: W$ o( o$ ~
想要一直改变B的第一个乌龟的颜色该怎样写???4 V) b0 c/ f- X. i
( ]2 p* T0 C$ q

6 P" V' |: S' K; ?; P# t' ^globals [ a  ]# W) `+ v3 o0 Y; G! j0 y7 h3 `  s
breed [As a-A]  
3 I9 f2 ^( O4 c, C9 h. k' Ibreed [Bs a-B] 0 h- m, q4 Q' r, s: ^  o: r4 C& M
to setup
& K& U! G$ z: L6 p; c$ s+ X( q  clear-all
/ _* {- b6 s8 h: [4 l6 o, qcreate-As 10[setxy random(5)  random(5)
! a8 V3 D. Z$ f9 Nset color 3]
/ p1 b) I% |+ }% `0 a2 u. y" Z6 qset a (20)# O1 }1 G3 v8 `- x. r- n
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
+ ?9 [  e" B7 X2 }: M$ c$ X] [setxy a a - |/ |1 D! E4 |* L$ f
set a (a + 0.2)" ?" ^6 T; J$ L0 k0 p. c
set color 45
8 Z# M, P) c9 X7 r. _5 @1 w] : e* ^8 n1 t7 c  D9 P/ ^! n6 t
   ]; L& V' L$ q3 e: U# A' o

3 o3 N( X6 J( X2 Z- W7 dend* X) r7 w3 t, E$ w% M+ K

! {+ O- A4 {7 J) dto go # k  Q. X) \4 Q* I1 Y3 \
ask a-B 10 [set color 15]
; e9 @# x( V9 D6 ^. E: i0 ^end

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

请教楼上

你说:位置不同是你在B分布的时候使用随机位置5 w6 t2 P8 g& D+ y/ ~, I4 b
那么B分布不随机该怎样写?
 楼主| 发表于 2008-8-25 14:43:48 | 显示全部楼层

我知道了!

程序写成如下就可以解决了:
: U; `/ o9 r7 P
, T. n& z! x8 Q+ q( g# u( B, n- l7 ~globals [ a  ]
- Q0 d$ g* q8 _+ _7 E) bbreed [As a-A]  
/ i' c; o+ j1 m- ]0 C" A9 ?breed [Bs a-B]
+ T! R% m; c( J! r$ Qto setup$ ?+ ]* r, C8 v! i" \
  clear-all1 ^+ H- I0 ]# G8 V& m, d4 [, U
create-As 10[setxy random(5)  random(5)
6 |% M' \5 `' s1 X+ t% lset color 3]. O" f  s: M, [8 M0 T
' G* j4 [7 b  L) x
set a (20)
1 n( G- ?5 l" rcreate-Bs 10[
! k! l8 y% x. R0 f2 Oforeach [10 11 12 13 14 15 16 17 18 19 ] [
! q: _# Y# E6 r2 p1 lask a-B ? [setxy a a
' v& ?0 n1 }0 n* O$ vset a (a + 1)& y. F7 v( j. W; m
set color 45, v( c4 P% A4 o: U) R# u( v
] ]2 t' M1 T8 {. M) [/ n
   ]
( Z0 y3 G  A5 _. i3 E . r+ L' Y7 W+ k5 J# e% `) |
end! A9 G) ~) g7 k7 Q" d5 R

; f: P  M/ r& e: r8 S1 U+ ]6 @9 t* O# L7 T1 v' D* w2 a; `4 A
to go ' F1 W! \2 N% x" ?9 ~7 j. M
ask a-B 10 [set color 15]
, d) y1 X: C7 K  F! nend
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-28 18:40 , Processed in 0.019207 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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