看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
2 N6 }9 Q8 J, A8 u
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
7 _8 J+ e9 ]- |  |; X- R& @1 g3 c" ^
/ i8 c4 I/ k' n; fturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
6 F+ T* b' [3 s+ E) ~/ h+ g]
* Q6 C& ?1 H# Q" H7 y" e6 \to new
  ca
  crt 5 * num_of_building
3 a+ l' h2 x! b( T" m  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
5 J5 @8 O. f8 j, C( H2 `2 M  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
, R1 U0 t# c2 Kend
to scatter
" T8 k; Z# ?+ l9 I( w# G. ?ask turtles with [remainder who 5 = 0]
[
- D8 u+ s! W+ pset xcor xcor - 6 + random-float 15
! w0 ]: L. X; R7 n1 |set ycor ycor - 6 + random-float 15
]
% u$ n7 f, C) u6 h% Eend
- F% x' S+ i4 C5 Y3 lto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
7 c8 q) t; k2 A) k$ r, k                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
: n! d. K* x5 q1 z6 l0 U: z    setxy ( xcor-of turtle b + x )
( o! K8 u' h. `. z4 f. U, P* e) @          ( ycor-of turtle b + y )
$ o1 x: p+ s" o- aif (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
. S1 i; z1 O3 d; A9 h   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
0 }: h7 n# ]3 \$ |7 q7 L         
            
% O" W9 e0 |6 {8 d5 H# eif (remainder who 5 = 3) [set k who
- P1 ~* h" c2 K  G8 N& z                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
; ]' T1 B$ G$ ^" S$ n           (ycor-of turtle f + y )
, J: m: `% u: t1 H5 c           
           
0 A8 a8 a' l3 W1 L4 f; M9 D+ Qif (remainder who 5 = 4) [set g who
% C- z4 ^3 w+ M, \                          set x Wid / 2
                          set y  Dep / 2 ]
( q7 t* h- A' }- r, q                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
) z+ S7 Z. R+ V$ p) l           (ycor-of turtle h + y )
                          
- j0 N' m; W, Y* @& r' r9 l0 `, @                          
                          ]
. v: Y7 w( d; p! }& wend

" W$ o5 a! e  z1 f6 O4 j7 E) }' D[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
! ]  L+ ~& Y/ A" Y                          set y  Dep / 2
           set b  int (who / 5) * 5
6 a& R( v0 S* j: H    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现