看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
' P$ h+ Q/ f. Jto new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
% D4 d3 D3 u' l6 P. W0 M8 Eset ycor ycor - 6 + random-float 15
]
end
to unit_plan
+ S5 a, k' d9 w) D8 x# N, Iask turtles [
+ H* u% ~4 a9 r: P3 T) Qif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
  e) ^$ z9 l- S" v+ l                          set y  Dep / 2 ]
( V3 c) B2 s+ o; V" B' `+ F! {% F0 \           set b  int (a / 5) * 5
  G2 I# o& h% a+ |2 F    setxy ( xcor-of turtle b + x )
# g9 r# q- A, n! T- ^2 M          ( ycor-of turtle b + y )
0 \  O1 M  ?  {2 R5 Pif (remainder who 5 = 2) [set c who
2 k( K% ~) L( ]                          set x ( 0 - Wid / 2 )
+ g+ u$ t7 Z9 m$ o# e                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
0 [/ q1 c( R3 a1 b  e6 l' t   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
) s( ~  x, C# y7 d. q0 w         
            
4 }- T+ W, D5 V4 c4 ?+ Uif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
+ u( o3 v4 K$ f! y9 m/ Y! a                          set y (0 - Dep / 2 ) ]
; @& y: h6 {$ e# A                          set f int (k / 5) * 5
! t9 x1 N% k0 d7 x9 O  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
           
$ o. }; [; V, ~3 u2 ^$ O1 `0 `if (remainder who 5 = 4) [set g who
                          set x Wid / 2
( \: q0 R. f- A7 }                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
                          ]
2 o$ u5 w( r7 X- I6 q( p# Jend

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

etamina

已经解决了，
+ r% x/ N! B; ?- c! k- q& G- d( {应该是
- n$ B& l. a1 u, ]ask turtles [
, O7 K" X2 r* P4 `  q5 Mif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
; }* p# G8 \* z" f" r- |                          set y  Dep / 2
           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
1 G; s- {9 l% iend
# n* F5 _. ]4 a4 d: {  W之前有个括号位置不对没发现