设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7457|回复: 1

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

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

+ ^( E, J' Q% P9 Y, c) J但是运行结果所有的矩形重叠在一起,只显示一个矩形。请大家帮忙看看。8 X, q: I# g: H* V$ Q4 Q, F

! f2 U) K* D% s1 K7 }- s# |1 mturtles-own [a b c d k f g h
3 M( n( p3 l# y  S9 A; b+ h  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
9 X4 x: k" S; E& r* n5 @. ]], n& O; w2 e% b* `' W
to new
3 @. Z4 \0 B) y- |9 T- }4 @. c  ca
! @7 K/ S1 t* `% p* b1 W5 I" `  crt 5 * num_of_building
2 p! f9 h0 K5 S& q& P  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
1 |, S! i, S+ E* W# J+ `* ?9 n* r  scatter     ;;keep center-turtle random positions
& p: V9 R$ a) u' k  unit_plan   ;;make up the building plan  L. m( `5 k* W" h
end
- C. A7 i( D" ]6 G  C4 i% n# Jto scatter6 t& q+ s0 \7 ^* {8 z8 S
ask turtles with [remainder who 5 = 0]) n; m& c1 O' z
[
- d0 ]1 _6 Q0 B3 k' fset xcor xcor - 6 + random-float 15
; b, {; x$ ?* r, a! J1 H. Dset ycor ycor - 6 + random-float 156 @! u* V. z( r7 y  J8 J9 M
]) Q& G+ i# b; C9 N- _0 w! b
end9 O. f$ `. W" P: Y4 I
to unit_plan
( s+ B4 z* U! Q/ M; S5 Hask turtles [5 o% f: G: A% @4 q
if (remainder who 5 = 1) [set a who % q& j) ]4 H2 L
                          set x ( 0 - Wid / 2 )
2 K7 @. l4 l3 H7 \2 f7 g  L                          set y  Dep / 2 ]
1 P2 |8 p) R% I% A2 b% M0 F3 E           set b  int (a / 5) * 5( \$ L8 I) n0 ?
    setxy ( xcor-of turtle b + x )6 m0 U8 Q( P! ]
          ( ycor-of turtle b + y )
* y0 c& H3 R+ R: w- Fif (remainder who 5 = 2) [set c who
0 h) D/ g/ T; T% H8 n1 S/ C, ?" @4 i3 n( P                          set x ( 0 - Wid / 2 )
# s1 E% _+ N. P! |! j                          set y (0 - Dep / 2 )  ]7 u6 d: D+ F+ M$ Y
                          set d int (c / 5) * 5
, G( U  j/ r5 L3 O4 H0 \   setxy   ( xcor-of turtle d + x )  }' m4 ?- V' p9 J4 D$ x9 X0 _
           (ycor-of turtle d + y ) : _) H8 u% a! D2 |9 Q6 T& C6 n
         
8 T0 r$ _! `* t: H# u            
9 n' b1 Q4 B! w# p7 Eif (remainder who 5 = 3) [set k who
* }* W2 m) p1 f                          set x( Wid / 2)  
1 `3 E$ v( }" U6 o% o; h                          set y (0 - Dep / 2 ) ]) F' U; U8 }5 D0 h5 [
                          set f int (k / 5) * 5. ?: n' A  h, C" W2 u
  setxy   ( xcor-of turtle f + x )0 z3 K6 O) \: [( W) Z
           (ycor-of turtle f + y )
  D) Z* V" |5 ?7 D2 ?1 e  \" w             A3 ?6 B5 [5 T8 v9 U( G3 B" y+ Q
           6 y0 P4 k* d& P8 J: M; v# C* c
if (remainder who 5 = 4) [set g who
' v" J7 {8 n9 R% ~                          set x Wid / 2 5 y( _  ~2 ]9 R: Y' B% P
                          set y  Dep / 2 ]
1 K& u, b- B0 \3 g$ D0 F( o                          set h  int (g / 5) * 5
4 z# Q% r" ~4 m9 Z2 ]  setxy   ( xcor-of turtle h + x )' o$ Z$ h5 r# H: M8 f2 q3 h
           (ycor-of turtle h + y )
) p! L7 y! H, [5 }                          
/ X: L! s" C1 q8 J                          ' m) h1 L! }! E6 v) x' f4 J
                          ]
1 d- O( g" Y% J2 bend
# {# o  J  Y5 K2 f
* p' T$ d6 k' N3 F+ S[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

本帖子中包含更多资源

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

x
 楼主| 发表于 2008-4-11 13:26:12 | 显示全部楼层
已经解决了,! i' R. n( t) M6 q* @
应该是
+ F1 Q) S# s4 Q9 [. Kask turtles [
1 {  F: ]7 A, v/ [6 D4 M/ N; b2 S4 p* rif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
! J2 i  A3 n7 n( N; ~/ `7 m                          set y  Dep / 2 ! l- a  H+ A' z" `7 P) \5 l
           set b  int (who / 5) * 5
/ K. _& W3 }( Z, U    setxy ( xcor-of turtle b + x )
+ K! i3 p$ ]& l8 q4 C          ( ycor-of turtle b + y )]]
/ q4 K- h, k& u( j' X8 O# X) \end1 d0 x4 O" W4 I* k) p
之前有个括号位置不对没发现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-13 11:39 , Processed in 0.015227 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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