看看这段代码的问题

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
7 ?# a/ ]) U. p2 U/ i# a]
to new
  ca
. P5 N: E5 u6 Y  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  z$ N! l0 z3 w0 L8 {; P/ \( R  scatter     ;;keep center-turtle random positions
: w' Z2 N/ P) X& R  unit_plan   ;;make up the building plan
end
to scatter
3 t" W9 \+ F7 S& Q. Zask turtles with [remainder who 5 = 0]
- I+ I5 @( b# S4 P[
set xcor xcor - 6 + random-float 15
3 R4 e4 q9 P6 p* w; b1 Tset ycor ycor - 6 + random-float 15
: F+ [( V$ f' W7 e" Y]
end
' M4 ?/ t, n, D8 m5 W* h4 vto unit_plan
ask turtles [
2 V3 q2 E4 O* g! eif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
" D; w4 b4 t: s! S2 A) n. j' O6 s# W                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
( \2 A% v4 c; \" W% ?6 Nif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
7 E+ v% Y, T# D, T9 h4 L8 ~6 ?                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
5 ]  f, [6 k' C           (ycor-of turtle d + y )
         
            
2 W  A  K1 F4 y; gif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
2 W, X+ E( _( l                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
5 {: W0 ?4 g: P* Z3 n           (ycor-of turtle f + y )
4 m. K& ]' C, k3 M0 x           
           
( @$ |2 |' i3 l4 Pif (remainder who 5 = 4) [set g who
! r) Y: i2 Q+ q4 S! ?, A  n) t                          set x Wid / 2
                          set y  Dep / 2 ]
" J0 Y+ t% r% l$ V3 b- J$ o- x2 w- n" S                          set h  int (g / 5) * 5
. q4 B7 g0 I+ J9 F2 V, D  setxy   ( xcor-of turtle h + x )
2 u& G" k0 X7 Y           (ycor-of turtle h + y )
) V6 I4 B; }: G4 {+ ~7 p- X7 w                          
2 l; A1 Z& d; ^0 [                          
  n9 h4 Y7 t3 D4 G1 I                          ]
3 v8 @, L3 A, L3 T( Z  cend

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

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
7 i" G; R9 a0 Y7 G6 K# r                          set y  Dep / 2
) Q0 r0 ^2 e$ Q3 b. f           set b  int (who / 5) * 5
1 u& O6 [. b8 c8 l% \* Q    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
0 r+ M* G0 e$ @+ U0 J( s之前有个括号位置不对没发现