设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7401|回复: 1

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

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。* |& B1 d+ n* \8 J. e  L9 F+ b  b+ [

4 C0 G3 \& K3 j但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。
. ?8 {" l0 q. f/ [8 j, Z: e( o3 O# P! M
turtles-own [a b c d k f g h
8 E; }0 \3 _2 b5 T  x y     ;; these are the leaf-turtle's offsets relative to center-turtle : K. W7 C6 J( H( _8 ~- d
]$ h6 |; O2 ~7 s4 @. N
to new; q3 W7 b  x7 T: X- k
  ca
7 d9 H4 u& S& H% `! Z$ i  crt 5 * num_of_building
- G1 i+ c+ D' Z' U% J9 v- B  d  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]- z& Z5 O5 ?* ~/ a
  scatter     ;;keep center-turtle random positions - |/ T9 J$ V5 y5 v' {7 A
  unit_plan   ;;make up the building plan7 y* ]4 G6 g9 Y# {0 ~: j6 u% s$ t
end8 h+ z" i0 w$ ?9 p- a% q: \* @: Z: Y
to scatter
" G: l# ]$ t% |, gask turtles with [remainder who 5 = 0]2 g+ @1 s* h2 I
[! ]( V2 U6 U% e# r' E) M) g
set xcor xcor - 6 + random-float 150 n3 ]& V! g: X0 Z/ ?7 \
set ycor ycor - 6 + random-float 157 I0 Y% s0 `3 s  i* o( ]
]5 L) E. p$ S9 v! J- y
end
, {" Y$ X; X8 J" E+ F9 Vto unit_plan & {  h$ D* X" J  j
ask turtles [5 ~9 G+ J! {  w9 s" A0 N& E
if (remainder who 5 = 1) [set a who
* W- k- y) `% l2 b                          set x ( 0 - Wid / 2 )
, |- E" L" P- g                          set y  Dep / 2 ]
) p8 y+ u( }+ s) e8 }           set b  int (a / 5) * 5- h$ E0 Y5 B) H: Z
    setxy ( xcor-of turtle b + x )0 h% z: J: m: {6 c, i8 i* o# r$ z1 }* X
          ( ycor-of turtle b + y )
! R0 O/ p7 h3 b- T3 rif (remainder who 5 = 2) [set c who
+ p. ~) k4 ^; `( \7 B                          set x ( 0 - Wid / 2 )
  D9 o  o  J/ a                          set y (0 - Dep / 2 )  ]
  Z0 X. k$ u! Y: |$ R; B                          set d int (c / 5) * 54 n" O9 T: ]  W/ O& r* t, b% K
   setxy   ( xcor-of turtle d + x )
" T6 h/ }. L) Y" U3 |. |' {           (ycor-of turtle d + y )
: R3 O6 ~1 K) u: p  g1 R) K( [          , Q/ ]6 I" c  u: A; v$ E
            ) k* b# ^% y- e
if (remainder who 5 = 3) [set k who1 k6 C  r! s$ L$ m- Y/ ?
                          set x( Wid / 2)  
* C" h2 ^1 {3 o                          set y (0 - Dep / 2 ) ]
" A7 n* C# G1 V" [                          set f int (k / 5) * 5/ g- O& `  u3 {  ^. \" Y: Y3 C
  setxy   ( xcor-of turtle f + x ): Z% q% F$ z( h, q4 ~9 x5 e& E
           (ycor-of turtle f + y )
$ e9 g8 ?! ]+ @- Y" o& {' n% U           , G- O4 N7 B% V/ v; z2 P
           0 Y: t: B6 J6 K* \2 ]0 ]
if (remainder who 5 = 4) [set g who5 O1 |5 _% j0 C, ~- j0 b
                          set x Wid / 2 2 G) X% L+ s( x; V7 e. R
                          set y  Dep / 2 ]- p  H; {1 s' o5 [- U( C
                          set h  int (g / 5) * 5
/ D9 I$ j* E& D9 k  setxy   ( xcor-of turtle h + x )
5 L/ K" \( P6 h% ^           (ycor-of turtle h + y )
: v0 p4 H7 O% b, E* ?! [3 U                          
8 g7 d9 ^+ \$ \' o1 B                          
7 o1 ]7 Y( M3 a" m                          ]% f+ {8 r; h3 C5 o
end
! o6 v$ k  r+ q% t& G9 @6 R# \2 h" S+ X# ~8 X
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,9 d# x: R- M& L2 B( [8 F
应该是" Z& z- z6 {5 W6 ?) }- C
ask turtles [
8 e; l" v# N# A1 p& W1 Y7 jif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
& w) c/ w1 ?' H, M* c" u                          set y  Dep / 2
( v) _9 y: X) A/ ~8 d8 u           set b  int (who / 5) * 5
* L. C7 Q7 @- Q0 b    setxy ( xcor-of turtle b + x )
! i! \0 L" v  u' f          ( ycor-of turtle b + y )]]9 z! E* f. H: r
end" \8 T$ S/ ]' B# t; }* r
之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-8 08:38 , Processed in 3.543702 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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