设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7790|回复: 1

[交流] 看看这段代码的问题

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。' y% C8 k- P8 {- {) x

! e6 z( A* _8 A: F3 x但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。
1 P5 U# H9 Y( C3 b1 _* E4 s* W
. P3 `' Q& q/ P6 [turtles-own [a b c d k f g h
# D* X0 [. h4 G" Z. o0 d  x y     ;; these are the leaf-turtle's offsets relative to center-turtle % C3 c3 t7 N. M# U* j
]
. K4 G: t& B+ I9 R6 ?# Fto new: R$ Q/ A" i1 ?
  ca
( x" R* |) p# }! j& V% K  crt 5 * num_of_building
- R# t$ B$ [; C8 w, p! N" @/ P7 i  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
4 s' g$ Y. C+ |' \  scatter     ;;keep center-turtle random positions " }0 Z8 J: A! m  v; N9 H' V* u
  unit_plan   ;;make up the building plan
7 ^$ N1 x2 k& i1 Bend5 |6 c( J3 w/ Y1 @$ L) j+ [: G
to scatter
7 e5 L3 U1 y3 |/ ^ask turtles with [remainder who 5 = 0]
$ w  u, D7 b2 o2 S2 M2 |[% D  ~* `; d& x6 x7 p  {
set xcor xcor - 6 + random-float 15
  C- J3 o' R/ \4 Gset ycor ycor - 6 + random-float 15
- w7 g! J+ G" _8 t! e]
  ?" G6 ?) o0 I- Yend7 v2 f- L1 Z% m$ W5 F1 n1 _
to unit_plan
/ L2 |+ \' R1 K; q3 nask turtles [
0 t6 G  G/ C2 hif (remainder who 5 = 1) [set a who
: `- B5 c; w* @. r                          set x ( 0 - Wid / 2 )
3 _2 g# \6 `) }0 M1 M8 v                          set y  Dep / 2 ]0 y1 k9 ^: @' S
           set b  int (a / 5) * 5- J* @. Z0 q% @9 R) O5 ^/ [
    setxy ( xcor-of turtle b + x )% @( G) O7 K* U" l
          ( ycor-of turtle b + y )6 O1 Z# e1 Q8 J
if (remainder who 5 = 2) [set c who1 {! T* ^, U8 G4 P
                          set x ( 0 - Wid / 2 )
/ A+ n9 @9 L1 N7 T                          set y (0 - Dep / 2 )  ]
# J  m! |. d5 ]9 B# u                          set d int (c / 5) * 5
/ m1 `  f: C6 F% C+ P# i" o8 I1 X   setxy   ( xcor-of turtle d + x )
" P4 Q2 r" o& N7 O           (ycor-of turtle d + y ) + N; i$ j, M/ B$ o- K
          8 Z6 v8 @1 y$ }1 V$ j% C  Z+ r, I% V
            $ y9 a& B* k/ Z- ^8 G7 o( u
if (remainder who 5 = 3) [set k who  ], {& a; A1 B
                          set x( Wid / 2)  : V8 @) A3 L9 g3 q& g
                          set y (0 - Dep / 2 ) ]) B% f# B  \, m8 T+ R
                          set f int (k / 5) * 5
) a9 p  ?6 U- i0 I& W  setxy   ( xcor-of turtle f + x )
+ C3 d6 G6 N+ D6 Q6 D% C           (ycor-of turtle f + y ) ; p8 ~8 r- R, K& q. w: k
           & {% r7 e3 t8 D7 M0 I
           8 Q- _8 w+ X/ D* g. K8 e
if (remainder who 5 = 4) [set g who
# g  J* W0 k! g6 m' e' @: I: h                          set x Wid / 2 5 n: j' ?4 y9 w$ T; Q8 Y2 H" o1 m& j
                          set y  Dep / 2 ]
) Q) l3 C' N2 j+ l/ B. h                          set h  int (g / 5) * 5
1 a/ G+ _% b7 I6 [! i# e5 d+ T  setxy   ( xcor-of turtle h + x )
  {! l+ I+ Z  Y0 _8 W  m           (ycor-of turtle h + y ) 8 s9 o7 C% _5 \" U* Z. f
                          
# @& y  m: m* s/ j$ Q' |0 E                          
. I9 y8 n- i" S                          ]9 v4 R7 g: g/ J( G/ |# @( N0 p
end
% V$ S! }5 h' a$ d! O. E$ r. b' v, f* w" U
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,
8 Q' \' L: {1 H- r7 s8 \1 x应该是- m+ J0 B( `; K
ask turtles [2 b9 S0 r  w) x* g3 f
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 ) 9 `* E7 x9 t1 B: H+ ~
                          set y  Dep / 2 ' s* c% j" g5 N* A
           set b  int (who / 5) * 5# x, S' n% X0 j0 t" i' H' L
    setxy ( xcor-of turtle b + x )) V: a7 @# C. `$ W5 f' u
          ( ycor-of turtle b + y )]]  h9 e7 g3 U) G2 E3 B/ J
end$ K7 l1 `- B( [/ f* b" o# R2 W
之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-1 11:48 , Processed in 0.017664 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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