列表中的条目比较
我想创建一个列表list-of-m,其中m值在每轮循环后会更新并fput到list-of-m中。在6轮循环之后开始比较,如果列表中01 2项的均值与3 4 5项的均值的绝对值相差小于0.1,并且如果列表中6 7 8项的均值与3 4 5项的均值的绝对值相差小于0.1,并且如果列表中01 2项的均值与6 7 8项的均值的绝对值相差小于0.1,就停止程序运行。我按下面的方法编,报告(红色部分):expected number,list,string or boolean.高手赐教啊!set tt + 1
while [ if abs((mean [item 0 list-of-m item 1 list-of-m item 2 list-of-m]) - (mean ))< 0.01 and
abs((mean ) - (mean ))< 0.01 and
abs((mean ) - (mean )) < 0.01
] set t t+1
while [ 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
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
]
上面的问题勉强解决了,但为什么老是运行到第6次就死机了,郁闷。
[ 本帖最后由 wjcpcahu 于 2008-4-18 19:16 编辑 ]
比较怪异
如果将6 改为18,运行到18次就死机,我发现这个程序怎么跟病毒一样!修改0.01没用,减少主体数量也没用,闷啊!!!!!好像可以了
to goset t t + 1
grow
update-list-of-m
do-plots
tick
ifelse t > 8
[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
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
]
[ ]
end
各位大虾帮忙看看,这样好像可以了。以前用while之所以不行,是不是因为如果报告为true,那么就会反复运行后面的命令导致死循环啊?
还有就是[ ]是不是意味着不执行任何操作,返回set t t + 1,然后再grow,再update-list-of-m,再 do-plots,再 tick ..........这样一直按这种顺序循环直到停止。
[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]
续
各位大虾,上面说的对吗?给点意见,小弟心里还是很忐忑的。
页:
[1]