看看这段代码的问题

etamina

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

; g1 ]2 H9 ?. [9 u: _' Y- Z但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
) v7 P2 X! D0 T- V% \) }/ a
. C- `2 D6 K' cturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
; |$ k5 s1 \$ T7 o]
to new
) h( E) }6 ?5 n- r& P6 m( p5 P  ca
7 D2 F7 s% x1 a" C7 t5 h  crt 5 * num_of_building
8 ^# c' j/ G/ g) T1 Z( m  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
3 y: w& t6 F# W( ~6 [  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
6 ~2 F* o' x/ w) O. ?to scatter
1 R, k5 N8 M/ z; a1 g6 ?ask turtles with [remainder who 5 = 0]
% B# i% J0 f% b; _: N: y[
" V3 w# Z& N3 w) ?7 F/ W; L4 p9 K: P3 hset xcor xcor - 6 + random-float 15
9 l- d) _( c1 M: h! oset ycor ycor - 6 + random-float 15
- Z* F( w) n  o/ |# B1 P]
end
to unit_plan
6 R& Z# Y/ |% T/ p, ]! ^) Yask turtles [
if (remainder who 5 = 1) [set a who
: h) B" I2 ~4 ^( B                          set x ( 0 - Wid / 2 )
# b% |( x5 q6 g) K                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
7 e7 w" C& @' Y# t    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
: ]7 Q& D$ w6 u4 M/ nif (remainder who 5 = 2) [set c who
, i( N9 Q: K% |8 {- g3 Z7 w                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
2 c9 G) ~5 T  B& G* M( W! Q9 l           (ycor-of turtle d + y )
- l. [' d5 v, i5 A         
1 ?; L6 z4 E6 n+ n            
if (remainder who 5 = 3) [set k who
3 U) t1 a. u0 X' q2 X: I                          set x( Wid / 2)  
6 h4 f( G: A7 J9 p& J4 H                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
% d5 e  J! [1 y* H           
           
if (remainder who 5 = 4) [set g who
- Z  P4 b# [# @                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
/ Q  p) G* a- S+ J0 c6 p                          
, S- Y: {9 Y  C0 n                          
                          ]
, k' p4 P4 S1 jend
; C3 ]7 S6 y* a# b  W+ n$ ]
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
& l6 N# K* k0 _. B" T/ w  G9 Hif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
% m/ e7 u( m$ P9 q% x* v. e    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现