看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
, E, ~  q$ C( ^) ]9 \" }+ J
turtles-own [a b c d k f g h
2 M1 ~7 S: \* b  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
4 _+ h* r9 _+ S  j# |* N  G  ca
5 C/ G7 ^9 `" Z) h/ K8 e  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
- c5 {2 C. W0 }  scatter     ;;keep center-turtle random positions
* L9 v: f% |9 e+ `  unit_plan   ;;make up the building plan
end
7 F) w; T! P( _+ Rto scatter
/ v1 ^- S& n! F; J6 K+ v5 m$ {" \: @" oask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
7 s& A* k5 j9 h) x+ L. R% o3 c]
& k: D. j/ K( A) d3 C  ~, jend
3 r, k- N$ O1 z8 C7 o+ o. @# ato unit_plan
1 L) f- F$ U+ D) }- b. y" f- pask turtles [
if (remainder who 5 = 1) [set a who
- G, r" ?6 n2 @                          set x ( 0 - Wid / 2 )
5 g: u0 M5 ]7 T* @6 n$ h                          set y  Dep / 2 ]
6 A6 T" g# K) E5 S           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 )
                          set y (0 - Dep / 2 )  ]
- u) v3 d  s- z                          set d int (c / 5) * 5
: C0 }+ I0 k( N   setxy   ( xcor-of turtle d + x )
) b* l8 G' D" a           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
! h' R% `# U* [2 a5 l                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
6 E8 `) h# [1 I! P           (ycor-of turtle f + y )
           
           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
0 y. a6 I4 P; @/ \+ {                          set y  Dep / 2 ]
; O% R7 X% f' n- U9 N: X9 ^                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
. C- I7 N( z# J1 H- i                          ]
end

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

etamina

已经解决了，
+ Q5 V. K1 ~  e% R应该是
  ^! r5 X, N9 a2 u/ D8 }ask turtles [
/ D. P1 S5 |3 H/ C$ h8 Z, K/ \if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
) D) a6 P& c% ?7 S' E           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现