|
|
我的模型,原意是使得每五个turtle成一个矩形,这些矩形随机散布在一定范围内。/ E+ k: U+ Q! N( h9 _" E1 I1 k7 r
& J& u W- b3 Q* \. m但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。
' h: d: A% o9 {3 R, ~3 e% k$ {$ X& N4 o8 {1 {
turtles-own [a b c d k f g h5 E V/ Q5 D3 i
x y ;; these are the leaf-turtle's offsets relative to center-turtle
' A9 d; y+ y$ a]( W! ?$ {3 V3 ^7 J" Z3 K4 i$ l
to new' X$ n' k8 {! T! [
ca( A1 N6 x5 o9 R$ \7 F' M. J
crt 5 * num_of_building
5 S7 E1 p: g& F* R ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
& w- [; ?, n" y7 |: `" r scatter ;;keep center-turtle random positions * D+ Z& W* M. J: M1 C7 }
unit_plan ;;make up the building plan
' U8 F- i; H3 c9 T' Rend- H% t* D- {; |( b2 N6 ]
to scatter! ^& K# E% f" T5 ]0 H$ T
ask turtles with [remainder who 5 = 0]! P9 ^: a1 S! i
[7 Y7 |% u6 U, K# s4 N. @5 F
set xcor xcor - 6 + random-float 15. m+ a& q6 O& G" q1 ` z) t2 }
set ycor ycor - 6 + random-float 152 [4 _/ B. S$ X4 \6 u1 l0 k1 l
], D: v* H8 ^2 o9 m) D
end3 B3 i0 o' ^7 C' Q. [5 p; n$ h
to unit_plan ' |7 ?9 n5 ^' c [% E
ask turtles [
( i' f. r8 L6 r& qif (remainder who 5 = 1) [set a who / P+ |6 o) j5 m
set x ( 0 - Wid / 2 ) 4 Q4 q8 P( v7 A( ~4 e& M& @
set y Dep / 2 ]& x9 d# @" E: j& e# S8 n
set b int (a / 5) * 5
0 m" x( b) D+ E setxy ( xcor-of turtle b + x )
) R. |& I+ F! R( Z( o" f ( ycor-of turtle b + y )0 Y+ X# Q m6 e( \% V
if (remainder who 5 = 2) [set c who
' `7 G. P0 I+ v set x ( 0 - Wid / 2 )
9 c+ Y) h% U, c% K& _1 Q( o set y (0 - Dep / 2 ) ]: h+ ~5 S' n1 {1 a9 I
set d int (c / 5) * 5) h$ u5 E# I2 n
setxy ( xcor-of turtle d + x )! o/ z/ F3 w$ h s
(ycor-of turtle d + y )
4 {6 y% F0 Z1 w9 ?! ~6 }
& l/ r$ v1 ]( Y5 d3 p% Q( G3 ~* A # V1 z1 a0 s0 L4 S( `5 a6 s1 }
if (remainder who 5 = 3) [set k who6 q m `* n' a+ w3 O* o
set x( Wid / 2)
/ F* Z7 \% A# u3 G set y (0 - Dep / 2 ) ]7 y o8 x: ]: j% O( V
set f int (k / 5) * 5
: p/ W" i0 K6 ^# J( C0 b setxy ( xcor-of turtle f + x )
5 V/ ~$ i, S/ J (ycor-of turtle f + y ) / ]1 k5 T) J3 R9 f- L( ~ H D, ^# `
4 S' _5 c8 x, N. D/ J p
& j3 _# h8 f5 s' {! {if (remainder who 5 = 4) [set g who
8 U3 n- t$ h2 `1 F- z# P/ t set x Wid / 2
2 w$ F8 f5 C& y! _ t9 z set y Dep / 2 ]
; T% x: J) X3 E9 d8 y2 J; E set h int (g / 5) * 5, L) ~$ ~" B% U8 B) b
setxy ( xcor-of turtle h + x )
, z! I4 s2 Z- u2 E/ |$ b* o7 N( S+ o (ycor-of turtle h + y ) $ R. z2 P; c. Y7 D% @) Z/ j O- j
0 E6 d6 v ]! T, p6 |) K/ T
$ o$ U1 A: a' l9 X z
]
6 ?! r6 j9 J1 [( o, s8 V: d3 ^7 C# b+ fend
% N1 U Y# G. m$ |8 D$ v/ z/ _4 B: o; T9 W' ]0 G
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|