设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8118|回复: 1

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

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。
; v. T" u: a3 Z5 \
8 @/ U& ?1 s* M4 b) E, A+ X但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。0 W7 x6 c) ~5 I/ ~  M5 H

- N$ u1 G: l$ r: Y- Gturtles-own [a b c d k f g h
( z9 w1 a' e7 @+ v  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
2 h3 ]- {( s2 ~/ B]+ Q, q+ W0 K7 B5 p6 q! Q9 N6 U' p7 l
to new
' b. f8 P9 M% f1 H. x6 Z9 K/ x  ca5 A( G5 l( S- }2 Y6 R, H, g
  crt 5 * num_of_building3 ^7 b9 s( E& p
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]/ K' K6 c, y5 p6 g( c; J$ d
  scatter     ;;keep center-turtle random positions / u8 e* n1 w. d9 V' M5 D) V3 m0 V; Q7 W
  unit_plan   ;;make up the building plan$ s& f: `- X5 U$ {
end
3 H: d" p" W  b- x# a2 O1 Gto scatter
8 A: O9 L6 w! u9 Nask turtles with [remainder who 5 = 0]6 y$ d; g" z8 l; b
[( L% K4 d+ M$ a  `
set xcor xcor - 6 + random-float 15
5 e$ E! n9 x4 ]set ycor ycor - 6 + random-float 15
% C. W0 b% b, I6 d]
& f# i7 E  M4 v0 J$ Kend
/ b+ e3 \6 }! dto unit_plan
& e+ k+ z' U4 V" jask turtles [
+ h. O0 ^# X# F% \. qif (remainder who 5 = 1) [set a who * R- g: }3 M7 z/ C9 t+ F1 q
                          set x ( 0 - Wid / 2 ) : m  Y# b: O4 n. U; |1 p9 o
                          set y  Dep / 2 ]+ ^# |( P2 `8 }& J  Q, T* w. v
           set b  int (a / 5) * 5- s2 q( }7 c" u# W: B
    setxy ( xcor-of turtle b + x )
. _9 S0 P  G% A) I  _          ( ycor-of turtle b + y ): V, Y% k0 i# i1 L) w% K5 j- Y! o
if (remainder who 5 = 2) [set c who7 {' Y9 `, ~- u; C, K7 p  |
                          set x ( 0 - Wid / 2 )
8 _- S9 l% L, p6 L9 K6 q, ^                          set y (0 - Dep / 2 )  ]5 j9 s( R# y6 e+ ]
                          set d int (c / 5) * 53 c: Z2 g% {: o/ Q/ x1 i
   setxy   ( xcor-of turtle d + x )
' F4 C2 [$ j8 V2 U. v3 |           (ycor-of turtle d + y ) 6 o0 u' N" a( Z! y  A
         
+ R" b, |; g7 ~8 d4 }            ; d7 c8 w5 h$ i" [9 Z7 L3 P- o
if (remainder who 5 = 3) [set k who9 C" Y. E" t9 f- Q( s* k- E
                          set x( Wid / 2)  : F7 @! Y, V% B6 C( A% V
                          set y (0 - Dep / 2 ) ]
$ x1 I+ z" d  o+ S                          set f int (k / 5) * 5$ g, l/ E- c4 T. J" B* R
  setxy   ( xcor-of turtle f + x )
6 \) a8 J1 Q6 X4 q5 C% Z. c- p" p           (ycor-of turtle f + y ) 8 S% q+ z& N1 ~/ u6 d# v
           2 B# B/ u: F5 V1 I4 g' h
           
# Y/ t# D: P: G  e1 z2 G) N* F/ ^if (remainder who 5 = 4) [set g who  k  V! T1 N9 m( N2 ~3 m% C
                          set x Wid / 2
) z0 r8 T8 p( A6 n( @) Z  @) d                          set y  Dep / 2 ]
; F9 Z  r. S' m3 L! n, e                          set h  int (g / 5) * 5
3 B% o5 l& D: M2 G! Q  setxy   ( xcor-of turtle h + x )( Y6 F0 M8 U; s
           (ycor-of turtle h + y )
4 a9 k" H3 P8 @% |! V/ f# R                          4 k5 H, b; d, Q
                          
  S) O+ u1 a1 B3 y2 T7 w                          ]
+ J" H& c7 A9 ~  Fend) Z* a) u$ V+ J0 o
8 b% ~. ]& Z: E; K
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,+ g1 @1 R: T) `
应该是
. y! G# S9 f. gask turtles [
& |$ d- x5 E% R, Dif (remainder who 5 = 1) [set x ( 0 - Wid / 2 ) : L  g+ Q' p* b7 O
                          set y  Dep / 2
3 m/ B: R2 R% |- {& B* Y           set b  int (who / 5) * 5& S! i, T. k" C  v
    setxy ( xcor-of turtle b + x ), _6 H3 R$ n* _. K; \
          ( ycor-of turtle b + y )]]0 x4 K; G2 }6 [( {
end, g% N6 ^8 O9 i5 x
之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-8 23:09 , Processed in 0.015985 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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