设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8229|回复: 1

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

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。' c! P# L  Y7 @5 L/ I! ?5 h

! ~( A7 U- d( O# ~2 h- P但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。9 C9 r) R* M2 Y: D0 M

! O% K* Z1 Q, S7 |2 D6 n1 pturtles-own [a b c d k f g h
$ D. S1 H8 c* s. C6 Y  x y     ;; these are the leaf-turtle's offsets relative to center-turtle ( h* H0 w5 ~, X0 T, ?, [; S
]( b9 A9 R! S! O' d* d. I5 y6 k5 k( ~
to new
* f. j6 `8 ~5 _  i1 z  ca! n3 _# j) {0 A! \8 W9 p
  crt 5 * num_of_building
/ @4 Q& F! `  k% ^  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
1 S5 h* e# F8 {9 r: p) I# J; O  scatter     ;;keep center-turtle random positions 5 J; N! Q& V0 a# ~3 ]- v% m6 w4 E
  unit_plan   ;;make up the building plan
; J) T6 l& P( Z7 Z# V; eend4 ?/ F; V7 @6 ?' `0 F/ k% c- t
to scatter$ A! F, ^4 m" J2 v
ask turtles with [remainder who 5 = 0]
6 M) t) V, f& l3 Z2 x: V. m[
) J+ [+ T+ h( N2 z5 tset xcor xcor - 6 + random-float 15
) t7 [3 Y* i: s& ?5 N: hset ycor ycor - 6 + random-float 15
( _9 p/ G% u% `$ z* J8 s& J* m7 D]
& w2 h3 l! r- ^4 ~7 v) i, wend
. O4 q' Z$ q  n( _+ yto unit_plan
# i- _! [# ]/ n  Rask turtles [# e, n4 s9 P; `1 L! T; p1 b
if (remainder who 5 = 1) [set a who   V# m! j2 H" A. o  f" A1 b
                          set x ( 0 - Wid / 2 ) 7 Y) x( x* x+ J
                          set y  Dep / 2 ]" P( ]/ u/ N7 a, M! T3 p
           set b  int (a / 5) * 5; q0 D. A" j# r4 \2 d
    setxy ( xcor-of turtle b + x )
5 u4 h* ~" |/ @4 _          ( ycor-of turtle b + y )
* c$ n; s% ?- |2 Y) l5 X4 A% H: ^if (remainder who 5 = 2) [set c who
5 g& o% ?/ a- m                          set x ( 0 - Wid / 2 )
% S& k0 g6 B& k: x  p/ R" L                          set y (0 - Dep / 2 )  ]# j4 q3 ^+ |6 i# t) m# c) _
                          set d int (c / 5) * 5
: o' k1 b/ E" {   setxy   ( xcor-of turtle d + x )6 w, [. F7 E2 {7 G" i: P
           (ycor-of turtle d + y ) + g5 O1 j( w7 }4 i; L) Y
         
1 }- f) d' O$ w3 K3 M+ N$ l% M            / N2 B/ e  q1 N" Q) ^
if (remainder who 5 = 3) [set k who
& O; e& r1 @" u. z                          set x( Wid / 2)  
" L! E' d$ b- g% Z. {0 j( Q/ ]                          set y (0 - Dep / 2 ) ]
3 }' C( \- Z: l% P4 _9 y                          set f int (k / 5) * 5
# t, K" l% m) ?+ N) F3 ~( N  setxy   ( xcor-of turtle f + x )
; H; Y# {% I9 I0 m8 _; ]8 n           (ycor-of turtle f + y )
7 Q9 g4 d# v5 O& ]+ U$ l           
/ o4 r4 ~) G& v' N' l& g- B7 G  r           
# O; l! q! i5 ~( jif (remainder who 5 = 4) [set g who5 q0 Y) m) P) J% Q; g8 o6 U
                          set x Wid / 2 4 V+ f2 y& _. B. c
                          set y  Dep / 2 ]
/ i$ Y9 R- M$ O/ e                          set h  int (g / 5) * 5$ P' P2 Y: y" h+ `8 d1 \
  setxy   ( xcor-of turtle h + x )3 M1 ]  }, N9 e6 F, Y9 ]& @
           (ycor-of turtle h + y )
3 x* g' d1 u/ S9 v0 ?                          3 Y2 q' R2 Q& t* Y
                          
. S" r; b0 o2 B# U  L% _$ ~                          ]3 S' [, |$ W6 P; m" f$ x
end
; J0 {# d1 N. ]+ `# W1 D3 n! n" _# \* e
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,
' A9 ]9 a3 \. Y# |% F* k3 w1 p/ l9 c应该是
# i# O4 m$ S  y% G8 X5 Mask turtles [& V* ^+ A. n* Z1 ?; F3 z8 {1 _% w
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
0 X% [3 H. \/ O/ M5 t8 c; z                          set y  Dep / 2
5 s* R$ t9 f; I! U, a9 D# e9 c           set b  int (who / 5) * 5
! y# U0 H) [; G6 f, C$ l    setxy ( xcor-of turtle b + x )6 s8 P* g. F5 P: j- w  ~0 b
          ( ycor-of turtle b + y )]]
7 d; ?/ H$ n' H9 tend$ F6 p. o! K+ C( {( R9 M
之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-21 13:42 , Processed in 0.014196 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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