看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。

' a7 J  n" M) n0 ^" g2 R  b  ^5 r但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

4 d' ~5 F0 S. j" xturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
. _6 E/ X. l, r$ j4 _' w3 Ito new
" i. f2 D0 E, V  m  ca
4 X" l1 C1 a7 V9 `. l2 }; l* _! B( t2 f  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  {, G) u4 {- ^* |0 M9 O) E  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
- Y: F$ ^" t* c( x( e! Nend
9 x" p8 z9 @) I1 Xto scatter
2 y8 v" g( `# J1 V3 o2 U/ hask turtles with [remainder who 5 = 0]
: `) d, r8 P! ^; e[
set xcor xcor - 6 + random-float 15
0 c* a& n  q0 y3 F! Jset ycor ycor - 6 + random-float 15
]
' p; a' s+ V; S8 R& zend
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
6 @$ R$ q; {$ w1 c. q$ \                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
+ K# W6 j: f# D; C1 _if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
5 S" v/ X$ u1 W, L   setxy   ( xcor-of turtle d + x )
  W  }6 [: Z! Y' L% _- g2 ?           (ycor-of turtle d + y )
% j' n( v0 z- N. f) l6 s         
7 m. }& u$ r: E  ]            
3 w9 B3 h0 H; F+ U. wif (remainder who 5 = 3) [set k who
4 B" N( f/ M! z4 ?# q7 \/ u- o                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
$ F, U  U, r  n+ j# k1 `5 R5 Z           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
: j# r" C; x; _2 M                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
' o. U+ C% h) {3 I  setxy   ( xcor-of turtle h + x )
0 l3 a+ R2 f7 o           (ycor-of turtle h + y )
$ C  S6 l+ f9 L( [5 v" A& y3 J1 H  @                          
9 ^% `/ C- C/ |* b3 j  [* X. P                          
5 b" \, [8 I' t' h  x. A8 ^                          ]
  X* S3 k) s; P" k; |8 h& v" f3 Tend
! ?- P$ K7 t+ l6 V2 @+ i
5 o& a0 Y: Z) s: R' f- x3 w2 Z[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
3 M( @) N& a' p) m& M# C5 L( ^ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
) l& {! R- }1 t4 P: a/ C& r5 n  f    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
# t6 l: `' f) D: w8 p8 `之前有个括号位置不对没发现