设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 5752|回复: 4

[交流] 列表中的条目比较

[复制链接]
发表于 2008-4-18 00:08:38 | 显示全部楼层 |阅读模式
我想创建一个列表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.高手赐教啊!
7 J8 R1 Y& ^3 ?) j7 yset t  t + 1
! W6 z: Y0 o9 J7 wwhile [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$ r2 E7 a, f+ L2 l  q
                          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' U0 J! b$ {) }& C2 F
                          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]) ^5 O3 ^' E2 @( c/ x
]
 楼主| 发表于 2008-4-18 15:06:02 | 显示全部楼层
set t t+18 m2 D6 ]! N$ K; [/ Z
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
9 r& C/ I" A. L( u                         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
* L; O4 F' T3 c* ]                         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
. P6 P& ]# i, W, w1 M                         [stop]# }# ^, j- x# [* J
                      ]5 e( K/ x& U$ `/ q% o5 q  ], x9 ]( Z
上面的问题勉强解决了,但为什么老是运行到第6次就死机了,郁闷。0 |! z$ [* B2 b+ G# p

+ q1 n" U* A5 C7 p# @8 G[ 本帖最后由 wjcpcahu 于 2008-4-18 19:16 编辑 ]
 楼主| 发表于 2008-4-18 19:19:02 | 显示全部楼层

比较怪异

如果将6 改为18,运行到18次就死机,我发现这个程序怎么跟病毒一样!修改0.01没用,减少主体数量也没用,闷啊!!!!!
 楼主| 发表于 2008-4-19 16:11:18 | 显示全部楼层

好像可以了

to go0 G$ b0 H% ^  J3 o# c# T
     set t t + 10 ]7 y8 O" O7 q( i7 |$ G* ]
     grow# A) X/ S) D; Q5 s3 k# m$ W( u  e% R
     update-list-of-m
- K( k! H9 T7 w( X. t! |  R& T# r     do-plots8 Q. @! e! B, s3 O
     tick  0 r: d6 a6 ]+ ?8 y- g
    ifelse t > 8+ t- V4 d: p" i) B9 ^0 G9 Y
                  [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 and2 V( [/ D8 P5 D- {
                      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
: ^! K* p. u% 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 7 e. {/ a1 V3 |: q4 I# R" K, @
                      [stop]]) I1 m7 E$ k) {' F
                      [ ]  & H4 d3 H6 V, P$ e. P
end
' R# }; o. ^2 x! }4 m/ q& s' V! B各位大虾帮忙看看,这样好像可以了。以前用while之所以不行,是不是因为如果报告为true,那么就会反复运行后面的命令导致死循环啊?
$ ^, a! s' y: D还有就是[ ]是不是意味着不执行任何操作,返回set t t + 1,然后grow,  update-list-of-m, do-plots, tick ..........这样一直按这种顺序循环直到停止。, I4 m' I7 y4 @0 W6 S+ ~! u
) `% C  U- f; W& f/ c" w
[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]
 楼主| 发表于 2008-4-29 10:18:36 | 显示全部楼层

各位大虾,上面说的对吗?给点意见,小弟心里还是很忐忑的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2025-7-8 18:54 , Processed in 0.017588 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表