看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
! b9 y: V+ K1 a& z; ~
, y8 m9 ?0 v+ H( [& _7 W9 B但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

  _, {9 J7 _1 Y4 P3 qturtles-own [a b c d k f g h
: d) P* T3 e( @% R  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
3 @, {& ?3 _* n4 Q+ L8 s9 i$ c]
( Y1 ]% [) I( `to new
  ca
- }! r) x: i! H" W  crt 5 * num_of_building
  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
+ q: x4 X2 l* B( mto scatter
ask turtles with [remainder who 5 = 0]
[
) ^2 V3 h% S$ S6 J! Z/ I- Wset xcor xcor - 6 + random-float 15
! E, y; _# K: n* \/ a" }set ycor ycor - 6 + random-float 15
]
end
- H& B! u- h1 U! `6 H0 z5 d/ ?to unit_plan
* N3 u8 Y; F1 ?  ?  U1 ~ask turtles [
if (remainder who 5 = 1) [set a who
1 M% _8 S! Y0 B% j                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
2 @. j: e6 b/ N8 G! ~    setxy ( xcor-of turtle b + x )
5 A- U6 `4 Y$ [% B9 y6 A& ^/ B          ( ycor-of turtle b + y )
6 ?0 a- Q, `/ fif (remainder who 5 = 2) [set c who
0 u( \7 g0 A( c+ [7 H1 T2 A6 I' i                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
* a: Y6 \4 b8 L2 d   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
" g4 e8 H9 O! V9 i# C6 P         
' h% i, z1 M2 S6 ^  t            
# F& K8 F$ g$ N* Z# J) Kif (remainder who 5 = 3) [set k who
' Z9 S: P% }. Z7 c                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
5 T+ a& O( ?4 e5 w0 {5 m/ p                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
2 C* s  D7 s" B( ~           (ycor-of turtle f + y )
1 V$ @) `! F* w  q: z4 g           
4 I  _9 \; e* s4 c; {           
- Z. V! S3 c2 Q6 X! `2 Pif (remainder who 5 = 4) [set g who
, q1 y& j1 R; @; o7 L$ `. b3 j                          set x Wid / 2
                          set y  Dep / 2 ]
2 @4 Q3 I* C  Z. Z  _# s1 R# N                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
) d9 g3 |  b3 X* i2 ?                          
) i' Q0 }( b6 E. m" X4 N! |4 t  \+ ^                          ]
end

[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
1 v) Z3 `# f7 J! }1 L* u+ K应该是
ask turtles [
& P$ }; x" G- D7 R$ a" u* }if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
4 ?; N3 U6 g' _6 Z3 c2 F           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
- u  i8 T' @, r( s: {/ g          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现