看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
0 k$ F; H+ T) y
2 Z* B' B1 h% I  h6 {7 O5 m' u. f但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
6 y5 ]+ W% U8 v
turtles-own [a b c d k f g h
6 a3 N' m5 u, B4 D  }0 ~0 F4 N/ e  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
) T, D% \% `! r7 V7 U]
to new
* P8 w. S. C" G% }* ?$ G  ca
2 q  }5 l, a- y; |% P' R% S1 }  crt 5 * num_of_building
1 Z: i5 ?/ v' M2 m7 }9 ?, m$ B. S  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
3 _: o# Y( D4 j, n  unit_plan   ;;make up the building plan
1 E" p8 t- s# J8 {- J6 jend
! z$ G0 ]+ z( v' W- O. Xto scatter
ask turtles with [remainder who 5 = 0]
[
" C7 `$ w7 L% B( T9 Iset xcor xcor - 6 + random-float 15
, D2 \7 d/ Y' n8 mset ycor ycor - 6 + random-float 15
]
end
% H. R& P8 }. e3 F+ d  Xto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
; R% v- h$ s( _  `8 q+ Z( K                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
8 T% }; a8 u: l5 ~# }# J                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
* V2 v& C1 V7 h7 B8 l5 m) Q            
- s. p$ v4 s+ J! k8 ^* h1 p, nif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
. a8 c- l# P# G- ], Y3 F                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
# o9 B0 {- X( B' Z, s           
4 }1 I0 r# u! p8 N% i/ _           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
7 G. L. O  C5 e0 X9 B) Y  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
% \& g. `3 U+ O! ]: |8 y                          ]
8 s2 i' R% O' [) ^% Nend

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

etamina

已经解决了，
8 ]9 c% i1 \# J/ u0 y应该是
$ z: T& f8 x" f) Z0 D. dask turtles [
/ T6 L/ L) g9 b( r- q& B) i8 qif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
5 d( s5 m8 G" `) q; i           set b  int (who / 5) * 5
/ _2 L' r/ q( i  ~0 ?, o- L    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现