看看这段代码的问题

etamina

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

+ ^( E, J' Q% P9 Y, c) J但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

! f2 U) K* D% s1 K7 }- s# |1 mturtles-own [a b c d k f g h
3 M( n( p3 l# y  S9 A; b+ h  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
9 X4 x: k" S; E& r* n5 @. ]]
to new
3 @. Z4 \0 B) y- |9 T- }4 @. c  ca
! @7 K/ S1 t* `% p* b1 W5 I" `  crt 5 * num_of_building
2 p! f9 h0 K5 S& q& P  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
1 |, S! i, S+ E* W# J+ `* ?9 n* r  scatter     ;;keep center-turtle random positions
& p: V9 R$ a) u' k  unit_plan   ;;make up the building plan
end
- C. A7 i( D" ]6 G  C4 i% n# Jto scatter
ask turtles with [remainder who 5 = 0]
[
- d0 ]1 _6 Q0 B3 k' fset xcor xcor - 6 + random-float 15
; b, {; x$ ?* r, a! J1 H. Dset ycor ycor - 6 + random-float 15
]
end
to unit_plan
( s+ B4 z* U! Q/ M; S5 Hask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
2 K7 @. l4 l3 H7 \2 f7 g  L                          set y  Dep / 2 ]
1 P2 |8 p) R% I% A2 b% M0 F3 E           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
* y0 c& H3 R+ R: w- Fif (remainder who 5 = 2) [set c who
0 h) D/ g/ T; T% H8 n1 S/ C, ?" @4 i3 n( P                          set x ( 0 - Wid / 2 )
# s1 E% _+ N. P! |! j                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
, G( U  j/ r5 L3 O4 H0 \   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
8 T0 r$ _! `* t: H# u            
9 n' b1 Q4 B! w# p7 Eif (remainder who 5 = 3) [set k who
* }* W2 m) p1 f                          set x( Wid / 2)  
1 `3 E$ v( }" U6 o% o; h                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
  D) Z* V" |5 ?7 D2 ?1 e  \" w           
           
if (remainder who 5 = 4) [set g who
' v" J7 {8 n9 R% ~                          set x Wid / 2
                          set y  Dep / 2 ]
1 K& u, b- B0 \3 g$ D0 F( o                          set h  int (g / 5) * 5
4 z# Q% r" ~4 m9 Z2 ]  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
) p! L7 y! H, [5 }                          
/ X: L! s" C1 q8 J                          
                          ]
1 d- O( g" Y% J2 bend
# {# o  J  Y5 K2 f
* p' T$ d6 k' N3 F+ S[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
+ F1 Q) S# s4 Q9 [. Kask turtles [
1 {  F: ]7 A, v/ [6 D4 M/ N; b2 S4 p* rif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
! J2 i  A3 n7 n( N; ~/ `7 m                          set y  Dep / 2
           set b  int (who / 5) * 5
/ K. _& W3 }( Z, U    setxy ( xcor-of turtle b + x )
+ K! i3 p$ ]& l8 q4 C          ( ycor-of turtle b + y )]]
/ q4 K- h, k& u( j' X8 O# X) \end
之前有个括号位置不对没发现