设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7788|回复: 1

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

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。
7 h  u# q8 H% [) c+ k+ ~5 o
; ]6 F- L1 O8 E2 B1 d8 ^: y+ F1 U但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。! P" s- P* W3 c6 S1 }% E3 W

3 N; @* Y! o, W9 `2 L& gturtles-own [a b c d k f g h
) f- I" m9 u$ T+ K! F) |" `0 ]8 k$ b  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
; r9 s2 ~( J) N$ s( n. x]
/ G$ L0 l8 t; G$ B: N$ ^  qto new
9 s1 R( w; q$ d  ca& W8 |+ p) e* s2 i7 m; l! ]& Y
  crt 5 * num_of_building& G$ v6 \( u' w" J) V& l+ V
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]7 Y% S9 [( q; J+ b, j- @! T
  scatter     ;;keep center-turtle random positions
1 D8 E! k3 M* c2 {. ?  |6 i' |  unit_plan   ;;make up the building plan
7 U% z$ L0 v6 O2 A% H9 dend
/ h  N$ T. v8 S' Y3 f6 {& Vto scatter8 Q* L4 L# O1 T7 z& F" {
ask turtles with [remainder who 5 = 0]  z5 u# Y& v- Y3 s+ u; x
[9 [" q7 X$ O& G8 w* A" n8 |% l
set xcor xcor - 6 + random-float 15- h3 l7 n+ S5 G; p! ]8 r( A
set ycor ycor - 6 + random-float 158 o& P7 \7 D$ i9 Z/ p
]
* a% T. F& q& v) q; n7 dend
, b, ^1 |' H0 p+ v8 @to unit_plan
* a4 h( h6 G! S* wask turtles [1 X2 {. X' T1 l$ [8 ^
if (remainder who 5 = 1) [set a who
- J  V5 S# A1 a  w! N5 E                          set x ( 0 - Wid / 2 ) ) B1 ?/ |% Z0 X4 n/ d
                          set y  Dep / 2 ]+ h2 g# m- ]6 `( I5 a  C* q
           set b  int (a / 5) * 5" G3 F; J, p7 K3 i8 r6 U. Y" e
    setxy ( xcor-of turtle b + x )+ \% H6 P! ]% H9 w
          ( ycor-of turtle b + y )$ o( ^, o" U0 c8 k4 ?7 M9 W' `7 a
if (remainder who 5 = 2) [set c who
3 |1 _& C' g1 a- x4 }  Q                          set x ( 0 - Wid / 2 ) 2 t- r  X% F, e* L9 I% J& D5 w, w" A( E
                          set y (0 - Dep / 2 )  ]
& t% u# y( `; l/ _/ J: N/ J4 P                          set d int (c / 5) * 56 X' a+ @" m- I5 W8 G# Z$ j
   setxy   ( xcor-of turtle d + x )$ x$ p1 V5 [& p  @7 Q! E4 q; B
           (ycor-of turtle d + y )
1 R- s; {0 P6 C- D' @1 H         
: F2 }. L5 N' _            
8 u5 S# o# a2 d7 C# ~  y# Eif (remainder who 5 = 3) [set k who
6 T$ p( W. Y  o# z                          set x( Wid / 2)  
# `  F, j/ f& n: @) N0 ?                          set y (0 - Dep / 2 ) ]
2 f6 _3 ^6 N+ e, E                          set f int (k / 5) * 5
8 ^- M; I: |6 W  setxy   ( xcor-of turtle f + x )
! v7 @( o4 G; z+ s# C/ f           (ycor-of turtle f + y )
- I! Y% }; |/ J' U, V( c           7 Y% E6 |  x" L/ E8 R) ]+ ~+ t# b" I# k
           
/ O9 {. ^) ?: ^! V. hif (remainder who 5 = 4) [set g who
( i- P% U! r7 _% V                          set x Wid / 2
3 c" |0 h- S6 v- y/ A1 p+ A8 Z                          set y  Dep / 2 ]) l% E0 x( b: [5 v( |  R
                          set h  int (g / 5) * 5% B2 Y3 p0 _: K! {: [, g* X- K3 N
  setxy   ( xcor-of turtle h + x )8 {9 o  ~0 v) a2 J2 ?+ ?: Z$ ~
           (ycor-of turtle h + y ) 4 f1 r6 G8 w; c, F
                          7 N7 I6 `2 E0 m( ]. g2 _  B; S
                          
; E5 S5 w+ a- z3 {! H! h- }                          ]
* n5 \. e$ a! xend. B  E- n$ t1 y5 J0 R" t8 P6 H
# m0 J! D8 X- n! ^2 S" z
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,
; X4 H0 e" G' N- i, H6 M# [应该是
* v4 r+ b1 ]; d) H( n6 Bask turtles [
5 `8 Q( t( y' w/ Q; Vif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
& |9 v. W" m! f                          set y  Dep / 2
* B9 v( P3 I7 c. L. r9 t5 q" D8 ?           set b  int (who / 5) * 5: B6 v3 d4 R- h( |
    setxy ( xcor-of turtle b + x )
9 U. O; g+ [- m" L5 }7 Q# C  M! l( A          ( ycor-of turtle b + y )]]
1 I! \( V) ?! p  q7 D5 _end
. H* I! z% e5 ]% ?之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-31 16:52 , Processed in 0.018590 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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