设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7295|回复: 1

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

[复制链接]
发表于 2008-4-10 16:36:43 | 显示全部楼层 |阅读模式
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。" H. ~& B; D4 J9 U& L

4 N! f' V* h( |! }% Q但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。
1 E$ b) o$ j- Q6 |! c* H$ z' v7 t& Q/ b" v+ d
turtles-own [a b c d k f g h
; R2 W- B7 @9 N: ~  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
, Y! E6 i% a6 Y" j- ~]7 e" [$ `* N5 c1 F9 W5 r( g
to new4 T2 Y- K7 u' y' t, z
  ca3 f* I4 o4 P2 j" O/ Z% I( g# \
  crt 5 * num_of_building
$ [# c! p, u( Y* J  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
! G' q8 ~: {# g/ Z  scatter     ;;keep center-turtle random positions
8 z4 x& D: k" C( C$ w, ^0 M  unit_plan   ;;make up the building plan1 b: F5 I! N; ~
end
6 v% ^! _1 i6 wto scatter! m" p7 h3 q) J5 w4 H
ask turtles with [remainder who 5 = 0]
0 P1 c+ m" E7 G/ N; G[( r8 }5 V: f( S' K! |( r% o
set xcor xcor - 6 + random-float 15
7 N/ @5 D7 p, @; o% eset ycor ycor - 6 + random-float 15
! d/ c9 X! f5 s3 [  t/ I]; ~1 U- ^& i. ~
end
# x1 [# Y- a- W0 Kto unit_plan
. ^7 a" }' }, \( S( iask turtles [: E# `! P) _1 V! E$ _
if (remainder who 5 = 1) [set a who
0 v/ J  v2 s( Y  A                          set x ( 0 - Wid / 2 ) 8 F, C- L' P  p% q+ v& R2 d; S
                          set y  Dep / 2 ]/ }/ e2 [9 o+ J4 W+ C2 e; }. _) s
           set b  int (a / 5) * 5. n/ G/ C( {, b/ E, H
    setxy ( xcor-of turtle b + x )" ^. Q/ C  c9 h$ X# i, K: N% A
          ( ycor-of turtle b + y )! V8 _. M3 Z4 a: @
if (remainder who 5 = 2) [set c who
: x3 g) y0 S4 f4 Z5 k& t( w( p                          set x ( 0 - Wid / 2 ) / \0 _& G' H- r8 m$ C% S# x
                          set y (0 - Dep / 2 )  ]4 K5 V* D0 A6 B' r
                          set d int (c / 5) * 5
6 {' c4 y9 b( D- Z4 S   setxy   ( xcor-of turtle d + x )
+ I, }9 u2 p; G, M           (ycor-of turtle d + y ) # q! N; J2 `6 W9 ?* F* d  x& w1 f/ E
         
' B8 g% ^+ J) A            8 s, U1 H, m5 U
if (remainder who 5 = 3) [set k who' [" u# P$ }7 g1 l1 h, u& g
                          set x( Wid / 2)  * I6 O1 u7 J( o/ `
                          set y (0 - Dep / 2 ) ]5 s' X5 p5 H$ n9 R' I; O, o
                          set f int (k / 5) * 5
, {" T8 v# z* I. G  setxy   ( xcor-of turtle f + x )/ I  h7 n2 x5 _; L- P4 B0 _
           (ycor-of turtle f + y ) ! ]% ~: W& Q9 d$ Y' _
           
- _+ K. j7 o7 Q% p           
& r( n0 g# R+ \* h: iif (remainder who 5 = 4) [set g who
5 S+ S" J! a5 ^! U: U) w                          set x Wid / 2
; i' \* f( R# ?* [  P                          set y  Dep / 2 ]- C7 _) F0 s! N: P* _
                          set h  int (g / 5) * 5# _  ?* ]! a# q/ O
  setxy   ( xcor-of turtle h + x )
' X. o# J# X' k3 M           (ycor-of turtle h + y )
: w" V  m3 e4 ]# w% |8 @0 x                          
6 i. ^0 J: b) Q' k; m                          4 Y9 X" e% s! Q' K1 s
                          ]2 b* t) I9 z, ]
end  C4 B$ I8 G( T* A5 M1 @
( ~- _1 I1 x+ m, u$ _
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,
: f, H3 E9 ~& T5 p  {4 l# ^应该是
& y8 p$ t/ U) X) s; S* {6 cask turtles [
4 ]8 e! ]) b1 A% @8 i( e& nif (remainder who 5 = 1) [set x ( 0 - Wid / 2 ) 9 U+ z( K2 c" s, [
                          set y  Dep / 2 ( f9 g! O: w% L$ e) l0 J
           set b  int (who / 5) * 5
( T  {. r# F3 I% V    setxy ( xcor-of turtle b + x )
( E+ r- e: Y3 i1 j6 \$ c! I          ( ycor-of turtle b + y )]]: v! Z  F5 |- d( r
end2 _+ o( m' t* g$ f  |3 }! a+ I
之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-26 20:52 , Processed in 0.019179 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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