看看这段代码的问题

etamina

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

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

% M" S5 \/ F% r$ tturtles-own [a b c d k f g h
" y- K! I8 `2 ^# k3 S  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
! N/ V8 A$ p; [6 x3 y! s]
to new
) i0 N9 Y, r' B/ Z  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
. \7 L/ s: z  z; o7 x" \; ?to scatter
  A1 s6 B6 ~# H+ q% l( u+ b$ Zask turtles with [remainder who 5 = 0]
[
4 Y" L: P) |4 ^0 v9 R' j) Oset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
& @9 A: b- B% u% H. ^" H]
+ @4 A' I' A. }+ t, f5 t# Hend
) o- @  D, x# l* Ito unit_plan
. C1 m- i! Q7 l: i. N0 B2 B0 wask turtles [
if (remainder who 5 = 1) [set a who
& t/ x3 b4 c7 ]6 S- `  D8 u! ]                          set x ( 0 - Wid / 2 )
& A" M5 w$ U. [: b% u                          set y  Dep / 2 ]
# d- A* b3 [5 J           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
5 B9 B  _" O' T3 W* L4 s) ^          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
1 Q5 X& u  e' e                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
. P2 P9 {* \) _$ u$ ~. e- ^   setxy   ( xcor-of turtle d + x )
# {; g) A0 F9 c; ]' _! m$ Z           (ycor-of turtle d + y )
8 f/ A: x. e- P4 y/ j$ J         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
* h' u3 I) a% m                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
" _! U2 j. m  w) A           
           
- M) D, `1 d: n8 ~0 s$ N) rif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
' W5 }! t5 K5 O1 V! M                          set h  int (g / 5) * 5
2 Q% l+ m% d: m- _' t% P  a  setxy   ( xcor-of turtle h + x )
8 J( a; s+ I) Q; N, H% Q# J  K           (ycor-of turtle h + y )
3 A: \. u( j) ^( T% _- c                          
                          
                          ]
# h( C6 Q4 z3 ~- G+ xend
- a: D. `- F) d; A" f, k
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
' T" E: s' l+ G& P0 i' Q/ v应该是
ask turtles [
! m6 c6 ~( l  E$ a6 k4 ^# I  Y" lif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
$ V" I* C: y) p7 S& k* U: l           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
9 F! v9 E( E9 o5 J之前有个括号位置不对没发现