看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
+ I, f. S( V" ]7 l( w
/ A9 a2 ^. a; y' t但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

) o2 n* T1 l# v+ t. Yturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
- S7 i2 T0 e  V7 `' L]
to new
  ca
, y& ~" K5 h9 b4 H# F, A  crt 5 * num_of_building
7 q9 _4 B2 D: r  ^5 t  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
+ O2 J; ]9 ~% p5 g% _/ r2 L  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
) X0 f5 O0 A$ s" C: f4 mto scatter
' q0 Q0 D% `4 J" ]1 P: Rask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
* {, \# M! p( J+ fset ycor ycor - 6 + random-float 15
]
: K" z9 E& t1 k3 z- i. Rend
to unit_plan
' h; [& D* G5 ~/ sask turtles [
' S7 j$ N9 A9 E1 f! zif (remainder who 5 = 1) [set a who
( H4 ^$ i5 A+ A9 a                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
# H1 J8 g% F. x& q! V    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
" I1 r. S/ D1 \- g! w5 C+ t9 U- z                          set d int (c / 5) * 5
9 M" A& \% c3 F2 v2 Z   setxy   ( xcor-of turtle d + x )
6 ~& v2 K- @; R$ V           (ycor-of turtle d + y )
         
; G  e- e  `: ?# z            
- C+ D* {* \0 I& ?if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
6 p, a8 m/ G; X( A( c, x           (ycor-of turtle f + y )
           
' P3 k. F4 d# k& F! J+ N8 |) g           
2 O% W" g) u. W6 R9 R2 ^if (remainder who 5 = 4) [set g who
+ J* x4 R  o; D0 ?3 E! j# q                          set x Wid / 2
                          set y  Dep / 2 ]
+ g! ^4 K" Y8 r# c5 T                          set h  int (g / 5) * 5
1 ]3 J, t4 i) l* i% f  setxy   ( xcor-of turtle h + x )
$ D2 v% O/ ~! ~3 M) F' K' r           (ycor-of turtle h + y )
                          
                          
9 o! k: I4 E: J& P5 L, E! P# ?                          ]
end

3 G4 ]" b' e# c' c[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
+ g# ?% N0 o' p. ]ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
2 H2 |  D- M- z                          set y  Dep / 2
           set b  int (who / 5) * 5
) E- e- g2 D9 _" j( I0 ~* P) C    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
# [: n, G3 I- u* a& @& X! O9 bend
之前有个括号位置不对没发现