列表中的条目比较

wjcpcahu

我想创建一个列表list-of-m，其中m值在每轮循环后会更新并fput到list-of-m中。在6轮循环之后开始比较，如果列表中0  1 2项的均值与3 4 5项的均值的绝对值相差小于0.1，并且如果列表中6 7 8项的均值与3 4 5项的均值的绝对值相差小于0.1，并且如果列表中0  1 2项的均值与6 7 8项的均值的绝对值相差小于0.1，就停止程序运行。我按下面的方法编，报告（红色部分）：expected number,list,string or boolean.高手赐教啊！
set t  t ＋ 1
while [t > 6 ] [ if abs((mean [item 0 list-of-m item 1 list-of-m item 2 list-of-m]) - (mean [item 3 list-of-m item 4 list-of-m item 5 list-of-m]))< 0.01 and
                          abs((mean [item 6 list-of-m item 7 list-of-m item 8 list-of-m]) - (mean [item 3 list-of-m item 4 list-of-m item 5 list-of-m]))< 0.01 and
9 r! Z8 r' K% |5 q) D7 K6 G% [                          abs((mean [item 6 list-of-m item 7 list-of-m item 8 list-of-m]) - (mean [item 3 list-of-m item 4 list-of-m item 5 list-of-m])) < 0.01[stop]
]

wjcpcahu

set t t+1
0 Q5 c( T: q' X, S: w! {while [t > 6 ] [ if abs( mean (list (item 0 list-of-m)  (item 1 list-of-m) (item 2 list-of-m)) - mean (list (item 3 list-of-m)  (item 4 list-of-m) (item 5 list-of-m)))< 0.01 and
* {/ f8 |( K- {# k. _, Z; y                         abs( mean (list (item 3 list-of-m)  (item 4 list-of-m) (item 5 list-of-m)) - mean (list (item 6 list-of-m)  (item 7 list-of-m) (item 8 list-of-m)))< 0.01 and
4 x, I) i# x4 K1 J4 Q" _                         abs( mean (list (item 0 list-of-m)  (item 1 list-of-m) (item 2 list-of-m)) - mean (list (item 6 list-of-m)  (item 7 list-of-m) (item 8 list-of-m)))< 0.01
% G9 ]+ O1 T5 f8 c; i7 g' {5 P                         [stop]
( F$ Y& [( z/ F9 @2 }2 L; g                      ]
: d# f/ F7 {# O! E上面的问题勉强解决了，但为什么老是运行到第6次就死机了，郁闷。

# S" S: _2 l. k# U! w8 \6 V( y' s[ 本帖最后由 wjcpcahu 于 2008-4-18 19:16 编辑 ]

wjcpcahu

如果将6 改为18，运行到18次就死机，我发现这个程序怎么跟病毒一样！修改0.01没用，减少主体数量也没用，闷啊！！！！！

wjcpcahu

to go
     set t t + 1
; }5 P; x! o& F1 s' s     grow
; R6 H0 Z4 w6 t     update-list-of-m
- G5 Z, U( ?* e0 R5 T     do-plots
! e* }: g8 S- t7 `  p9 v     tick  
    ifelse t > 8
5 u; ?$ i: F) m9 v$ j                  [if abs( mean (list (item 0 list-of-m)  (item 1 list-of-m) (item 2 list-of-m)) - mean (list (item 3 list-of-m)  (item 4 list-of-m) (item 5 list-of-m)))< 0.01 and
                      abs( mean (list (item 3 list-of-m)  (item 4 list-of-m) (item 5 list-of-m)) - mean (list (item 6 list-of-m)  (item 7 list-of-m) (item 8 list-of-m)))< 0.01 and
. Y; [9 r& h( H% S. W" S                      abs( mean (list (item 0 list-of-m)  (item 1 list-of-m) (item 2 list-of-m)) - mean (list (item 6 list-of-m)  (item 7 list-of-m) (item 8 list-of-m)))< 0.01
                      [stop]]
! O! y) Y$ |. w* i0 M                      [ ]  
8 z9 J. x4 x! W6 ?! Iend
各位大虾帮忙看看，这样好像可以了。以前用while之所以不行，是不是因为如果报告为true，那么就会反复运行后面的命令导致死循环啊？
% p: i& X; T+ I, i2 r: e; C还有就是[ ]是不是意味着不执行任何操作，返回set t t + 1，然后再grow，再  update-list-of-m，再 do-plots，再 tick ..........这样一直按这种顺序循环直到停止。

: v! Z- x6 z' d4 a8 c. i[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]

wjcpcahu

各位大虾，上面说的对吗？给点意见，小弟心里还是很忐忑的。