设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8246|回复: 1

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

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。
1 Q5 R5 z- W, n7 s9 A8 }/ b) z7 i( [- h( ~
但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。1 H/ J. B( f$ U/ k

+ h& w$ k) k# N2 f, m3 Q4 q' iturtles-own [a b c d k f g h
6 m' q& Y5 X6 _3 Y5 B  x y     ;; these are the leaf-turtle's offsets relative to center-turtle ( r3 u2 e- `+ l
]- D, X) `4 i: ?- S- H
to new1 |, [6 }0 A0 b; A6 d. E2 @
  ca: r6 O( S& [+ O) d$ ?3 l
  crt 5 * num_of_building( o" Q6 T$ A3 y+ F' a& p" M4 |
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]& r/ Z+ H4 p! B. G
  scatter     ;;keep center-turtle random positions
- B5 C0 H! t& z# A6 |% I  ?( H  unit_plan   ;;make up the building plan
6 ~  ~& W& U% v' D3 eend
! ^' K/ h; {. Q% |  r, b, nto scatter
3 e5 Q9 C5 Q* G/ u3 {8 I9 M* v6 K' Nask turtles with [remainder who 5 = 0]
/ }  }! i0 A3 K+ U  s  [5 t[
/ {) T( q0 H  Lset xcor xcor - 6 + random-float 15$ V& w+ {/ g) G  W
set ycor ycor - 6 + random-float 15" ]- S+ J: X) \/ V0 n
]8 \& e, X* J2 C' m6 C+ ?7 h: Z
end) m7 a2 L: C6 q0 ]; E( ?8 {) F
to unit_plan
: @4 T( i* j" t+ y4 Kask turtles [
0 [* x4 M3 {; S! R/ }5 vif (remainder who 5 = 1) [set a who . C( x: w0 {- {5 H
                          set x ( 0 - Wid / 2 ) 7 P3 W2 b# A2 }4 W0 B# }9 n
                          set y  Dep / 2 ]
6 z: d3 ?3 A5 Q# S           set b  int (a / 5) * 50 m2 A& M! Q$ v
    setxy ( xcor-of turtle b + x )
- W5 ], l! P6 `9 Q, b7 [! g3 n          ( ycor-of turtle b + y )5 a* \+ @; f; K/ R( q
if (remainder who 5 = 2) [set c who9 J! _* w5 o# G6 V0 `0 a" e
                          set x ( 0 - Wid / 2 )
# W/ D. [( F) P, i, m                          set y (0 - Dep / 2 )  ], S6 ^3 U2 t" V3 p6 W
                          set d int (c / 5) * 5
2 R3 E3 f; g+ k  ~& _% Q   setxy   ( xcor-of turtle d + x )" w" }) r' Y$ z
           (ycor-of turtle d + y )
. c  [7 n& C) I( \$ a, O9 S5 @/ b         
) c8 I6 n$ t0 W1 W0 Z( R1 \            
3 E6 D/ B5 N+ n9 W: F) Wif (remainder who 5 = 3) [set k who) h2 K' @7 ]% A/ z* n9 c
                          set x( Wid / 2)  # S" G# V$ r! I/ Z1 G, ?! D9 m4 D# `
                          set y (0 - Dep / 2 ) ]$ V, i6 [+ \- w6 \' R( H. M' q
                          set f int (k / 5) * 5
- s$ v5 u; U) O9 h# k0 N1 n, j  setxy   ( xcor-of turtle f + x )0 F8 F& d* @( ^' \6 d2 N5 V
           (ycor-of turtle f + y ) ! q$ Q1 F! d) t) X* B! c2 W
           
. i3 i) b6 z) @$ b6 ^0 v           
% ^6 m) s4 D' t2 s* ?' H9 \* |if (remainder who 5 = 4) [set g who6 ~6 C' k/ O5 k8 y1 D6 ~  l
                          set x Wid / 2
4 ~; _& O) L4 V9 `/ i0 J, V0 M                          set y  Dep / 2 ]
; q' _; ?1 }( {/ p, t5 C7 \( b/ |                          set h  int (g / 5) * 50 j+ F/ ~3 y  V& [
  setxy   ( xcor-of turtle h + x ), T7 ?7 \( W- H
           (ycor-of turtle h + y ) 1 {) i+ I6 a# a( o- F+ X( T
                          
/ H- T3 E; L' S                          - b* P; D! q1 m( e; }1 B
                          ]
- V& l5 p7 [( u3 p. u* `5 Lend
* q$ [5 H. t1 J0 S& n- X# ]! _7 L. Z7 x3 b/ ^* i
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,2 n: K1 ?" L: w' ~/ x1 Y2 d
应该是1 X( j* m2 s3 b+ @  Y3 ^
ask turtles [) C( h' `6 U9 T* c  J# x+ F
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
. D9 p* [4 ]# U8 z# G! v4 i                          set y  Dep / 2
/ X  Q4 }3 a3 j; }5 n4 d           set b  int (who / 5) * 5% c1 K* I, o. p. e: n4 A
    setxy ( xcor-of turtle b + x )6 `  C6 n) g7 R3 |& B2 Q& q
          ( ycor-of turtle b + y )]]9 `1 l# P1 s9 N4 L1 O& S
end
8 A/ N& W. x/ p& e之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-24 05:48 , Processed in 0.019739 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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