设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8640|回复: 1

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

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。
- O& m+ o7 ?- k/ z
( y4 f/ a1 t, E5 r. P但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。
" q4 B$ c0 E3 F0 F) J6 R. Y5 Y1 i; x
4 z: q, {$ l3 R, a: E2 G8 Hturtles-own [a b c d k f g h
9 U) a5 o0 w( K, F& m8 m  x y     ;; these are the leaf-turtle's offsets relative to center-turtle 4 O1 }5 u$ F, v$ I7 J
]! h/ H2 F- Z/ O4 i& x3 Q# }# E
to new
7 u# U& O, D5 L- L0 N5 M% z+ b  ca
& a# f7 [( n& c% y6 q  crt 5 * num_of_building
! C; C4 o. ]9 O6 _, X  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
' b* X# W  K$ P' M% z. B  scatter     ;;keep center-turtle random positions 2 o6 I" a0 h, G, T
  unit_plan   ;;make up the building plan6 J  \; ~# I6 P, d
end
6 v% ?) v9 [- j5 o$ Uto scatter4 b# Q. `3 V7 P8 Z% F- r% Q( o& |
ask turtles with [remainder who 5 = 0]# M$ d& f0 f* A5 s: O: u) X" {
[
" w  o' j1 Z8 E2 _( fset xcor xcor - 6 + random-float 156 j# N( a) S5 e( c, G9 f
set ycor ycor - 6 + random-float 15! J  k, N* Q. R2 t4 n
], o) i8 x& D- X+ j  J6 a
end3 m9 L" f  H% @7 K" h- }! p/ r
to unit_plan $ H5 u5 v# n4 I
ask turtles [
9 q. |# }* Z' W6 K: ?6 p, zif (remainder who 5 = 1) [set a who 8 G9 k! c) N+ x# b4 ~
                          set x ( 0 - Wid / 2 )
( T' }& x4 l2 Y% D+ u" a) J                          set y  Dep / 2 ]9 V0 d- T, \% Y$ z3 r
           set b  int (a / 5) * 5
6 {: W: H" D4 e( K  O    setxy ( xcor-of turtle b + x )
! Q; ?0 _: t7 u5 k' h; h+ A          ( ycor-of turtle b + y )
2 Z9 x# r) ~  eif (remainder who 5 = 2) [set c who; |$ g9 j. H3 k# o: S7 {: i5 z5 l
                          set x ( 0 - Wid / 2 ) 2 ~% D* F' z9 v+ E0 w9 m
                          set y (0 - Dep / 2 )  ]
2 f- c$ Y7 k% y1 g0 ~                          set d int (c / 5) * 5* X! N6 H% |9 Y4 b' z
   setxy   ( xcor-of turtle d + x )& Z; `) `; I' H8 Q: a2 _
           (ycor-of turtle d + y )
; W* k7 L& R3 A; }5 J* }3 [+ g3 {          % ~' m/ Y3 q; Z
            7 l* E6 P# M. g. w$ s. V5 |) z% q, _
if (remainder who 5 = 3) [set k who- G( \8 K! B/ d" M' j5 B0 r
                          set x( Wid / 2)    C) Y+ q) N, w1 u- @
                          set y (0 - Dep / 2 ) ]/ t* Z3 l  j9 E: I
                          set f int (k / 5) * 5
$ Y% c3 @- F5 E2 _  setxy   ( xcor-of turtle f + x )
% A! b! i% P' [; [% Q/ J) O           (ycor-of turtle f + y )
. n) ^( z5 g$ C* X& G           " K! `, M' }7 w4 Q2 B/ b
           9 |+ R8 U+ b! l5 H9 K
if (remainder who 5 = 4) [set g who
/ f3 K1 i% a; V4 E2 t  h% p                          set x Wid / 2 4 a3 A4 y/ E& K0 p: E' \2 I. B4 V
                          set y  Dep / 2 ]
5 J0 k$ u3 ^4 p3 h% X& P                          set h  int (g / 5) * 5
  b* S7 y/ {5 v; h) L  setxy   ( xcor-of turtle h + x )) P4 p$ h* T$ y% G
           (ycor-of turtle h + y )
! L! r& _1 f! y6 {                          
' Q4 A7 ~9 [$ f                          
# M: B5 _$ H0 L- A$ z2 C, n                          ]
3 @& q, d" r. s# iend
5 P) X. l3 z7 K  W: T0 w
' w8 V0 f' J' Y1 ^[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,1 a1 ~: Q3 N/ y/ l
应该是
1 k- K1 c# e2 o+ g4 H- p; X( ?ask turtles [
, h5 L) O7 l% D8 C' T5 wif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
; L3 u* C3 ^+ q8 I# _                          set y  Dep / 2
/ S) M) J0 E+ A) i5 \6 G           set b  int (who / 5) * 5
: P8 e0 b' D# X    setxy ( xcor-of turtle b + x )
$ d  o+ [" s0 [2 W          ( ycor-of turtle b + y )]]8 I! a# ]) k7 i1 _# i
end
+ B" Y; d  D, m/ j0 i之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-19 07:15 , Processed in 0.015205 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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