设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8328|回复: 1

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

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。4 I7 X9 i8 N1 U9 W2 x
( l, H: j. T2 ^9 ~( ~# N" L
但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。" F& `( I, f. l6 K' d
7 T9 Y( \. M- \& [" c
turtles-own [a b c d k f g h# i" p& `% j* O7 _$ T$ a; U# U" }
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
0 E. B) _7 _6 J' b8 L9 v]
- |0 f6 r3 C/ e8 O& v  N( O" }to new+ ^1 S' L& q& w" ^* A! k
  ca
) }* Z+ S, z% A  crt 5 * num_of_building+ M/ E6 W, {! k! d2 a
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
0 M! F' H) r) k  scatter     ;;keep center-turtle random positions
/ r) o8 y* y4 I' Q9 B1 }; c; v  unit_plan   ;;make up the building plan
7 c/ c' B6 Z$ W* p' D- Dend% l/ e% v/ i) K
to scatter
5 s6 R) i" p3 m( iask turtles with [remainder who 5 = 0]
8 @0 c. k) E  p/ f[, p" ~$ A& Z- I( Q
set xcor xcor - 6 + random-float 155 }6 L$ W0 \  E
set ycor ycor - 6 + random-float 15+ T3 i8 D( D4 y% V8 Z
]- P9 C0 R5 o" i+ a" f. K8 l9 L
end4 [4 j5 N  J" f! I1 e
to unit_plan
9 k; O$ B0 P9 z3 |! i0 b7 task turtles [
2 I9 b& q( o2 U9 [# oif (remainder who 5 = 1) [set a who
% P; ^- D) o# Z8 h: i                          set x ( 0 - Wid / 2 ) $ ~( P! e2 v- i2 p0 ~2 z3 n) F5 K) O
                          set y  Dep / 2 ]6 b" [/ w+ l7 G4 U- t1 m! T1 `
           set b  int (a / 5) * 5
9 A9 R; \, F" i8 `0 s* J$ ?    setxy ( xcor-of turtle b + x )
6 e5 h, t6 F% T# t+ v$ P1 ^          ( ycor-of turtle b + y )
7 y2 s! L1 f# l2 W  M  Zif (remainder who 5 = 2) [set c who& @" g( m/ \0 j% v
                          set x ( 0 - Wid / 2 ) $ O4 M2 I4 S5 F$ R+ E
                          set y (0 - Dep / 2 )  ]" E, S' m, B; O
                          set d int (c / 5) * 5; m9 J0 X2 x7 x6 j  }: Z1 s" {& {
   setxy   ( xcor-of turtle d + x )) S! W8 c9 d+ k8 H3 e& o
           (ycor-of turtle d + y ) % k- r2 D+ _1 }( i5 R
         
% s' u0 ?& Q) O; y            
; w* v! S. \( t; k- I& mif (remainder who 5 = 3) [set k who
6 t( h$ H1 T4 F! @" ~                          set x( Wid / 2)  : D! N0 U; r) X" h+ W
                          set y (0 - Dep / 2 ) ]
3 C6 X- s+ v4 r4 q4 h                          set f int (k / 5) * 5* g" k2 U0 E$ a/ I
  setxy   ( xcor-of turtle f + x )
, B) f7 c" T+ q8 f  P           (ycor-of turtle f + y ) % j" w: u8 {) l0 }& n% ^
           
$ W6 N! n8 u6 ~  Q           
, b; f0 ~/ H0 C: S1 A- _; @if (remainder who 5 = 4) [set g who3 f8 n* z5 f& Y, [$ a% E% o
                          set x Wid / 2
. d! s4 |9 z7 ~8 L# w                          set y  Dep / 2 ]
3 L- I2 _2 E1 e, b  k                          set h  int (g / 5) * 5& j. V  b" f7 v. b, Z7 B6 J
  setxy   ( xcor-of turtle h + x )/ J+ T3 S8 b0 B3 z& E
           (ycor-of turtle h + y )
" _, L) D' E; n4 C  ^. p4 U! g                          0 [3 s7 ]9 G% V' I, G' K- B6 [. L
                          & h. L. A0 @$ n! D5 n& ]5 ~
                          ]
* E& W0 ?4 W2 |" z( P6 kend/ @- V: C7 d; {) t4 v: }

5 o) G7 b1 V; K; o( `* m9 c3 J3 R[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,
% ]/ V/ g2 c, M" r1 [9 r应该是" v) r& s  J$ B/ {, E
ask turtles [
% ]- I/ _6 ^7 o2 Aif (remainder who 5 = 1) [set x ( 0 - Wid / 2 ) 6 {) \3 A/ W7 X( h. f' ?
                          set y  Dep / 2
, l/ `6 i( A6 B. U           set b  int (who / 5) * 5* u$ O. e. N1 y, `
    setxy ( xcor-of turtle b + x )( N( B% V- `& D# p: w5 I$ B
          ( ycor-of turtle b + y )]]8 c$ H/ X4 Z* R! j2 ]) k: w
end
5 ]$ k, `8 q9 n9 `8 o0 J' b之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-8 13:17 , Processed in 0.016757 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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