设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 4290|回复: 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.高手赐教啊!$ X" t0 u: u# c& ~, l+ m- h
set t  t + 1
2 S* }& O1 c& _4 X- D+ twhile [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
: j+ u; O! t  u3 w& \$ _! n5 T                          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, n) t8 v. g# F  I4 E% l
                          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]3 e1 S4 V5 L7 ]7 H
]
 楼主| 发表于 2008-4-18 15:06:02 | 显示全部楼层
set t t+1
5 j! N3 R. c( w+ j9 y3 C, Kwhile [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 and3 Z& Z: E2 p0 b1 I$ k/ {) ]1 E0 r; j
                         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
  g+ S, [4 v& t9 B6 P* ^                         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
3 ]  ]9 J; U  o& y6 \" @2 V                         [stop]
4 E  ]5 k6 g5 v' Y5 {$ _& ?                      ]7 p7 E, p3 z* `, \3 R" Y* |
上面的问题勉强解决了,但为什么老是运行到第6次就死机了,郁闷。
! u$ [' t$ t! X% Z. f6 @
( K0 N+ E0 x6 Z: m[ 本帖最后由 wjcpcahu 于 2008-4-18 19:16 编辑 ]
 楼主| 发表于 2008-4-18 19:19:02 | 显示全部楼层

比较怪异

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

好像可以了

to go
: z& `/ S" ~- Z4 z$ T- R     set t t + 14 t; M9 o, I0 D  y: |6 J2 \
     grow* Y; G6 M  e0 d# S9 @# [
     update-list-of-m
, u5 b/ R2 D, B& ]& M+ b1 g     do-plots
; e) b* P0 i9 X, e5 Q  G4 y3 Q     tick  
) A7 a, k; }! }+ F2 o: K7 s    ifelse t > 8, I/ m% ]% Z( H3 K
                  [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, h" Q5 b$ o5 m' X* H% |5 F
                      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 and8 r+ @# _( M$ M5 d0 W( |/ r
                      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 . W) F4 b3 d. F6 M5 H, r
                      [stop]]
4 j" m/ t0 t' K- w                      [ ]  2 I& O+ i  Z! W8 X, F2 f8 P
end
' h5 ^9 b) o( Y各位大虾帮忙看看,这样好像可以了。以前用while之所以不行,是不是因为如果报告为true,那么就会反复运行后面的命令导致死循环啊?
$ E" `0 t8 w) d) _# p8 a$ {还有就是[ ]是不是意味着不执行任何操作,返回set t t + 1,然后grow,  update-list-of-m, do-plots, tick ..........这样一直按这种顺序循环直到停止。
& E5 A. I1 L0 q4 ~3 ^6 U
, |2 r, l! n3 ~/ V1 w4 P2 y2 i' `; S[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]
 楼主| 发表于 2008-4-29 10:18:36 | 显示全部楼层

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

本版积分规则

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

GMT+8, 2024-3-29 20:24 , Processed in 0.012420 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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