看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
6 r% y/ m1 p7 _" M" t9 G0 p
, X  N  y" U3 A" o5 ?但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
7 v# k# l$ }3 a+ s# u' t! C
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
; O, z. A% e5 \$ Y]
to new
5 i6 t) V* M8 ~  ca
) t9 |4 r) R, C1 N/ H* M  crt 5 * num_of_building
( J7 A. }$ w7 O* B6 A+ P4 @% Y( e  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
; d  C% O9 v+ a$ l( j, ]% n" p, a  unit_plan   ;;make up the building plan
end
to scatter
% X" p5 o* y( k8 s& kask turtles with [remainder who 5 = 0]
; k5 o1 K, u: ~& h[
set xcor xcor - 6 + random-float 15
# K) f; U4 K9 \1 f' r4 Z6 i6 Vset ycor ycor - 6 + random-float 15
. P* U: p, B# n& ?1 d* u2 L/ {]
+ e7 S5 h; _/ t1 h8 H9 cend
3 c, C& m/ u6 T3 A  v$ {: H: X0 bto unit_plan
ask turtles [
$ E  s; H6 X" M1 R! ]( r- u% l4 |if (remainder who 5 = 1) [set a who
3 x: Z3 f9 Z3 K8 S! K) w( P                          set x ( 0 - Wid / 2 )
4 F" A, R% |  M                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
2 D  S8 _) K# Y) d/ M    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
  o, l/ t/ p* L) O% ~# Bif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
; O5 t# v) v5 E& X* O. Z                          set d int (c / 5) * 5
4 n; ?* i( `" {; [( w   setxy   ( xcor-of turtle d + x )
' c; f+ N' b8 W6 E  K           (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
% A  S) ^) T# R: R3 d( x0 Y# i3 U  setxy   ( xcor-of turtle f + x )
: F9 ^9 y. T; t8 _6 e' m# N           (ycor-of turtle f + y )
' q2 r8 _& y3 P% a! w9 P           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
4 W# Y+ R+ M7 z+ C; u% h9 q, E                          
8 ~* u2 U/ _3 g3 ?; Q                          ]
9 H) s6 u# t* r/ v: zend

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

etamina

已经解决了，
应该是
! o. Z+ R9 n0 Gask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
4 \7 ~$ Z% V& [& a7 {3 x                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
9 [$ y5 c5 }* ]' @4 z2 |. K          ( ycor-of turtle b + y )]]
3 B0 e1 z( u) ?  M! o' ^, m0 Tend
之前有个括号位置不对没发现