设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8389|回复: 1

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

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

6 p7 o- b) G, U) i但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。2 c/ ~' ~) s) I

5 `. ?5 R% \3 s$ U8 t* v* M, |- Xturtles-own [a b c d k f g h7 W3 ]$ z" n- D2 J5 X$ `( n+ p
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle 2 D7 P' Y) C0 G: K6 }! o( c4 e
]7 h/ e6 n0 i' k% I) |2 i4 l8 W
to new
) n. @: \* \5 p4 A% a  ca
! Q$ s2 [* E! t: q; K5 y  T& [  crt 5 * num_of_building# m/ g( ^( f3 M$ x
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
( R1 N& b9 E' g( x  scatter     ;;keep center-turtle random positions
% r" m+ }) w0 V/ I( {- L# U" {( T  unit_plan   ;;make up the building plan* `- z" E0 l) M" I
end
* y+ |' A; ]' U! Wto scatter
) t; u6 H; C! dask turtles with [remainder who 5 = 0]" `" M" `, J; @. G
[
, Q+ I7 l* w! e9 |set xcor xcor - 6 + random-float 15
( S+ c/ p8 ^" ?! T' z# A) ^set ycor ycor - 6 + random-float 15# u* ]5 J4 Q4 `( o. V
]
% Y7 w! `" }4 wend
/ N+ _1 @, K, z# Uto unit_plan ( m: K/ w& l8 R9 l0 i" }
ask turtles [. R/ `9 Q  F5 T+ W, p
if (remainder who 5 = 1) [set a who
6 e( k, c) ~( q. c- G! _                          set x ( 0 - Wid / 2 ) $ _, B5 }0 D5 _7 j8 }1 }1 m! i5 u
                          set y  Dep / 2 ]% @5 i$ N2 K+ D: E
           set b  int (a / 5) * 58 c  n% |7 T3 U) c( R  J" W
    setxy ( xcor-of turtle b + x )5 X9 L* Q- U: R- b. y% [( a
          ( ycor-of turtle b + y )
" E3 ]- `, r/ g2 I1 q: V3 `+ sif (remainder who 5 = 2) [set c who9 M2 X  N  g7 K; b, T! s
                          set x ( 0 - Wid / 2 )
8 t2 z4 G/ @* ~9 {9 F                          set y (0 - Dep / 2 )  ]
. s& E; f2 G3 D5 v3 H: N                          set d int (c / 5) * 5
7 X2 M: \. u2 K' \% R6 g   setxy   ( xcor-of turtle d + x )
8 A  X# ~2 u1 Z7 N! j           (ycor-of turtle d + y )
3 d' O9 M: n2 {# T. e9 j          ' S' T2 V' E  K  ^. v* ?( H" T- C
            
( ]4 M5 t% v* rif (remainder who 5 = 3) [set k who" N1 F: D4 ?8 ]- Q3 E
                          set x( Wid / 2)  
' x* p5 `8 r$ ~! B/ F                          set y (0 - Dep / 2 ) ]
1 @' A/ ~5 T+ l. g  y* S                          set f int (k / 5) * 55 U. I% ?* S4 ~% t; h5 m1 E+ ~! z
  setxy   ( xcor-of turtle f + x )( Z( R+ q* Y: [, o% b! D5 c2 A
           (ycor-of turtle f + y ) 6 ?( B0 q2 f4 K- j2 f! U
           
% X/ ^# ]. y( p/ m           ) J4 F7 l2 Z- _. }' \# n
if (remainder who 5 = 4) [set g who
/ u: Z8 g( K' E" I- t                          set x Wid / 2
4 X* h- q# q$ u' X                          set y  Dep / 2 ]
+ e  l3 B+ I3 J, J                          set h  int (g / 5) * 5
9 G0 e7 P6 N# }9 r1 U: B, n; H+ R) t, ^  setxy   ( xcor-of turtle h + x )  j$ E2 P, D7 f& b# d. P# V/ L
           (ycor-of turtle h + y )
+ w3 c# d6 F/ N4 J+ j3 y                          & U5 a6 O+ K0 `% J5 N9 X/ [# M
                          
, G7 J2 Q0 A7 O# R+ m. c                          ]
4 G, B8 x3 O6 ]& L$ B5 H' qend# h. C8 `# R' o# P; J

6 y8 |  S+ Y( i' D6 [[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,- U/ ~( r! l8 T/ Y5 o% Q% j1 U5 i
应该是
1 i8 o# F) @& X/ ]ask turtles [
) a& b5 T! e2 y0 g  Nif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
% I, v8 @! }- c1 |; W" D                          set y  Dep / 2 ( ?, M+ c8 H+ D! ]9 v
           set b  int (who / 5) * 54 F/ J3 S* G5 o; v6 j
    setxy ( xcor-of turtle b + x ). U/ h! ~, v% @- t$ R* Q, R
          ( ycor-of turtle b + y )]]" r# V# Q7 f  l1 f
end
0 A( L0 f1 [1 m$ z- P之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-17 22:02 , Processed in 0.015267 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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