看看这段代码的问题

etamina

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

4 E+ Y: |: c& k4 }% w- G但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
, [$ f' Q1 X2 Z/ U# ]
: w! S# L8 e: Sturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
" X# C  k4 z+ ~6 f% w# J: n' V]
+ x& D2 {/ N; J$ [* Eto new
  ca
: e1 ]( C1 s& O# J1 |4 F( K  crt 5 * num_of_building
7 A: k: H2 Q/ P  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
# [, }' L  ?) O; h/ t0 d. w7 J) A& Tto scatter
) ^& g7 d% y5 Y6 \4 kask turtles with [remainder who 5 = 0]
[
0 G6 E  B' u/ p5 E' f) ?- M4 B+ jset xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
to unit_plan
" h: Q% ^0 R5 y6 lask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
+ L0 ~8 L" {# e4 p6 y( d    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
! d. ?- G) O4 @3 E  Y" Gif (remainder who 5 = 2) [set c who
3 L) j* d/ N0 `; T' S: s                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
( j% B/ M/ M$ N: q                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
8 z* ^$ B; r" O  {2 U            
if (remainder who 5 = 3) [set k who
& w2 H+ g: C1 m                          set x( Wid / 2)  
* V4 U! Q. Y8 y8 G3 b. `                          set y (0 - Dep / 2 ) ]
% O2 |: ]. ~) p1 [0 A( _9 I9 s                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
9 c! U) i8 U& U1 l: ^$ s           (ycor-of turtle f + y )
           
           
7 Q+ _- D/ v+ j. oif (remainder who 5 = 4) [set g who
, d. x  f& s) b- [8 |) ?* y# U                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
+ P$ i$ d  G6 B0 }4 p9 r  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
9 U. B3 ^2 [# `. E/ V; a$ J7 B                          
: g- H2 @3 b4 i2 {; t1 G, Z* F                          
% G; z$ ^3 U: \: o4 J( U" T1 F. q0 X/ W                          ]
' ]8 G- z& K* B6 rend

) q1 u3 |2 g5 S. w; C& X[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
0 P* l1 R, K: n应该是
$ |4 p1 K  V8 x( yask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
. G! d3 _7 M) b# \' W           set b  int (who / 5) * 5
6 R3 B- u# j2 g# Z' ^    setxy ( xcor-of turtle b + x )
- k; ]6 F2 ~4 i$ L. o          ( ycor-of turtle b + y )]]
end
/ K: w; z, O; f' n5 f  [4 H$ G之前有个括号位置不对没发现