看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
* _. e# w% U+ o" g
/ y( U. Z8 o5 J3 k9 x2 j8 P但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
3 n# I2 j: X5 P3 C" q) Q, U) B
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
1 n3 Q% \6 n5 x& Uto new
  ca
/ U: }4 {) e( f- m: _% r# l% M  crt 5 * num_of_building
, @2 Y2 y3 z* s( a9 _  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
% ?& k& G. ?/ f1 @5 b1 i3 I. r  q  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
( T, w8 I0 s3 Q) z( l) G' Iend
to scatter
ask turtles with [remainder who 5 = 0]
( f9 o: Z, g8 {. ~[
8 f% G( b8 L! s4 Fset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
* f% O/ p- W9 Q6 h]
end
4 w  I7 E8 ]. l; }$ ~" j- uto unit_plan
. D$ \" V. n, q  |5 Xask turtles [
if (remainder who 5 = 1) [set a who
* C5 Z- |4 H6 D' \( ?9 ^. [/ ?" _                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
6 C* j4 S. s1 `. D2 A           set b  int (a / 5) * 5
/ z) f2 D! z  o1 |9 Z6 I6 ]9 o    setxy ( xcor-of turtle b + x )
' W( l/ @% E7 d          ( ycor-of turtle b + y )
1 }8 c  ^" K$ cif (remainder who 5 = 2) [set c who
& t% P* V& l- K  a5 v                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
+ _% L, ^0 r+ r   setxy   ( xcor-of turtle d + x )
" t5 J) L4 n! ]6 y1 f1 l           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
) \2 m. g  J* R( M: R- `  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
: Y3 q, }5 G1 i2 a' F# I           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
$ E( e; x$ L- Y5 {$ I( C                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
% P$ {3 v2 s% c: k  setxy   ( xcor-of turtle h + x )
* a- z% D! I* {9 u6 N           (ycor-of turtle h + y )
                          
7 }0 M7 }" v! T; B9 ^3 R                          
1 E) c$ m: ^4 n' F+ m                          ]
7 I% s1 K1 a) v0 m! v( n7 o% Eend

[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
* s" z- o1 Z& y; K/ j) Hif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
3 |4 S" M  C4 d3 |  `' p                          set y  Dep / 2
           set b  int (who / 5) * 5
# o% M  c! V* h: p2 t  D    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
/ O4 }* I0 K! K之前有个括号位置不对没发现