看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
$ y) f0 s; O9 U( I8 Q/ W. D8 f, R
. k- l/ \$ n9 R+ ~, Y' O+ J但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

. I* v1 s* @3 e' O3 U) ?7 Qturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
- P5 E$ E9 w) C  ca
3 I  i4 R2 g% o" R4 A" s) K+ w  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
/ j4 j3 h8 {6 `* f  scatter     ;;keep center-turtle random positions
$ R  Y# O2 f# g' o3 _4 M  unit_plan   ;;make up the building plan
4 @/ Y- ]$ A. \end
3 {1 W0 [. \7 [5 C4 ~* V6 Ito scatter
ask turtles with [remainder who 5 = 0]
[
6 N+ P9 F& U  d1 ~' O( Lset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
: B) }- ^- X. w+ X/ I]
end
to unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
' C& d) b6 i6 U' e( l" J                          set x ( 0 - Wid / 2 )
+ h3 s" ~* u% `- ~9 M; X; p/ s                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
, b! G$ n$ f  D3 N8 q2 i, ~    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
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 R2 }: d' @9 q' c! f3 R, K' L   setxy   ( xcor-of turtle d + x )
% F. ~9 P( D+ i8 B           (ycor-of turtle d + y )
         
% T* c% i+ d! _9 m            
if (remainder who 5 = 3) [set k who
; U! L8 C' D% w                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
% v8 \; P; _: N* l3 ?0 W: V4 A                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
$ [! X! c' |0 R0 e           (ycor-of turtle f + y )
1 P( V/ b" n8 r, M% m) J: w           
% q* h3 m0 C4 e* D9 `0 m$ A           
) U2 \' t6 y5 @5 Bif (remainder who 5 = 4) [set g who
; i: z* U1 i- P. x$ a3 U1 s5 R4 {% s                          set x Wid / 2
                          set y  Dep / 2 ]
' v$ o" }% W3 Y' F! A                          set h  int (g / 5) * 5
1 S' c' r# ^* Z( E4 ^  a  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
- C# `, r0 q3 D                          
                          
3 U3 O$ j4 P- G! M                          ]
end

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

etamina

已经解决了，
应该是
' `0 v3 x; M3 J% Cask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
: ]3 t- g7 ^) |3 d4 y( |9 m                          set y  Dep / 2
8 M# {0 m3 f& P           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
; [: {7 {+ F+ _) {+ o& [; T之前有个括号位置不对没发现