设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 6752|回复: 1

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

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。
, Z4 B! H2 [4 T9 L5 D
& D2 j3 k6 ]  T7 r* G3 E但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。
6 O, o9 U* D* f. S' }5 S: E) E1 q  m8 N+ n. X# I: t/ w) |4 h' J$ k
turtles-own [a b c d k f g h, [+ s1 Y' I# A1 z, u" X' f
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle , p# l% G' p$ j5 c" k+ M, m5 ?
]
+ C3 r- T1 i  \to new
$ a, H7 L8 v/ h+ T/ `4 w  ca
4 L- Y( P+ A6 `# i% w# s  crt 5 * num_of_building/ P* w: R/ E/ E6 F) E( p4 [+ H" ~
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
* U& K2 R7 d  s  \9 A1 w  scatter     ;;keep center-turtle random positions
) Z: K9 {7 }3 N) ?, T  unit_plan   ;;make up the building plan1 |! _. t! B. g
end* A3 u, |! e6 t; A+ O: [0 D
to scatter4 J- r; N$ t7 {3 }
ask turtles with [remainder who 5 = 0]
0 p8 m9 ?9 g5 ^) L- ]+ m3 U5 ?  S# J[
: l0 l; s$ t9 wset xcor xcor - 6 + random-float 15
; k2 `& c7 m/ P' n, L8 a7 Yset ycor ycor - 6 + random-float 15, Q, W2 h* L2 I- O0 }5 C
]
* p; @+ v8 `2 N3 X: J: }: cend
: ?. m1 m% ^( ^" }4 g9 k2 ^5 Ito unit_plan
3 v; n/ C# G; S, G6 |1 \: R$ Iask turtles [
& W% z, x8 K- r4 p( f, F4 _if (remainder who 5 = 1) [set a who , Q7 V, }; \( e5 Y& M
                          set x ( 0 - Wid / 2 )
' b2 k4 ?4 A" t! w                          set y  Dep / 2 ]
  f) g9 d: Z' [3 _, G% @5 X           set b  int (a / 5) * 5; y' ^# Q' Q$ ?
    setxy ( xcor-of turtle b + x )$ W8 B* B8 S0 _0 ?; q! o& ~
          ( ycor-of turtle b + y )6 D1 L6 i3 x) T& E2 U% t7 ~
if (remainder who 5 = 2) [set c who7 _0 A2 B  c. d3 F
                          set x ( 0 - Wid / 2 )   O% {1 K! o* u
                          set y (0 - Dep / 2 )  ]/ w9 r- @+ z8 ^$ ]9 I
                          set d int (c / 5) * 5
. g0 H0 K/ y3 C; ^2 ~- i* E7 d$ j   setxy   ( xcor-of turtle d + x )
% ~4 B; d; g7 O3 ~           (ycor-of turtle d + y ) 9 I- L1 ?+ u, |& h. Y% R% _; Z
         
" E- O$ I0 V9 R4 r- d, _* ^3 |            
, z& s# j. t2 t0 \$ Z6 Hif (remainder who 5 = 3) [set k who* b& A. M$ T/ n% \1 C- B: q
                          set x( Wid / 2)  $ \' ]2 i9 Y1 ?
                          set y (0 - Dep / 2 ) ]1 z# S. x9 l$ q1 _% n3 w/ e
                          set f int (k / 5) * 5! B+ b- N" P1 T" B5 B& e* D
  setxy   ( xcor-of turtle f + x )3 f1 E4 r+ m9 B' |0 ?7 F, x
           (ycor-of turtle f + y ) 2 p9 ]: P, [& h1 {1 _7 ~
           
+ k' ]6 T; X' V2 `* t           
2 r( Q. o; q6 P9 i8 [6 Dif (remainder who 5 = 4) [set g who
# g2 ?. {3 N  U0 h                          set x Wid / 2 . l8 z6 g3 q3 s" f
                          set y  Dep / 2 ]
  u3 L* B5 P  m1 c- \* `6 _                          set h  int (g / 5) * 5
- ~8 k3 u! s! p  setxy   ( xcor-of turtle h + x )
( ~2 P* \, ^, o4 `: }) y# U5 b           (ycor-of turtle h + y )
& O* I+ i4 Z2 v: N                          
% @  E9 u6 `- G' |' K                          
/ J! w' _0 M  |* [' [                          ]
% o0 r% G& u" c' x, Iend
6 r- p+ {& `& I" V2 f
% `2 p: R3 C$ |1 ~$ w1 H# C$ }[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,; @* @2 S  u. V( ?/ ^3 L8 B! g# `% R
应该是+ r" @, ?% G* Q' o$ q
ask turtles [
! o' I# O4 ~4 ^1 H3 R* [/ Rif (remainder who 5 = 1) [set x ( 0 - Wid / 2 ) 9 l* J- j, L- z/ @
                          set y  Dep / 2 & {4 _" q/ D: N8 D! c3 G4 J5 G# }
           set b  int (who / 5) * 5
, }  k7 ?: D+ a. H% I, d7 {. x, G! `    setxy ( xcor-of turtle b + x )- U7 i6 y$ b: I0 e
          ( ycor-of turtle b + y )]]
9 T' h5 ?* s7 Z5 e5 l/ gend
  C: @+ f6 `& ]0 J: b. l4 w之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-11-20 17:43 , Processed in 0.015878 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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