看看这段代码的问题

etamina

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

3 h; _% j6 G" K  F但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
, ^1 {" E+ ?! H/ D% T
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
. z$ N2 _9 g' s4 E$ w+ l]
9 y7 t  g' o. |" o/ c1 Q& _1 Fto 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
/ `$ G  S) [" K  C2 R1 r4 @1 w  unit_plan   ;;make up the building plan
end
" W, z) y5 `6 Q) t  Wto scatter
( ^! h& [! ^8 M$ l* Task turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
8 I: l7 L& }/ v( t7 ~% o5 N8 D: E]
6 a8 W1 Y1 F9 ?. x9 b  Jend
, @% z. g" w8 c" a% @+ `# @# j5 Qto unit_plan
ask turtles [
) p& K" Z2 F1 G) Q4 {1 u; V* a& iif (remainder who 5 = 1) [set a who
7 j2 P% ~9 q3 C$ v. i" R                          set x ( 0 - Wid / 2 )
% e; Y0 m' [1 s/ [7 v, L/ S, F                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
6 t: _( g% o( V. A. N    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
0 Q! Y; I9 f) w" S                          set x ( 0 - Wid / 2 )
- ~+ v! D$ C: v& f0 ]                          set y (0 - Dep / 2 )  ]
& _# q( p9 q2 p9 ^                          set d int (c / 5) * 5
) W5 x3 g$ q6 J   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
. i5 X! B) f  L8 v' U* b% Y         
            
' L  c: t$ M2 m5 h, Y' ^if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
0 y' _: {+ O( q6 u8 L                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
. D* O" J, ~/ k6 R3 ]; W  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
, f5 M  f% {0 C  C           
3 e' w3 r2 h( y/ J6 ?! a6 U: Q           
if (remainder who 5 = 4) [set g who
0 p5 E* I; f0 [* P& \# h1 T                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
; v6 v. F6 z' D  setxy   ( xcor-of turtle h + x )
) L! Q) C- F5 z2 b# J/ k           (ycor-of turtle h + y )
, A' y6 i# k. |) K& @                          
                          
- h& J" ~1 H; t4 J6 r. ]                          ]
end

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

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
( H1 S, p3 R% d# D1 _8 }           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现