看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
3 E- j  A8 G( |* @7 H
- p; k5 A  ^4 |- v3 K但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
: _1 q) `' D& x. W3 C1 b
; d% [  o7 |+ i1 _: m$ B3 L+ 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
  ca
3 d. ?* C8 K2 C' \* V3 l% v, j  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
* e% ~% A% U4 z- v9 }$ F. Kask turtles with [remainder who 5 = 0]
[
8 N- t: g* R" v6 B( fset xcor xcor - 6 + random-float 15
% L2 N9 H- K" j0 }4 ~, {1 L! bset ycor ycor - 6 + random-float 15
]
end
to unit_plan
+ z+ G* o" N" X; f: {, W8 Sask turtles [
+ t/ F- E8 o2 u; ]: Z% \# pif (remainder who 5 = 1) [set a who
4 C8 j- t3 \- `% n. S                          set x ( 0 - Wid / 2 )
6 k% T# \8 T  a4 T                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
9 q, x8 `( t! P& o" H9 P& ~    setxy ( xcor-of turtle b + x )
* i' s5 y2 Y0 _3 C5 i          ( ycor-of turtle b + y )
% X3 s! `/ a5 R8 v' Uif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
; b5 H; {! e2 e6 V   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
6 k& G7 ~0 p3 S; t% j. P         
3 U5 [- R3 y2 N            
# G( i% p3 \# x6 ~0 B* E) B8 h2 h2 @if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
! `% G1 ~3 U  k) H8 S                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  w9 X) M/ A& M4 F  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
  e, O! x( F  \4 b/ V           
" r8 V  N! z' f; O6 dif (remainder who 5 = 4) [set g who
                          set x Wid / 2
7 u0 k/ G, T2 ~! }, l                          set y  Dep / 2 ]
' i, f6 Q, M- h' D- S* T                          set h  int (g / 5) * 5
6 j1 V, B! p1 l9 X  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
; m8 F5 V  h/ ^                          
) f( _3 Z4 Y9 x4 l0 Q6 t; Y2 R                          ]
( P+ K2 v. G3 u* f2 F2 H8 I- |end

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

etamina

已经解决了，
应该是
/ U* l" F0 G8 Q' a1 A! e4 zask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
. a$ N. e9 }, C4 N' d8 O# C6 R           set b  int (who / 5) * 5
, m+ N/ ^2 @1 }8 T9 ^    setxy ( xcor-of turtle b + x )
* F% n6 p! e( v$ t          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现