我写的这个计算语句,调试时通过,但是运行时出现了不知名的错误
- K% Z9 O2 _" J9 }5 E请达人帮我指出错误好改进
7 J2 ?+ Q2 j3 j. G# ^) F$ P; v$ C* g6 e9 s% M" _4 D
to find-distance6 g8 }0 ~$ k# F4 S! Z" v3 D9 a
let i 0( }: a- O& l9 F2 a& w6 t; d$ K/ L
let nodedistance 0
% I5 i3 W$ ?, q% e8 U3 C let linknumber 0. m1 w* ?8 a2 c7 R E
while [i < count turtles]
/ d- |8 _0 \* M- J* R0 s [6 d2 O8 P1 k$ x( g9 r
if link-neighbor? turtle i: s' }7 h' b' g7 x, E% N6 w
[set nodedistance (nodedistance + sum ([link-length] of turtle i))
% j- s' C7 q6 I' I set linknumber (linknumber + count [link-neighbors] of turtle i)]
- K! `. m% {8 v' i$ } if linknumber != 0
3 [, ?! m( P+ F3 a7 O8 f, d: B! r [
- K& \" ?% L# A& j) O/ q' o, d set average-node-distance (nodedistance / linknumber)
5 {+ U3 F8 ^# T4 N/ w+ c) _ ]
1 t6 D) C7 N8 d3 \ set i i + 1
6 A+ [' p) Z5 g+ ?% ~ ]! \& O7 d; w3 p# a
end
2 T2 }, L# V8 V m) H
* Z+ v2 x' r& u$ V' [. s# l T[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ] |